If yes, then you need another dummy subscreen.
DATA: dynpro01 TYPEc LENGTH 4 VALUE '9003'.
SELECTION-SCREEN BEGIN OF SCREEN 9003 AS SUBSCREEN.
* Nothing in this dummy subscreen.
SELECTION-SCREEN END OF SCREEN 9003.
PROCESS BEFORE OUTPUT.
MODULE STATUS_9000.
CALL SUBSCREEN REF1 INCLUDING sy-repid '9001'.
CALL SUBSCREEN REF2 INCLUDING sy-repid dynpro01.
MODULE user_command_9000 INPUT.
ok_code = sy-ucomm.
CASE ok_code.
WHEN 'SUBMIT'.
dynpro01 = '9002'.
ENDCASE.
ENDMODULE.
regards,
Archer
