Creating Sub screens in Selection Screen

This program enables you to create subscreens in selection screen.
DATA flag.
** SUBSCREEN 1

SELECTION-SCREEN BEGIN OF SCREEN 100 AS SUBSCREEN.
SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME.
PARAMETERS: name1(20) TYPE c,
            name2(20) TYPE c,
            name3(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: addr1(20) TYPE c ,
            addr2(20) TYPE c ,
            addr3(20) TYPE c .
SELECTION-SCREEN END OF BLOCK b2.
SELECTION-SCREEN END OF SCREEN 200.

** STANDARD SELECTION SCREEN

SELECTION-SCREEN: BEGIN OF TABBED BLOCK nit_tab FOR 10 LINES,
                  TAB (20) tab1 USER-COMMAND nit1,
                  TAB (20) tab2 USER-COMMAND nit2,
                  END OF BLOCK nit_tab.

INITIALIZATION.

  tab1 = 'TAB1'.
  tab2 = 'TAB2'.
  nit_tab-prog = sy-repid.
  nit_tab-dynnr = 100.
  nit_tab-activetab = 'TAB1'.

AT SELECTION-SCREEN.
  CASE sy-dynnr.
    WHEN 1000.
      CASE sy-ucomm.
        WHEN 'NIT1'.
          nit_tab-dynnr = 100.
          nit_tab-activetab = 'TAB1'.
        WHEN 'NIT2'.
          nit_tab-dynnr = 200.
          nit_tab-activetab = 'TAB2'.
      ENDCASE.
  ENDCASE.
 
START-OF-SELECTION.
  WRITE: / 'Name:', name1, name2, name3 NO-GAP,
         / 'Address Line1:', addr1, addr2, addr3.