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.