Using tabstrip on selection screen

This is a simplest exmaple:

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 OBLIGATORY,

q2(10) TYPE c OBLIGATORY,

q3(10) TYPE c OBLIGATORY.
SELECTION-SCREEN END OF BLOCK b2.
SELECTION-SCREEN END OF SCREEN 200.

* STANDARD SELECTION SCREEN
SELECTION-SCREEN: BEGIN OF TABBED BLOCK mytab FOR 10 LINES,

TAB (30) button1 USER-COMMAND push1

DEFAULT SCREEN 100,

TAB (30) button2 USER-COMMAND push2

DEFAULT SCREEN 200,

TAB (30) button3 USER-COMMAND push3

DEFAULT SCREEN 300,

END OF BLOCK mytab.

INITIALIZATION.
button1 = text-010.
button2 = text-020.
button3 = text-030.

*
As my test result, the following statement is
NOT necessary.
mytab-prog = sy-repid.
mytab-dynnr = 100.
mytab-activetab = ‘BUTTON1′.

Comments are closed.