Hallo!
Ja, hab den Pretty Printer auch schon drüber laufen laßen.
So sieht mein Coding aus ....
Danke
Robin
REPORT zsumla.
DATA: BEGIN OF itab_sumla2 OCCURS 10,
lifnr LIKE lfa1-lifnr,
land1 LIKE lfa1-land1,
diekz LIKE bsik-diekz,
belnr LIKE bsik-belnr,
zuonr LIKE bsik-zuonr,
blart LIKE bsik-blart,
bukrs LIKE bsik-bukrs,
monat LIKE bsik-monat,
gjahr LIKE bsik-gjahr,
shkzg LIKE bsik-shkzg,
bschl LIKE bsik-bschl,
dmbtr LIKE bsik-dmbtr,
wrbtr LIKE bsik-wrbtr,
hkont LIKE bsik-hkont,
zdlkz LIKE zdlkz_t-zdlkz,
bezeichnung LIKE zdlkz_t-bezeichnung,
soha TYPE p DECIMALS 2,
soll TYPE p DECIMALS 2,
haben TYPE p DECIMALS 2,
zahler TYPE i,
laenge TYPE i,
END OF itab_sumla2.
START-OF-SELECTION.
SELECT a~lifnr a~land1 b~hkont b~belnr b~zuonr b~blart
b~bukrs b~monat b~gjahr b~shkzg b~wrbtr b~buzei
INTO CORRESPONDING FIELDS OF TABLE itab_sumla2
FROM lfa1 AS a
INNER JOIN bsik AS b
ON a~lifnr = b~lifnr
WHERE b~bukrs = ?1001?
AND b~blart IN (?A1?, ?A2?, ?A3?)
AND b~bschl IN (?50?, ?40?)
AND a~land1 IN so_land
AND b~gjahr IN range
AND b~zuonr IN so_dlkz
AND b~monat IN so_perio.
LOOP AT itab_sumla2.
MOVE itab_sumla2-land1 TO itab_sumla-land1.
MOVE itab_sumla2-blart TO itab_sumla-blart.
MOVE itab_sumla2-monat TO itab_sumla-monat.
MOVE itab_sumla2-gjahr TO itab_sumla-gjahr.
MOVE itab_sumla2-zdlkz TO itab_sumla-zdlkz.
MOVE itab_sumla2-belnr TO itab_sumla-belnr.
MOVE itab_sumla2-lifnr TO itab_sumla-lifnr.
MOVE itab_sumla2-wrbtr TO itab_sumla-wrbtr.
MOVE itab_sumla2-zuonr TO itab_sumla-zuonr.
APPEND itab_sumla.
CLEAR itab_sumla2.
ENDLOOP.
LOOP AT itab_sumla3.
......