Mehrfacheinträge ausgeben

Code: Alles auswählen.

REPORT ZHR_ABFRAGE .

Tables: pa0000, pa0001, pa0050.

data: begin of datei occurs 1000,
pernr like pa0000-pernr,
zausw like pa0050-zausw,
stat2 like pa0000-stat2,
end of datei.

data: begin of datei1 occurs 1000,
pernr like pa0001-pernr,
bukrs like pa0001-bukrs,
end of datei1.

select * from pa0000 where stat2 eq '3'.
  move pa0000-pernr to datei-pernr.
  collect datei.
endselect.

loop at datei.
  select * from pa0001 where bukrs eq '1101' and pernr eq
  datei-pernr.
    move pa0001-pernr to datei1-pernr.
    collect datei1.
  endselect.
endloop.

loop at datei1.
  select * from pa0050 where pernr eq datei1-pernr and zausw ne 0000000
.
    write:/ '  ',pa0050-pernr,'   |','   ', pa0050-zausw,'    '.
  endselect.
endloop.