Beispiel: Realisierung EXIT_RSAQEXCE_001 (SAP-Bibliothek

Beispiel: Realisierung EXIT_RSAQEXCE_001

Nachfolgend wird ein einfaches Beispiel für eine Realisierung des Funktionsbausteins EXIT_RSAQEXCE_001 gegeben.

Die übergebenen Tabellen LISTDESC und DATATAB werden dabei als Liste ausgegeben, wobei im Falle der Tabelle LISTDESC auf die Ausgabe der Felder FCONT, FCURPOS und FGRAF verzichtet wird. Dieses einfache Beispiel zeigt aber deutlich, wie die einzelnen Parameter zu interpretieren sind und wie auf die Datentabelle zugegriffen werden kann.

***INCLUDE ZXQUEU01.

FIELD-SYMBOLS <F>.
NEW-PAGE LINE-SIZE 132.
WRITE: / 'Query', PROGRAM+16(14), 'of user group', PROGRAM+4(12).
ULINE. SKIP 1.
WRITE: / 'Fields of sublist', LIST_ID.
ULINE.
LOOP AT LISTDESC WHERE LID = LIST_ID.
  WRITE: / LISTDESC-FDESC,
           LISTDESC-FNAME,
           LISTDESC-FPOS,
           LISTDESC-FTYP,
           LISTDESC-FLEN,
           LISTDESC-FDEC,
           LISTDESC-FOLEN,
           LISTDESC-FCUR,
           LISTDESC-FADD.
           LISTDESC-FCOL.
ENDLOOP.
SKIP 1.
WRITE: / 'Data table'.
ULINE.
LOOP AT DATATAB.
  NEW-LINE.
  DO.
     ASSIGN COMPONENT SY-INDEX OF STRUCTURE DATATAB TO <F>.
    IF SY-SUBRC <> 0. EXIT. ENDIF.
    WRITE <F>.
  ENDDO.
ENDLOOP.
ULINE.