Tabbed Block

* To hide or display the selection screen in Runtime of the program "tabbed block" is used

code:

Report ztest.
tables: bsak.
*selection screen
selection-screen: begin of block b1 with frame title text-001.
select-options : so_bukrs for bsak-bukrs ,
so_augbl for bsak-augbl ,
so_gjahr for bsak-gjahr,
so_lifnr for bsak-lifnr no-display.
selection-screen: end of block b1.

selection-screen begin of block b2 with frame title text-003.
parameters : r1 radiobutton group g1 user-command d,
r2 radiobutton group g1.
selection-screen end of block b2.

* sub screen 100
selection-screen begin of screen 100 as subscreen.
selection-screen end of screen 100.

* sub screen 200
selection-screen begin of screen 200 as subscreen.
Selection-screen begin of block b3 with frame title text-002.
parameters: pr_zuonr type bseg-zuonr.
selection-screen end of block b3.
selection-screen end of screen 200.


*tabbed block
* this block reserves particular lines to display the selection screen in runtime of the program.
selection-screen: begin of tabbed block mytab for 10 lines,
end of block mytab.

*Initialization
initialization.
mytab-prog = sy-repid.
mytab-dynnr = 100.

At selection-screen on radiobutton group g1.
If r1 = 'X'.
mytab-dynnr = 100.
else.
mytab-dynnr = 200.
Endif.