*--200作为第二个子屏幕
SELECTION-SCREEN BEGIN OF SCREEN 100 AS SUBSCREEN.
SELECTION-SCREEN SKIP.
PARAMETERS: tab1_01 TYPE c LENGTH 10,
tab1_02 TYPE c LENGTH 10.
SELECTION-SCREEN END OF SCREEN 100.
*--200作为第二个子屏幕
SELECTION-SCREEN BEGIN OF SCREEN 200 AS SUBSCREEN.
SELECTION-SCREEN SKIP.
PARAMETERS: tab2_01 TYPE c LENGTH 10,
tab2_02 TYPE c LENGTH 10.
SELECTION-SCREEN END OF SCREEN 200.
*--将子屏幕存放到页签mytab中,
*--随着页签的mytab的建立,系统自动创建一个名称为MYTAB的变量,用于控制页签的当前子屏幕
SELECTION-SCREEN: BEGIN OF TABBED BLOCK mytab FOR 5 LINES,
*--两个页签分别为button1 button2 并指定响应事件的功能码 push1 push2
TAB (20) button1 USER-COMMAND push1,
TAB (20) button2 USER-COMMAND push2,
END OF BLOCK mytab.