*-----------------------------------------------------------------------------------
*动态方式分配
*-----------------------------------------------------------------------------------
TABLES SSCRFIELDS.
SELECTION-SCREEN BEGIN OF SCREEN 100 AS SUBSCREEN.
PARAMETERS: P1 TYPE C LENGTH 10,
P2 TYPE C LENGTH 10,
P3 TYPE C LENGTH 10.
SELECTION-SCREEN END OF SCREEN 100.
SELECTION-SCREEN BEGIN OF SCREEN 200 AS SUBSCREEN.
PARAMETERS: Q1 TYPE C LENGTH 10,
Q2 TYPE C LENGTH 10,
Q3 TYPE C LENGTH 10.
SELECTION-SCREEN END OF SCREEN 200.
SELECTION-SCREEN: BEGIN OF TABBED BLOCK MYTAB FOR 10 LINES,
TAB (20) BUTTON1 USER-COMMAND PUSH1,
TAB (20) BUTTON2 USER-COMMAND PUSH2,
END OF BLOCK MYTAB.
INITIALIZATION.
BUTTON1 = ‘SELECTION SCREEN 1‘.
BUTTON2 = ‘SELECTION SCREEN 2‘.
MYTAB-PROG = SY-REPID.
MYTAB-DYNNR = 100.
MYTAB-ACTIVETAB = ‘PUSH1‘.
AT SELECTION-SCREEN.
CASE SY-DYNNR.
WHEN 1000.
CASE SY-UCOMM.
WHEN ‘PUSH1‘.
MYTAB-DYNNR = 100.
WHEN ‘PUSH2‘.
MYTAB-DYNNR = 200.
ENDCASE.
ENDCASE.
*-----------------------------------------------------------------------------------
*静态方式分配
*-----------------------------------------------------------------------------------
SELECTION-SCREEN BEGIN OF SCREEN 100 AS SUBSCREEN.
PARAMETERS: P1 TYPE C LENGTH 10,
P2 TYPE C LENGTH 10,
P3 TYPE C LENGTH 10.
SELECTION-SCREEN END OF SCREEN 100.
SELECTION-SCREEN BEGIN OF SCREEN 200 AS SUBSCREEN.
PARAMETERS: Q1 TYPE C LENGTH 10,
Q2 TYPE C LENGTH 10,
Q3 TYPE C LENGTH 10.
SELECTION-SCREEN END OF SCREEN 200.
SELECTION-SCREEN: BEGIN OF TABBED BLOCK MYTAB FOR 10 LINES,
TAB (20) BUTTON1 USER-COMMAND PUSH1
DEFAULT SCREEN 100,
TAB (20) BUTTON2 USER-COMMAND PUSH2
DEFAULT SCREEN 200,
END OF BLOCK MYTAB.
INITIALIZATION.
BUTTON1 = ‘SELECTION SCREEN 1‘.
BUTTON2 = ‘SELECTION SCREEN 2‘.
原文:https://www.cnblogs.com/RinShow/p/11818414.html