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.
…..