abap的report中选择屏幕通过radiobutton动态控制哪些输入框可用

REPORT ZTEST001.
TABLES:VBAK,  "销售凭证:抬头数据
       VBAP,  "销售凭证:项目数据
       LIKP,  "SD凭证:交货抬头数据
       LIPS,  "SD凭证:交货项目数据
       MAKT,  "物料描述
       BUT000,"BP: 一般数据 I
       SER01, "交货单系列号的凭证抬头
       VBFA,
       TVLK,
       OBJK.  "设备维护对象清单

TYPE-POOLS:slis.
SELECTION-SCREEN:BEGIN OF BLOCK B1 WITH FRAME TITLE TEXT-001.

SELECT-OPTIONS:S_KUNNR FOR LIKP-KUNNR MODIF ID FG,                "1.售达方编号
               S_VBELN FOR LIKP-VBELN MODIF ID FG,                "2.交货单号
               S_VKORG FOR LIKP-VKORG MODIF ID FG,                "3.销售组织
               S_MATNR FOR LIPS-MATNR MODIF ID FG,                "4.物料编号
               S_WADAT FOR LIKP-WADAT_IST OBLIGATORY MODIF ID FG, "5.交货过账日期  实际货物移动日期
               S_ERNAM FOR LIKP-ERNAM MODIF ID FG,                "6.创建对象的人员名称  （用户名，如DLANG） VBAK和LIKP都有ERNAM
               S_SERNR FOR OBJK-SERNR MODIF ID SG,                "7.VIN码
               S_LFART FOR LIKP-LFART MODIF ID FG.                "8.交货类型
PARAMETERS:P_R1 RADIOBUTTON GROUP G1 USER-COMMAND UC1 DEFAULT 'X',  "USER-COMMAND UC1
           P_R2 RADIOBUTTON GROUP G1.

SELECTION-SCREEN:END OF BLOCK B1.

AT SELECTION-SCREEN OUTPUT.
  IF P_R1 IS NOT INITIAL.
    LOOP AT SCREEN.
      IF SCREEN-GROUP1 = 'SG' .
        SCREEN-ACTIVE = '0'.
      ENDIF.
      MODIFY SCREEN.
    ENDLOOP.

  ELSEIF P_R2 IS NOT INITIAL.
    LOOP AT SCREEN.
      IF SCREEN-GROUP1 = 'FG' .
        SCREEN-ACTIVE = '0'.
      ENDIF.
      MODIFY SCREEN.
    ENDLOOP.
  ENDIF.