AT SELECTION-SCREEN的用法

*&---------------------------------------------------------------------*
*& 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.