SCN Wiki upgrade to version 6.13 on Tuesday 19.11.2019 - beginning 07:30 am CET

During upgrade process new content will not be transported to new Wiki version

Registration

Dear SAP Community Member,
In order to fully benefit from what the SAP Community has to offer, please register at:
http://scn.sap.com
Thank you,
The SAP Community team.
Skip to end of metadata
Go to start of metadata 
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.