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

4. Implementing TABSTRIPS:4.1 Tab strips in selection :Demo*&---------------------------------------------------------------------*
*& Report  ZTABSTRIP1
*&---------------------------------------------------------------------*
REPORT  ztabstrip1
       NO STANDARD PAGE HEADING.
*---------------------------------------------------------------------*
*   Selection screen
*---------------------------------------------------------------------
*Selection screen for vendor1 and vendor2.
SELECTION-SCREEN BEGIN OF SCREEN 101 AS SUBSCREEN.
SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE text-001.
PARAMETERS: p_rad1 RADIOBUTTON GROUP grp1 DEFAULT 'X'
                                         USER-COMMAND check,
            p_rad2 RADIOBUTTON GROUP grp1.
SELECTION-SCREEN END OF BLOCK b1.
SELECTION-SCREEN END OF SCREEN 101.

SELECTION-SCREEN BEGIN OF SCREEN 102 AS SUBSCREEN.
SELECTION-SCREEN BEGIN OF BLOCK b2 WITH FRAME TITLE text-002.
PARAMETERS: p_char1(5TYPE c.
SELECTION-SCREEN END OF BLOCK b2.
SELECTION-SCREEN END OF SCREEN 102. SELECTION-SCREEN BEGIN OF SCREEN
103 AS SUBSCREEN.
SELECTION-SCREEN BEGIN OF BLOCK b3 WITH FRAME TITLE text-003.
PARAMETERS: p_char2(5TYPE c.
SELECTION-SCREEN END OF BLOCK b3.
SELECTION-SCREEN END OF SCREEN 103.
SELECTION-SCREEN BEGIN OF TABBED BLOCK one FOR 20 LINES.
SELECTION-SCREEN TAB (15) name1 USER-COMMAND ucomm1
DEFAULT SCREEN 101.
SELECTION-SCREEN TAB (17) name2 USER-COMMAND ucomm2
DEFAULT SCREEN 102.
SELECTION-SCREEN TAB (17) name3 USER-COMMAND ucomm3
DEFAULT SCREEN 103.
SELECTION-SCREEN END OF BLOCK one.
*---------------------------------------------------------------------*
* Initialization
*---------------------------------------------------------------------
INITIALIZATION.

  name1 = 'Tab 1'.
  name2 = 'Tab 2'.
  name3 = 'Tab 3'.

*---------------------------------------------------------------------*
*   AT SELECTION-SCREEN
*---------------------------------------------------------------------
AT SELECTION-SCREEN OUTPUT.

  LOOP AT SCREEN.
    IF p_rad2 = 'X'.
      IF screen-name = 'NAME3'.
        screen-invisible = '1'.
        MODIFY SCREEN.
      ENDIF.
    ENDIF.
  ENDLOOP. Output: