Tabbed Block at Selection-screen


 Step1. Here is the short prog code:


SELECTION-SCREENBEGIN OF SCREEN 001 AS SUBSCREEN,
BEGIN OF BLOCK b1.
PARAMETERS p_carr TYPE scarrcarrid.
SELECTION-SCREENEND OF BLOCK b1,
END OF SCREEN 001.

SELECTION-SCREENBEGIN OF SCREEN 002 AS SUBSCREEN,
BEGIN OF BLOCK b2.
PARAMETERS p_carrd TYPE spflicarrid,
p_connd TYPE spfliconnid.
SELECTION-SCREENEND OF BLOCK b2,
END OF SCREEN 002.

SELECTION-SCREENBEGIN OF SCREEN 003 AS SUBSCREEN,
BEGIN OF BLOCK b3.
PARAMETERS p_carrid TYPE sflightcarrid,
p_connid TYPE sflightconnid,
p_fdate TYPE  sflightfldate.
SELECTION-SCREENEND OF BLOCK b3,
END OF SCREEN 003.

 

SELECTION-SCREEN BEGIN OF TABBED BLOCK tb1 FOR 10 LINES,
TAB (15tab11 USER-COMMAND code11 DEFAULT SCREEN 001,
TAB (15tab12 USER-COMMAND code12 DEFAULT SCREEN 002,
TAB (15tab13 USER-COMMAND code13 DEFAULT SCREEN 003,
END OF BLOCK tb1.

SELECTION-SCREEN BEGIN OF TABBED BLOCK tb2 FOR 10 LINES,
TAB (15tab21 USER-COMMAND code21 ,
TAB (15tab22 USER-COMMAND code22 ,
TAB (15tab23 USER-COMMAND code23 ,
END OF BLOCK tb2.

INITIALIZATION.
tab11 tab21 ‘Scarr Input’.
tab12 tab22 ‘Spfli Input’.
tab13 tab23 ‘Sflight Input’.
*** For Second Tabbed Block
tb2prog syrepid.
tb2dynnr ‘001’.
tb2activetab ‘CODE21’.

AT SELECTION-SCREEN.
CASE syucomm.
WHEN ‘CODE21’.
tb2dynnr ‘001’.
WHEN ‘CODE22’.
tb2dynnr ‘002’.
WHEN ‘CODE23’.
tb2dynnr ‘003’.
WHEN OTHERS.
ENDCASE.


Step2. Execute the program and here we have the selection screen output.


 

 

Leave a Reply

Fill in your details below or click an icon to log in:

WordPress.com Logo

You are commenting using your WordPress.com account. Log Out /  Change )

Google photo

You are commenting using your Google account. Log Out /  Change )

Twitter picture

You are commenting using your Twitter account. Log Out /  Change )

Facebook photo

You are commenting using your Facebook account. Log Out /  Change )

Connecting to %s