Tabstrips on the Selection Screen

Source Code :

  DATA flag(5) TYPE c.

* SUBSCREEN 1

SELECTION-SCREEN BEGIN OF SCREEN 100 AS SUBSCREEN.
SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME.
PARAMETERS: param1(20) TYPE c,
            param2(20) TYPE c,
            param3(20) TYPE c.
SELECTION-SCREEN END OF BLOCK b1.
SELECTION-SCREEN END OF SCREEN 100.

* SUBSCREEN 2

SELECTION-SCREEN BEGIN OF SCREEN 200 AS SUBSCREEN.
SELECTION-SCREEN BEGIN OF BLOCK b2 WITH FRAME.
PARAMETERS: select1(20) TYPE c ,
            select2(20) TYPE c ,
            select3(20) TYPE c .
SELECTION-SCREEN END OF BLOCK b2.
SELECTION-SCREEN END OF SCREEN 200.

* STANDARD SELECTION SCREEN

SELECTION-SCREEN: BEGIN OF TABBED BLOCK tab FOR 10 LINES,
                  TAB (20) button1 USER-COMMAND push1,
                  TAB (20) button2 USER-COMMAND push2,
                  END OF BLOCK tab.

INITIALIZATION.
  button1 = 'TAB 1'.
  button2 = 'TAB 2'.
  tab-prog = sy-repid.
  tab-dynnr = 100.
  tab-activetab = 'BUTTON1'.

AT SELECTION-SCREEN.
  CASE sy-dynnr.
    WHEN 1000.
      CASE sy-ucomm.
        WHEN 'PUSH1'.
          tab-dynnr = 100.
          tab-activetab = 'BUTTON1'.
        WHEN 'PUSH2'.
          tab-dynnr = 200.
          tab-activetab = 'BUTTON2'.
      ENDCASE.
    WHEN 100.
      flag = '100'.
      MESSAGE s888(sabapdocu) WITH text-101 sy-dynnr.
    WHEN 200.
      flag = '200'.
      MESSAGE s888(sabapdocu) WITH text-102 sy-dynnr.
  ENDCASE.

START-OF-SELECTION.
  CASE flag.
    WHEN '100'.
      WRITE: / 'Parameter1:', param1,
             / 'Parameter2:', param2,
             / 'Parameter3:', param3.
    WHEN '200'.
      WRITE: / 'Select1:', select1,
             / 'Select2:', select2,
             / 'Select3:', select3.
    WHEN OTHERS.
  ENDCASE.