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.