*&---------------------------------------------------------------------*
*& Report AT
*& 作成者:張玉剛
*&---------------------------------------------------------------------*
*& 作成日 :2009/08/04
*& 処理概要:AT SELECTION-SCREEN
*&---------------------------------------------------------------------*
REPORT AT.
*&---------------------------------------------------------------------*
*& AT SELECTION-SCREEN ON.....
*&---------------------------------------------------------------------*
SELECT-OPTIONS SEL0 FOR SY-TVAR0.
SELECTION-SCREEN BEGIN OF BLOCK BL0.
SELECT-OPTIONS SEL1 FOR SY-TVAR1.
SELECTION-SCREEN BEGIN OF BLOCK BL1.
PARAMETERS P0 RADIOBUTTON GROUP RADI.
PARAMETERS P1 RADIOBUTTON GROUP RADI.
SELECTION-SCREEN BEGIN OF BLOCK BL2.
PARAMETERS P3.
SELECTION-SCREEN END OF BLOCK BL2.
SELECT-OPTIONS SEL2 FOR SY-TVAR2.
SELECTION-SCREEN END OF BLOCK BL1.
SELECTION-SCREEN END OF BLOCK BL0.
*AT SELECTION-SCREEN ON SEL0.
* MESSAGE 'A AS' TYPE 'I'.
*
*AT SELECTION-SCREEN ON RADIOBUTTON GROUP RADI.
* MESSAGE 'AASDFGDFGFG' TYPE 'I'.
*&---------------------------------------------------------------------*
*& AT SELECTION-SCREEN OUTPUT.....
*&---------------------------------------------------------------------*
SELECT-OPTIONS NAME FOR SY-REPID MODIF ID XYZ.
...
"注意CHECK SCREEN-GROUP1的用法
"SCREEN-INTENSIFIED的用法:修改现实的控件的颜色
AT SELECTION-SCREEN OUTPUT.
LOOP AT SCREEN.
CHECK SCREEN-GROUP1 = 'XYZ'.
SCREEN-INTENSIFIED = '1'.
MODIFY SCREEN.
ENDLOOP.