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.


 

 

Advertisements

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