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.
转载于:https://www.cnblogs.com/softbird/archive/2005/11/08/271391.html