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.
-------------------------
PROCESS BEFORE OUTPUT.
CALL SUBSCREEN sub1 INCLUDING repid '2000' .
PROCESS AFTER INPUT.
CALL SUBSCREEN sub1.