Donnerstag, 8. September 2011

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


Keine Kommentare:

Kommentar veröffentlichen