版权声明:署名,允许他人基于本文进行创作,且必须基于与原先许可协议相同的许可协议分发本文 (Creative Commons)
REPORT ZPAGENAME.
PARAMETERS: name TYPE trdir-unam OBLIGATORY,
date TYPE trdir-udat OBLIGATORY.
DATA: lt_trdir TYPE STANDARD TABLE OF trdir,
lt_page TYPE STANDARD TABLE OF o2pagdir.
TYPES: BEGIN OF ty_impl,
name TYPE o2pagdir-implclass,
END OF ty_impl.
TYPES: tt_impl TYPE STANDARD TABLE OF ty_impl.
START-OF-SELECTION.
SELECT * INTO TABLE lt_trdir FROM trdir WHERE unam = name AND udat = date.
CHECK lt_trdir IS NOT INITIAL.
DATA: lt_impl TYPE tt_impl,
ls_trdir TYPE trdir,
ls_impl TYPE ty_impl.
LOOP AT lt_trdir INTO ls_trdir.
ls_impl-name = ls_trdir-name.
APPEND ls_impl TO lt_impl.
ENDLOOP.
SELECT * INTO TABLE lt_page FROM o2pagdir FOR ALL ENTRIES IN lt_impl
WHERE implclass = lt_impl-name.
BREAK-POINT.