Kommentare (Text, F9) zu Infotypsätze lesen – hier am Beispiel Infotyp 0014
DATA: TX-KEY LIKE PSKEY. „Schlüssel Textcluster
DATA: BEGIN OF PTEXT OCCURS 200. „Importstruktur Textcluster
DATA: LINE(78).
DATA: END OF PTEXT.
*Versionsnummer
DATA: BEGIN OF TEXT-VERSION,
NUMMER TYPE X VALUE ’02‘,
END OF TEXT-VERSION.
DATA: LEN TYPE I.
DATA: TEXTLINE(2048). „Langes Feld zur Ausgabe in eine Liste
…..
MOVE P0014 TO TX-KEY. „Schlüssel füllen
RP-IMP-C1-TX. „Import Cluster
…..
LOOP AT PTEXT. „Text einlesen und in Textline füllen
IF LEN < 2048.
MOVE PTEXT-LINE TO TEXTLINE+LEN.
ELSE.
EXIT.
ENDIF.
LEN = STRLEN( TEXTLINE ).
LEN = LEN + 1.
ENDLOOP.
…..