ABAP/4 How to hide selection-screen object by radiobuttion

有的時侯在畫面，希望 User 點選某個 Radiobutton 顯示某些欄位，換另一個 Radiobutton 時不顯示，則可以使用下面程式進行。

1. 在 Radiobutton 宣告時加入 USER-COMMAND DOWN

2. 在 AT SELECTION-SCREEN OUTPUT 加入 Loop at screen 對指定的 Object 做 Active =0 的處理

============================================================

REPORT Z_EX_RPT_HIDE_OBJ NO STANDARD PAGE HEADING MESSAGE-ID ZGV01.

SELECTION-SCREEN BEGIN OF BLOCK BLOCK1.
PARAMETERS : R_DSP RADIOBUTTON GROUP G1 DEFAULT 'X' USER-COMMAND DOWN,
             R_HID RADIOBUTTON GROUP G1.
SELECTION-SCREEN SKIP.
PARAMETERS : P_TEXT TYPE LOCALFILE MODIF ID HID.
SELECTION-SCREEN END OF BLOCK BLOCK1.

AT SELECTION-SCREEN.

AT SELECTION-SCREEN OUTPUT.
  IF R_HID EQ 'X'.
    LOOP AT SCREEN.
      IF SCREEN-GROUP1 = 'HID'.
        SCREEN-ACTIVE = '0'.
      ENDIF.
      MODIFY SCREEN.
    ENDLOOP.
  ENDIF. 

============================================================

如果沒有在 RADIOBUTTON 下 USER-COMMAND DOWN 時，則點選 Radiobutton 不會觸發 AT SELECTION-SCREEN OUTPUT，要再按一下 Enter 才會觸發