Code: Alles auswählen.
DATA: wa_file LIKE LINE OF file.
* ASSIGN file TO <zx>.
MOVE: 'ZX_FI_0003' TO wa_file-datei,
'IFIELD_0003' TO wa_file-table.
APPEND wa_file TO file.
MOVE: 'ZX_FI_0004' TO wa_file-datei,
'IFIELD_0004' TO wa_file-table.
(...)
PERFORM satzaufbau_zx_fi_xxxx. "Satzaufbau generieren für die Ausgabedateien
*&---------------------------------------------------------------------*
*& Form satzaufbau_zx_fi_xxxx
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
FORM satzaufbau_zx_fi_xxxx .
LOOP AT file into wa_file.
CALL FUNCTION 'Z_MIG_FELDATTRIBUTE'
EXPORTING
pexport = wa_file-datei
* IMPORTING
* PHYDATO =
TABLES
ifield = (wa_file-table)
EXCEPTIONS
fehler_dd02l = 1
fehler_umsetztabelle = 2
fehler_dateiname = 3
OTHERS = 4
.
ENDLOOP.
ENDFORM. " satzaufbau_zx_fi_xxxx