tabstrip control

PROCESS BEFORE OUTPUT.
MODULE STATUS_0888.
CALL SUBSCREEN: SUB1 INCLUDING SY-REPID '900',
SUB2 INCLUDING SY-REPID '901'.
PROCESS AFTER INPUT.
CALL SUBSCREEN: SUB1,
SUB2.
MODULE USER_COMMAND_0888.



*----------------------------------------------------------------------*
***INCLUDE ZINC_888 .
*----------------------------------------------------------------------*
*&---------------------------------------------------------------------*
*& Module STATUS_0888 OUTPUT
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
MODULE STATUS_0888 OUTPUT.
SET PF-STATUS 'TESTING'.
SET TITLEBAR '0888'.

ENDMODULE. " STATUS_0888 OUTPUT
*&---------------------------------------------------------------------*
*& Module USER_COMMAND_0888 INPUT
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
MODULE USER_COMMAND_0888 INPUT.
OK_CODE = SY-UCOMM.
CLEAR: SY-UCOMM.
CASE OK_CODE.
WHEN 'BACK' OR 'RETURN' OR 'CANCEL'.
LE***E TO SCREEN 0.
WHEN OTHERS.
...
ENDCASE.
CLEAR: OK_CODE.
ENDMODULE. " USER_COMMAND_0888 INPUT