ABAP多标签选择屏幕的使用

REPORT zzzzz.

DATA: g_dynnr LIKE sy - dynnr. " 当前屏幕的编号

" 定义两个子屏幕
SELECTION - SCREEN BEGIN OF SCREEN 100 AS SUBSCREEN.
PARAMETERS p_file TYPE tabname.
SELECTION - SCREEN END OF SCREEN 100 .

SELECTION - SCREEN BEGIN OF SCREEN 300 AS SUBSCREEN.
PARAMETERS p_file2 TYPE tabname.
SELECTION - SCREEN END OF SCREEN 300 .

" 将两个屏幕合并到TAB里面
" 类似于通常的BEGIN OF BLOCK
" SELECTION-SCREEN BEGIN OF BLOCK block1 WITH FRAME TITLE title1.

SELECTION - SCREEN BEGIN OF TABBED BLOCK mytab FOR 11 LINES.
SELECTION - SCREEN TAB ( 20 ) text1 USER - COMMAND but1.
SELECTION - SCREEN TAB ( 20 ) text2 USER - COMMAND but2.
SELECTION - SCREEN END OF BLOCK mytab.

INITIALIZATION .
text1 = ' ONE ' .
text2 = ' TWO ' .

mytab - prog = sy - repid.

"初始化屏幕0100

IF g_dynnr = space.
mytab - dynnr = 100 .
mytab - activetab = ' BUT1 ' .
ENDIF.

AT SELECTION - SCREEN. " PAI
CASE sy - dynnr.
WHEN 1000 .
CASE sy - ucomm.
WHEN ' BUT1 ' .
mytab - dynnr = 100 .
WHEN ' BUT2 ' .
mytab - dynnr = 300 .
WHEN OTHERS.
ENDCASE.
ENDCASE.

AT SELECTION - SCREEN OUTPUT. " PBO

START - OF - SELECTION.
CASE mytab - dynnr.
WHEN 100 .
MESSAGE ' 100 ' TYPE ' S ' DISPLAY LIKE ' S ' .
WHEN 300 .
MESSAGE ' 300 ' TYPE ' S ' DISPLAY LIKE ' S ' .
ENDCASE.