选择界面3

SELECTION-SCREEN BEGIN OF BLOCK bl0 WITH FRAME TITLE text-001.
PARAMETER z_cn RADIOBUTTON GROUP rad1 USER-COMMAND uc DEFAULT 'X' .
PARAMETER z_en RADIOBUTTON GROUP rad1 .
PARAMETER z_ln RADIOBUTTON GROUP rad1 .
SELECTION-SCREEN END OF BLOCK bl0.

PARAMETERS  FG1 LIKE mseg-mblnr MODIF ID fc1.

PARAMETERS  FG2 LIKE mseg-mjahr DEFAULT sy-datum MODIF ID fc2.
PARAMETERS  FGG2 LIKE mseg-mblnr MODIF ID fc2.
PARAMETERS  FG3 LIKE mseg-mjahr DEFAULT sy-datum MODIF ID fc3.



AT SELECTION-SCREEN OUTPUT.
  LOOP AT SCREEN .
    CASE screen-group1.
      WHEN 'FC1'.
        IF z_cn IS INITIAL.
          screen-active = '0'.
        ELSE.
          screen-active = '1'.
        ENDIF.
      WHEN 'FC2'.
        IF z_en IS INITIAL.
          screen-active = '0'.
        ELSE.
          screen-active = '1'.
        ENDIF.
        WHEN 'FC3'.
          IF Z_LN IS INITIAL.
            SCREEN-ACTIVE = '0'.
          ELSE.
            SCREEN-ACTIVE = '1'.
          ENDIF.
    ENDCASE.
        MODIFY SCREEN.
  ENDLOOP.