Code: Alles auswählen.
DATA: BEGIN OF strukt OCCURS 0,
Feld1(6) TYPE c,
Feld2(6) TYPE c,
betrag(8) TYPE p DECIMALS 2,
END OF strukt.
OPEN DATASET datei FOR OUTPUT IN LEGACY TEXT MODE BIG ENDIAN CODE PAGE '0100'.
Loop at strukt.
"Bearbeitung
transfer strukt to datei.
Endloop.
Code: Alles auswählen.
OPEN DATASET file FOR INPUT IN LEGACY TEXT MODE BIG ENDIAN CODE PAGE '0100'
WHILE sy-subrc = 0.
READ DATASET file INTO strukt.
CHECK sy-subrc = 0.
APPEND strukt.
ENDWHILE.
CLOSE DATASET file.
Code: Alles auswählen.
DATA: BEGIN OF strukt OCCURS 0,
Feld1(6) TYPE c,
Feld2(6) TYPE c,
betrag(8) TYPE p DECIMALS 2,
END OF strukt.
DATA: ld_string TYPE string.
OPEN DATASET datei FOR OUTPUT IN LEGACY TEXT MODE BIG ENDIAN CODE PAGE '0100'.
Loop at strukt.
"Bearbeitung
ld_string = |{ strukt-feld1 }{ strukt-feld2 }{ strukt-betrag }|.
transfer ld_string to datei.
Endloop.