Selection-Screen TABS

Question

Hi All ,
I have created one selection screen with TABS.
But, I want to give the names for that TABS.
My code is :
SELECTION-SCREEN BEGIN OF TABBED BLOCK TABB1 FOR 20 LINES.
SELECTION-SCREEN tab (40) tab1 USER-COMMAND tab1
DEFAULT SCREEN 1010  .
SELECTION-SCREEN TAB (20) TAB2 USER-COMMAND TAB2
DEFAULT SCREEN 1020.
SELECTION-SCREEN END OF BLOCK TABB1.
*I have a radiobutton group in each of my tabs in the selection screen.
SELECTION-SCREEN BEGIN OF SCREEN 1010 AS SUBSCREEN  .
SELECTION-SCREEN BEGIN OF BLOCK GUI WITH FRAME TITLE TEXT-001.
PARAMETERS: P_GUI1 RADIOBUTTON GROUP GUI,
P_GUI2 RADIOBUTTON GROUP GUI,
P_GUI3 RADIOBUTTON GROUP GUI,
P_GUI4 RADIOBUTTON GROUP GUI,
P_GUI5 RADIOBUTTON GROUP GUI.
SELECTION-SCREEN END OF BLOCK GUI.
SELECTION-SCREEN END OF SCREEN 1010.
SELECTION-SCREEN BEGIN OF SCREEN 1020 AS SUBSCREEN.
SELECTION-SCREEN BEGIN OF BLOCK REP WITH FRAME." TITLE TEXT-REP.
PARAMETERS: P_REP1 RADIOBUTTON GROUP REP,
P_REP2 RADIOBUTTON GROUP REP,
P_REP3 RADIOBUTTON GROUP REP.
SELECTION-SCREEN END OF BLOCK REP.
SELECTION-SCREEN END OF SCREEN 1020.
Please any one help me how to solve this problem.
Regards,
Vandu.

Answer 1

Pl. see this sample code.
REPORT zravie_tabs_in_sel_screen .
*Creating tabs in selection screen
TABLES : zemp3,zdept,sscrfields.
DATA : gt_itab LIKE zemp3 OCCURS 0 WITH HEADER LINE.
*Subscreen 1
SELECTION-SCREEN BEGIN OF SCREEN 100 AS SUBSCREEN.
SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE text-000.
SELECTION-SCREEN SKIP.
SELECTION-SCREEN ULINE.
SELECT-OPTIONS : so_dno FOR zdept-deptno.
SELECTION-SCREEN ULINE.
SELECTION-SCREEN SKIP.
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 TITLE text-001.
SELECTION-SCREEN SKIP.
SELECTION-SCREEN ULINE.
SELECT-OPTIONS : so_eno FOR zemp3-empno.
SELECTION-SCREEN ULINE.
SELECTION-SCREEN SKIP.
SELECTION-SCREEN END OF BLOCK b2.
SELECTION-SCREEN END OF SCREEN 200.
SELECTION-SCREEN : FUNCTION KEY 1,
                   FUNCTION KEY 2.
SELECTION-SCREEN : BEGIN OF TABBED BLOCK sub FOR 20 LINES,
                   END OF BLOCK sub.
INITIALIZATION .
  sscrfields-functxt_01 = 'Department information'.
  sscrfields-functxt_02 = 'Employee information'.
  sub-prog = sy-repid.
  sub-dynnr = 100.
AT SELECTION-SCREEN.
  CASE sy-dynnr.
    WHEN '0100'.
      IF sscrfields-ucomm = 'FC02'.
        sub-dynnr = 200.
      ELSE.
        sub-dynnr = 100.
      ENDIF.
    WHEN '0200'.
      IF sscrfields-ucomm = 'FC01'.
        sub-dynnr = 100.
      ELSE.
        sub-dynnr = 200.
      ENDIF.
  ENDCASE.
TOP-OF-PAGE.
  PERFORM header_display.
START-OF-SELECTION.
  CASE sub-dynnr.
    WHEN '100'.
     SELECT empno ename job salary FROM zemp3 INTO CORRESPONDING FIELDS
      OF TABLE gt_itab WHERE deptno IN so_dno.
      PERFORM records_display TABLES gt_itab.
    WHEN '200'.
     SELECT empno ename job salary FROM zemp3 INTO CORRESPONDING FIELDS
       OF TABLE gt_itab WHERE empno IN so_eno.
      PERFORM records_display TABLES gt_itab.
  ENDCASE.
*&      Form  records_display
      text
     -->P_GT_ITAB  text
FORM records_display TABLES   l_gt_itab STRUCTURE gt_itab.
  LOOP AT l_gt_itab.
    WRITE : / l_gt_itab-empno  UNDER text-003,
              l_gt_itab-ename  UNDER text-004,
              l_gt_itab-job    UNDER text-005,
              l_gt_itab-salary UNDER text-006.
  ENDLOOP.
ENDFORM.                    " records_display
*&      Form  header_display
      text
-->  p1        text
<--  p2        text
FORM header_display.
  FORMAT COLOR COL_HEADING INVERSE ON INTENSIFIED ON.
  WRITE AT 5  text-003.
  WRITE AT 20 text-004.
  WRITE AT 40 text-005.
  WRITE AT 70 text-006.
  SKIP 1.
  FORMAT COLOR OFF INVERSE OFF INTENSIFIED OFF.
ENDFORM.                    " header_display
Also check these standard demo programs
DEMO_SEL_SCREEN_WITH_TABSTRIP
DEMO_SEL_SCREEN_IN_TABSTRIP
Regards,
Joy.
Edited by: Joyjit Ghosh on Jun 30, 2008 4:58 PM