Friday 2 January 2015

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 scarr-carrid.
SELECTION-SCREENEND OF BLOCK b1,
                                END OF SCREEN 001.

SELECTION-SCREENBEGIN OF SCREEN 002 AS SUBSCREEN,
                                BEGIN OF BLOCK b2.
PARAMETERS p_carrd TYPE spfli-carrid,
                       p_connd TYPE spfli-connid.
SELECTION-SCREENEND OF BLOCK b2,
                                END OF SCREEN 002.

SELECTION-SCREENBEGIN OF SCREEN 003 AS SUBSCREEN,
                                BEGIN OF BLOCK b3.
PARAMETERS p_carrid TYPE sflight-carrid,
                       p_connid TYPE sflight-connid,
                       p_fdate TYPE  sflight-fldate.
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
  tb2-prog sy-repid.
  tb2-dynnr '001'.
  tb2-activetab 'CODE21'.

AT SELECTION-SCREEN.
  CASE sy-ucomm.
    WHEN 'CODE21'.
      tb2-dynnr '001'.
    WHEN 'CODE22'.
      tb2-dynnr '002'.
    WHEN 'CODE23'.
      tb2-dynnr '003'.
    WHEN OTHERS.
  ENDCASE.

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




---------------------------------------------------------------------------------------------------------------------------------------

No comments:

Comments system

Disqus Shortname