Disable an Input field with the help of a radio button selection.

Question

Hi Guys,
I know it is a very basic question and also has many threads for the mentioned query. None of the threads gave me a real clue about the problem. It is as follows:
Simply, I have an input field and there are two more radio buttons on the screen, say rd1, and rd2.
Initially Rb_gtgr is active and input field is blank and disabled, and when i select Rb_selgr, input field should be active and mandatory. It means when i try to execute the code with out entering any value after it is enabled, an error message should appear. For this the code is as follows:
AT SELECTION-SCREEN OUTPUT.
  PERFORM screen_grace_on.
AT SELECTION-SCREEN ON p_grace.
  PERFORM check_grace_days.
FORM screen_grace_on .
  DATA: l_v_grace TYPE char2.
  CONSTANTS: l_c_grace TYPE char7 VALUE 'P_GRACE'.
l_v_grace = p_grace.
CLEAR p_grace.
  IF rb_selgr EQ c_x.
    LOOP AT SCREEN.
      IF screen-group1 = 'ABC'.
        screen-required = 1.
       screen-active = 1.
      ENDIF.
      MODIFY SCREEN.
    ENDLOOP.
  ELSE.
    LOOP AT SCREEN.
      IF screen-group1 = 'ABC'.
        screen-input = 0.
        screen-active = 1.
      ENDIF.
      MODIFY SCREEN.
    ENDLOOP.
  ENDIF.
ENDFORM.                    " SCREEN_GRACE_ON
FORM check_grace_days.
  IF rb_selgr EQ c_x AND  p_grace EQ 0.
    PERFORM screen_grace_on.
    MESSAGE e492(/ams/ramfcmess1).          " Enter the number of Grace days
  ELSEIF rb_selgr EQ c_x AND p_grace GE 0.
    PERFORM screen_grace_on.
  ENDIF.
ENDFORM.
Ideally this code should work since in the PBO i.e., At selection screen output i am enabling the fields, and also when i select the second radio button i am also checking for the value too..
I am working on 4.7 version of SAP. The Most interesting observation is it works fine for few variants, and not with others.
Thank you

Answer 1

Hi,
Go through this following code,
selection-screen begin of block B2 with frame title TEXT-005.
selection-screen begin of line.
parameters:     P_BIRPT type C radiobutton group RAD1 default 'X' user-command UCOMM.
selection-screen comment 3(20) TEXT-002 for field P_BIRPT.
selection-screen end of line.
selection-screen begin of line.
parameters:     P_COLRPT type C radiobutton group RAD1.
selection-screen comment 3(20) TEXT-003 for field P_COLRPT.
selection-screen end of line.
selection-screen begin of line.
parameters:     P_PAYRPT type C radiobutton group RAD1.
selection-screen comment 3(20) TEXT-004 for field P_PAYRPT.
selection-screen end of line.
selection-screen end   of block B2.
selection-screen begin of block B1 with frame title TEXT-001.
select-options: SO_KTOKD for  KNA1-KTOKD modif id M4,
          SO_BLART for  BSIS-BLART modif id M2.
parameters:     P_PAID   type ZCLEAR     modif id M3 as listbox visible length 20.
selection-screen end   of block B1.
at selection-screen output.
  loop at screen.
    if P_BIRPT eq 'X'.
      if SCREEN-GROUP1   = 'M2' or SCREEN-GROUP1 = 'M3' .
        SCREEN-INVISIBLE = '1'.
        SCREEN-ACTIVE    = '0'.
        modify screen.
      endif.
    elseif P_COLRPT eq 'X'.
      if SCREEN-GROUP1   = 'M3'.
        SCREEN-INVISIBLE = '1'.
        SCREEN-ACTIVE    = '0'.
        modify screen.
      endif.
    elseif P_PAYRPT eq 'X'.
      if SCREEN-GROUP1   = 'M2'.
        SCREEN-INVISIBLE = '1'.
        SCREEN-ACTIVE    = '0'.
        modify screen.
      endif.
      if SCREEN-GROUP1   = 'M4'.
        SCREEN-INVISIBLE = '1'.
        SCREEN-ACTIVE    = '0'.
        modify screen.
      endif.
    endif.
  endloop.
Thanks
Anil D