D&P hat geschrieben:Code: Alles auswählen.
DATA: BEGIN OF beispiel, bezeichnung1(10) type c, wert1 type i, bezeichnung2(10) type c, wert2 type i, bezeichnung3(10) type c, wert3 type i, END OF beispiel.
Code: Alles auswählen.
REPORT.
DATA: ls_demo TYPE hrp1020.
FIELD-SYMBOLS: <ls_demo_analog> TYPE zdemo_hrp1020.
FIELD-SYMBOLS: <ls_gruppe> like <ls_demo_analog>-start.
* Ein paar Daten füllen
ls_demo-langu = 'D'.
ls_demo-bed01 = 10.
ls_demo-bed02 = 20.
ls_demo-bed03 = 30.
ls_demo-bed04 = 40.
* und die Struktur 4 Bereiche weiter unten auch mit füllen
ls_demo-langu004 = 'E'.
ls_demo-bed01004 = 100.
ls_demo-bed02004 = 200.
ls_demo-bed03004 = 300.
ls_demo-bed04004 = 400.
ASSIGN ls_demo TO <ls_demo_analog> CASTING.
DO 27 TIMES.
DATA(lv_index) = sy-index - 1.
ASSIGN <ls_demo_analog>-start INCREMENT lv_index TO <ls_gruppe>.
WRITE:/ lv_index, <ls_gruppe>-langu,<ls_gruppe>-bed01,<ls_gruppe>-bed02,<ls_gruppe>-bed03,<ls_gruppe>-bed04.
ENDDO.
Folgende Benutzer bedankten sich beim Autor black_adept für den Beitrag:
DeathAndPain
2 Wege nach Rom - einer im DDIC, einer im Code.DeathAndPain hat geschrieben:Wobei... sollte es für solch Programm nicht ausreichend sein, die Hilfsstrukturen lokal als Typen im Top-Include zu definieren?
Was hindert dich, lokale Typen zu verwenden?DeathAndPain hat geschrieben:Ja, nur vermeide ich es, für die Belange eines einzelnen Reports DDIC-Objekte anzulegen.