SAP中 动态显示屏幕元素

REPORT  ZJC20051108_01.
TABLES: T001.

PARAMETERS: G1 RADIOBUTTON GROUP GR1 DEFAULT 'X' USER-COMMAND ZUS1.
PARAMETERS: G2 RADIOBUTTON GROUP GR1.

SELECT-OPTIONS: S1 FOR T001-BUKRS MODIF ID M1.
SELECT-OPTIONS: S2 FOR T001-BUTXT MODIF ID M2.

AT SELECTION-SCREEN.
  IF SY-UCOMM = 'ZUS1'.
    IF G1 IS INITIAL.
      REFRESH S1.
    ELSE.
      REFRESH S2.
    ENDIF.
  ELSE.
    IF NOT G1 IS INITIAL.
      CHECK S1.
    ELSE.
      CHECK S2.
    ENDIF.
  ENDIF.

AT SELECTION-SCREEN OUTPUT.
  LOOP AT SCREEN.
    CASE SCREEN-GROUP1.
      WHEN 'M1'.
        IF G1 IS INITIAL.
          SCREEN-ACTIVE = '0'. MODIFY SCREEN.
        ENDIF.
      WHEN 'M2'.
        IF G2 IS INITIAL.
          SCREEN-ACTIVE = '0'. MODIFY SCREEN.
        ENDIF.
    ENDCASE.
  ENDLOOP.