Code: Alles auswählen.
FORM write_list.
loop at itab_collect.
select single * from hrp1001
where otype eq 'A' and
objid eq itab_collect-hroid and
relat eq '008' and
infty eq '1001' and
sclas eq 'P'.
if sy-subrc ne '0'.
write /2 itab_collect-arbpl.
endif.
AT END OF flag.
new-page.
endat.
endloop.
ENDFORM.
Code: Alles auswählen.
top-of-page.
format color col_heading.
if itab_collect-flag eq 'A'.
write: /2 'Personal-Arbeitsplätze ohne HR-Verknüpfung'.
elseif itab_collect-flag eq 'B'.
write: /2 'Hardware-Arbeitsplätze ohne HR-Verknüpfung'.
elseif itab_collect-flag eq 'C'.
write: /2 'sonstige Arbeitsplätze ohne HR-Verknüpfung'.
else.
format color off.
write: /2 'Es wurden keine Arbeitsplätze mit fehlender HR-Verknüpfung
gefunden!'.
endif.