At Selection Screen event

Purpose : radiobutton to enable/disable screen input.

---

REPORT zhny064 .

TABLES : vbrk.

SELECTION-SCREEN BEGIN OF LINE.
PARAMETERS p_pil1 TYPE c RADIOBUTTON GROUP gpil DEFAULT 'X'
USER-COMMAND ucomm.
SELECTION-SCREEN COMMENT 4(51) text-001.
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN BEGIN OF BLOCK b001 WITH FRAME.
SELECT-OPTIONS: s_vbeln FOR vbrk-vbeln NO-EXTENSION MEMORY ID vf.

SELECTION-SCREEN END OF BLOCK b001.

SELECTION-SCREEN SKIP 2.

SELECTION-SCREEN BEGIN OF LINE.
PARAMETERS p_pil2 TYPE c RADIOBUTTON GROUP gpil.
SELECTION-SCREEN COMMENT 4(51) text-002.
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN BEGIN OF BLOCK b002 WITH FRAME.
SELECT-OPTIONS: s_vbel1 FOR vbrk-vbeln MEMORY ID vf.
SELECTION-SCREEN END OF BLOCK b002.

AT SELECTION-SCREEN OUTPUT.
IF p_pil1 EQ 'X'.
LOOP AT SCREEN.
IF screen-name CS 'S_VBEL1'.
screen-input = 0.
MODIFY SCREEN.
ENDIF.
ENDLOOP.
ELSE.
LOOP AT SCREEN.
IF screen-name CS 'S_VKBUR' OR screen-name CS 'S_VBELN' .
screen-input = 0.
MODIFY SCREEN.
ENDIF.
ENDLOOP.
ENDIF.