Selection-Screen TABS

[Former Member]

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.

[b_deterd2]

Hi,

In your INITILAIZATION event set the name for the tab.

INITIALIZATION.
  TAB1 = TEXT-008.

[Former Member]

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