An SAP Consultant

REPORT zdemo_sel_screen_with_tabstrip.
" SUBSCREEN 1
SELECTION-SCREEN BEGIN OF SCREEN 100 AS SUBSCREEN.
SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME.
PARAMETERS: p1(10) TYPE c,
p2(10) TYPE c,
p3(10) 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: q1(10) TYPE c ,
q2(10) TYPE c ,
q3(10) TYPE c .
SELECTION-SCREEN END OF BLOCK b2.
SELECTION-SCREEN END OF SCREEN 200.
"Tabstrip
SELECTION-SCREEN: BEGIN OF TABBED BLOCK mytab FOR 10 LINES,
TAB (20) button1 USER-COMMAND push1, "By default this one
TAB (20) button2 USER-COMMAND push2,
END OF BLOCK mytab.

*INITIALIZATION
INITIALIZATION.
button1 = 'tab1'.
button2 = 'tab2'.

mytab-prog = sy-repid.
mytab-dynnr = 200.
mytab-activetab = 'PUSH2'. "Change to Tab 2