Long text retrieval in HR

• Eugene Cabling
• Published: 26 Jun 2003

REPORT ZHUGE_LONGTEXTS .
TABLES: PCL1,PA0000,T582S.
DATA: TX-KEY LIKE PSKEY.
DATA: BEGIN OF TEXT-VERSION,
        NUMMER TYPE X VALUE '02',
      END OF TEXT-VERSION.
DATA: BEGIN OF PTEXT OCCURS 200.
DATA:  LINE(78).
DATA: END OF PTEXT.
DATA: KEY1 LIKE PCL1-SRTFD.
DATA: KEY2 LIKE PCL1-SRTFD.
DATA: FINAL_KEY LIKE PCL1-SRTFD.
DATA: BLANK(7).
DATA: BLANK1(3).
PARAMETERS: PERNR LIKE PA0000-PERNR,
            INFTY LIKE T582S-INFTY,
            SUBTY LIKE PA0000-SUBTY,
            ENDDA LIKE PA0000-ENDDA,
            BEGDA LIKE PA0000-BEGDA.

IF SUBTY IS INITIAL.
 CONCATENATE PERNR INFTY INTO KEY1.
 CONCATENATE ENDDA BEGDA '000' INTO KEY2.
 CONCATENATE KEY1 KEY2 INTO FINAL_KEY SEPARATED BY BLANK.
 ELSE.
*-- if with subtypes
  CONCATENATE PERNR INFTY SUBTY INTO KEY1.
  CONCATENATE ENDDA BEGDA '000' INTO KEY2.
  CONCATENATE KEY1 KEY2 INTO FINAL_KEY SEPARATED BY BLANK1.
 ENDIF.

 MOVE FINAL_KEY TO TX-KEY.
 RP-IMP-C1-TX.

LOOP AT PTEXT.
 WRITE:/ PTEXT.
ENDLOOP.