By
Published: 26 Jun 2003
If you need to retrieve long texts for a particular infotype you just need to run the macro: RP-IMP-C1-TX. The code below was written in version 4.5B.
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.