ABAP – Kommentare zu Infotypsätzen lesen

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

close

Wollen Sie ab sofort per Mail über neue Beiträge informiert werden? Dann tragen Sie sich in unsere Mailingliste ein.

Schreibe einen Kommentar

Ihre E-Mail-Adresse wird nicht veröffentlicht. Erforderliche Felder sind mit * markiert.