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'.
          LEAVE TO SCREEN 0.
      WHEN OTHERS.
        ...
    ENDCASE.
  CLEAR: OK_CODE.
ENDMODULE.                 " USER_COMMAND_0888  INPUT