PIR Text in SQ02 SQ01

Question

I created a SQ02 SQ01 to pull the PIR Text data. Below is my code.
[code]
v_name = EINA-INFNR.
CALL FUNCTION 'READ_TEXT'
  EXPORTING
    "client   = '120'
    client   = sy-mandt
    id       = 'AT'
    language = 'E'
    name     = v_name    "'5300000001'
    object   = 'EINA'
  TABLES
    lines    = i_tline
  EXCEPTIONS
    ID = 1
    LANGUAGE = 2
    NAME = 3
    NOT_FOUND = 4
    OBJECT = 5
    REFERENCE_CHECK = 6
    WRONG_ACCESS_TO_ARCHIVE = 7
    OTHERS = 8.
LOOP AT i_tline INTO k_tline.
  PIR_TEXT = k_tline-tdline.
ENDLOOP.
[/code]
My problem now is that when i put a range of PIR number, there are duplicates
[code]
PIR | SQ01 | Actual |
#01 | XXYY | XXYY   |
#02 | YYZZ | YYZZ   |
#03 | YYZZ |        |
[/code]
Above is a sample of my output. If i go to ME13 to view my PIR #01, the text is XXYY which is correct. If PIR#02, the text is YYZZ
But if i view PIR #03 at ME13, it is empty which is correct. But my SQ01 gives me YYZZ
How do i clear the variable?

Answer 1

Dear All,
i managed to do it. It seems i need to clear PIR_TEXT and CLEAR i_tline.
CLEAR PIR_TEXT.
CLEAR i_tline.
"CLEAR k_tline.
"CLEAR k_tline-tdline.
v_name = EINA-INFNR.
CALL FUNCTION 'READ_TEXT'
  EXPORTING
    client   = sy-mandt
    id       = 'AT'
    language = 'E'
    name     = v_name    "'5300000001'
    object   = 'EINA'
  TABLES
    lines    = i_tline
  EXCEPTIONS
    ID = 1
    LANGUAGE = 2
    NAME = 3
    NOT_FOUND = 4
    OBJECT = 5
    REFERENCE_CHECK = 6
    WRONG_ACCESS_TO_ARCHIVE = 7
    OTHERS = 8.
LOOP AT i_tline INTO k_tline.
    PIR_TEXT = k_tline-tdline.
ENDLOOP.