Disabling select-option

Question

Hi Experts,
               In the below code always the selectoption s_date must be disabled, once when i select the radiobutton op only it has to be enabled how to do that can any help me out,,
SELECTION-SCREEN BEGIN OF BLOCK A WITH FRAME TITLE TEXT-500.
PARAMETER :
CWEEK TYPE C RADIOBUTTON GROUP RB,
PWEEK TYPE C RADIOBUTTON GROUP RB,
UP TYPE C RADIOBUTTON GROUP RB,
PRCW TYPE C RADIOBUTTON GROUP RB,
OP TYPE C RADIOBUTTON GROUP RB.
SELECT-OPTIONS S_DATE for pa0102-begda no-extension.
SELECTION-SCREEN END OF BLOCK A.
Thanks and Regaards,
Thirukumaran. R

Answer 1

Hi
sample code see thsi
REPORT  ZNNR_REPORT NO STANDARD PAGE HEADING MESSAGE-ID ZNNR LINE-SIZE 100 LINE-COUNT 65(4).
TABLES EKKO.
*********END OF DATA DECLARATIONS**********
********SELECTION SCREEN DESIGN ***********
SELECTION-SCREEN BEGIN OF BLOCK B1 WITH FRAME TITLE TEXT-001.
PARAMETER : P_WERKS LIKE MARC-WERKS MODIF ID S1.
SELECT-OPTIONS : S_EBELN FOR EKKO-EBELN NO INTERVALS MODIF ID S2.
SELECTION-SCREEN END OF BLOCK B1.
SELECTION-SCREEN BEGIN OF BLOCK B2 WITH FRAME TITLE TEXT-004.
SELECTION-SCREEN BEGIN OF LINE.
PARAMETERS : R1 RADIOBUTTON GROUP G1 DEFAULT 'X' user-command uc1.
SELECTION-SCREEN COMMENT 5(20) TEXT-002 FOR FIELD R1.
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN BEGIN OF LINE.
PARAMETERS : R2 RADIOBUTTON GROUP G1.
SELECTION-SCREEN COMMENT 5(20) TEXT-003 FOR FIELD R2.
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN END OF BLOCK B2.
*******END OF SELECTION SCREEN DESIGN*****************
************SCREEN MODIFICATIONS********************
AT SELECTION-SCREEN OUTPUT.
  LOOP AT SCREEN.
    IF R1 EQ 'X' AND SCREEN-GROUP1 EQ 'S2'.
      SCREEN-INPUT = 0.
      MODIFY SCREEN.
    ENDIF.
    IF R2 EQ 'X' AND SCREEN-GROUP1 EQ 'S1'.
      SCREEN-INPUT = 0.
      MODIFY SCREEN.
    ENDIF.
  ENDLOOP.
*********END OF SCREEN MODIFICATIONS******************