Code: Alles auswählen.
* USERCR = ButtonFunktionscode
CASE sy-ucomm.
WHEN 'USERCR'.
gr_exec->display_grid( ).
CALL SCREEN 0300.
CLEAR: sscrfields, sy-ucomm.
ENDCASE.
Code: Alles auswählen.
MODULE exitfromsub INPUT.
gv_ok = sy-ucomm.
IF gv_ok EQ 'BACK' OR
gv_ok EQ 'RW' OR
gv_ok EQ '%EX'.
CLEAR gv_ok.
CLEAR sy-ucomm.
CALL SELECTION-SCREEN 1000.
* SET SCREEN 0.
LEAVE TO SCREEN 0.
ENDIF.
ENDMODULE.
Code: Alles auswählen.
PROCESS BEFORE OUTPUT.
MODULE STATUS_0300.
Call SUBSCREEN sub1 INCLUDING sy-cprog '0101'.
PROCESS AFTER INPUT.
MODULE USER_COMMAND_0300.
Call SUBSCREEN sub1. "Muss ausgeführt werden, da Buttons sonst nicht clickbar sind.
MODULE exitfromsub AT EXIT-COMMAND.
Code: Alles auswählen.
CALL SELECTION-SCREEN 1000.