report z_barry_test.
tables mara.
data: ok_code like sy-ucomm,
repid like sy-repid.
selection-screen begin of screen 2000 as subscreen.
parameters p_erdat like sy-datum obligatory.
select-options s_matnr for mara-matnr .
selection-screen end of screen 2000.
start-of-selection.
repid = sy-repid.
call screen 100.
*在这个DialogScreen
process before output.
call subscreen sub1 including repid '2000'.
process after input.
call subscreen sub1.