Arbeiten mit Field-Symbols

Code: Alles auswählen.

REPORT ZMACQTES MESSAGE-ID ZQ
                NO STANDARD PAGE HEADING
                LINE-COUNT 60 LINE-SIZE 160.

*************************************************************
*  Übung 1                                                  *
*  Tabelle einlesen und ausgeben                            *
*  Variante 3                                               *
*  von Massimo Acquasanta                                   *
*  am 29.03.2006 erstellt                                   *
*  Version 0.7                                              *
*************************************************************


**** Variablen ****
**** zugreifende Tabellen ****
TABLES: ZQMAB,                         "Tabelle Mitarbeiterdaten"
        ZQABT,                         "Tabelle Abteilungsdaten"
        ZQORT.                         "Tabelle Ortdaten"


DATA: BEGIN OF FD_ZQMAB_ABT,
         EXP(1) TYPE C,
         MANDT LIKE ZQMAB-MANDT,
         ABTEILUNG LIKE ZQMAB-ABTEILUNG,
         NUMMER LIKE ZQMAB-NUMMER,
         NAME LIKE ZQMAB-NAME,
         BERUF LIKE ZQMAB-BERUF,
         EINDATUM LIKE ZQMAB-EINDATUM,
         GEHALT LIKE ZQMAB-GEHALT,
         BEZEICHN LIKE ZQABT-BEZEICHN,
         POSTZAHL LIKE ZQABT-POSTZAHL,
         ORT LIKE ZQORT-ORT,
      END OF FD_ZQMAB_ABT.


**** Tabelle I_ZQMAB_ABT ****
DATA: I_ZQMAB_ABT LIKE FD_ZQMAB_ABT OCCURS 0 WITH HEADER LINE.

**** Feldleiste für interne Tabelle I_ZQMAB_ORT für ORT ****
**** nach Ort aufgebaut ****
DATA: BEGIN OF FD_ZQMAB_ORT,
         EXP(1) TYPE C,
         MANDT LIKE ZQMAB-MANDT,
         ORT LIKE ZQORT-ORT,
         NUMMER LIKE ZQMAB-NUMMER,
         NAME LIKE ZQMAB-NAME,
         BERUF LIKE ZQMAB-BERUF,
         EINDATUM LIKE ZQMAB-EINDATUM,
         GEHALT LIKE ZQMAB-GEHALT,
         BEZEICHN LIKE ZQABT-BEZEICHN,
         POSTZAHL LIKE ZQABT-POSTZAHL,
         ABTEILUNG LIKE ZQMAB-ABTEILUNG,
      END OF FD_ZQMAB_ORT.


**** Tabelle I_ZQMAB_ABT ****
DATA: I_ZQMAB_ORT like FD_ZQMAB_ORT OCCURS 0 WITH HEADER LINE.

DATA: WA_ABT LIKE LINE OF I_ZQMAB_ABT.
DATA: WA_ORT LIKE LINE OF I_ZQMAB_ORT.


* Variable für Tabellenname zur internen Weiterverarbeitung
DATA: ITABNAME(13) TYPE C.
DATA: WANAME(13) TYPE C.


**** Feld-Symbol deklarieren für die Tabelle ****
FIELD-SYMBOLS: <ITAB> TYPE TABLE.
*field-symbols: <wa> type table.
FIELD-SYMBOLS: <WA> STRUCTURE WA_ABT DEFAULT WA_ABT.

WANAME = 'I_ZQMAB_ABT'.
ITABNAME = 'I_ZQMAB_ABT[]'.

ASSIGN (ITABNAME) TO <ITAB>.
ASSIGN (WANAME) TO <WA>.

PERFORM READ_WRITE.


*---------------------------------------------------------------------*
*       FORM READ_WRITE                                               *
*---------------------------------------------------------------------*
*       ........                                                      *
*---------------------------------------------------------------------*
FORM READ_WRITE.
  SELECT * FROM ZQMAB
    INTO CORRESPONDING FIELDS OF TABLE <itab>.

  LOOP AT <itab> into <WA>.
    WRITE: / 'Name', <WA>-NAME.
  ENDLOOP.

ENDFORM.

Code: Alles auswählen.

FIELD-SYMBOLS: <WA> STRUCTURE WA_ABT DEFAULT WA_ABT.