At selection screen output not responding

Question

Hi ppl,
I've 4 selection options in my screen. however I just need user to insert only 1 of the 4 for searching. Therefore i included 4 radio buttons. when user select <i>rbf</i>, <i>sfileno</i> will activer and other 3 will be grayed out, when user select <i>rbi</i>, <i>sidnum</i> will active and other will not be active and so forth. You can see the codes below.
However, during the program running, I found out when i select <i>rbf,</i> the other select options fields - <i>sfileno</i>, <i>sidnum</i> n <i>scompsno</i> are not inactive/grayed. It is the same when I seledt the other radio button. I just seem that i receive no response from the program. What have i done wrong here. please help. TQ
SELECTION-SCREEN BEGIN OF BLOCK frm1 WITH FRAME TITLE text-t01 .
SELECT-OPTIONS : sfileno FOR zlic_masterdb-nofailpermohonan modif id f01
                  sidnum FOR zcustomer-idnumber modif id i01,
                  sconame FOR zcustomer-contactname modif id n01,
                  scompsno FOR zcom_compdhdr-compsno modif id c01.
PARAMETERS: rbf RADIOBUTTON GROUP g1 ,
rbi RADIOBUTTON GROUP g1,
rbn RADIOBUTTON GROUP g1,
rbc RADIOBUTTON GROUP g1.
SELECTION-SCREEN END   OF BLOCK frm1.
INITIALIZATION.
sfileno = '00001'.
                 AT SELECTION-SCREEN OUTPUT
AT SELECTION-SCREEN OUTPUT.
  LOOP AT SCREEN.
  CHECK SCREEN-GROUP1 = 'f01' OR
SCREEN-GROUP1 = 'i01' OR
SCREEN-GROUP1 = 'n01' OR
SCREEN-GROUP1 = 'c01'.
IF rbf = 'X'.
  IF SCREEN-GROUP1 EQ 'f01'.
    SCREEN-ACTIVE = 1.
  ELSEIF SCREEN-GROUP1 EQ 'i01'.
    SCREEN-ACTIVE = 0.
  ELSEIF SCREEN-GROUP1 EQ 'n01'.
    SCREEN-ACTIVE = 0.
  ELSEIF SCREEN-GROUP1 EQ 'c01'.
    SCREEN-ACTIVE = 0.
  ENDIF.
ELSEIF rbi = 'X'.
  IF SCREEN-GROUP1 EQ 'i01'.
    SCREEN-ACTIVE = 1.
  ELSEIF SCREEN-GROUP1 EQ 'f01'.
    SCREEN-ACTIVE = 0.
  ELSEIF SCREEN-GROUP1 EQ 'n01'.
    SCREEN-ACTIVE = 0.
  ELSEIF SCREEN-GROUP1 EQ 'c01'.
    SCREEN-ACTIVE = 0.
  ENDIF.
ELSEIF rbn = 'X'.
  IF SCREEN-GROUP1 EQ 'n01'.
    SCREEN-ACTIVE = 1.
  ELSEIF SCREEN-GROUP1 EQ 'f01'.
    SCREEN-ACTIVE = 0.
  ELSEIF SCREEN-GROUP1 EQ 'i01'.
    SCREEN-ACTIVE = 0.
  ELSEIF SCREEN-GROUP1 EQ 'c01'.
    SCREEN-ACTIVE = 0.
  ENDIF.
ELSEIF rbc = 'X'.
  IF SCREEN-GROUP1 EQ 'c01'.
    SCREEN-ACTIVE = 1.
  ELSEIF SCREEN-GROUP1 EQ 'f01'.
    SCREEN-ACTIVE = 0.
  ELSEIF SCREEN-GROUP1 EQ 'n01'.
    SCREEN-ACTIVE = 0.
  ELSEIF SCREEN-GROUP1 EQ 'i01'.
    SCREEN-ACTIVE = 0.
  ENDIF.
ENDIF.
MODIFY SCREEN.
continue.
ENDLOOP.

Answer 1

hi Enzo
Check my sample code
TABLES: eban,
        SSCRFIELDS.
SELECTION-SCREEN BEGIN OF SCREEN 100 TITLE title.
SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE text-t01.
PARAMETER:rad1 RADIOBUTTON GROUP rad USER-COMMAND frad1 DEFAULT 'X',
          rad2 RADIOBUTTON GROUP rad .
SELECTION-SCREEN END OF BLOCK b1.
SELECTION-SCREEN BEGIN OF BLOCK b2 WITH FRAME TITLE text-t02.
PARAMETER: mtr AS CHECKBOX MODIF ID g3 USER-COMMAND chk1,
           p_matnr TYPE eban-matnr MODIF ID g1,
           sloc AS CHECKBOX MODIF ID g3 USER-COMMAND chk2,
           str_loc TYPE eban-lgort MODIF ID g4.
SELECTION-SCREEN END OF BLOCK b2.
SELECTION-SCREEN BEGIN OF BLOCK b3 WITH FRAME TITLE text-t03.
SELECT-OPTIONS: matnr1 FOR eban-matnr MODIF ID g2.
SELECTION-SCREEN END OF BLOCK b3.
SELECTION-SCREEN PUSHBUTTON /20(10) name USER-COMMAND UCOM.
SELECTION-SCREEN END OF SCREEN 100.
name = 'FETCH'.
title = 'Test Report'.
CALL SELECTION-SCREEN '100'.
TYPE-POOLS slis.
* declaration of internal tables and work areas to be used
DATA: BEGIN OF it_pr OCCURS 0,
      banfn TYPE eban-banfn,
      bnfpo TYPE eban-bnfpo,
      loekz TYPE eban-loekz,
      statu TYPE eban-statu,
      ekgrp TYPE eban-ekgrp,
      matnr TYPE eban-matnr,
      werks TYPE eban-werks,
      lgort TYPE eban-lgort,
      preis TYPE eban-preis,
      peinh TYPE eban-peinh,
      END OF it_pr.
DATA: BEGIN OF it_mat OCCURS 0,
      matnr TYPE eban-matnr,
      END OF it_mat.
*DATA:BEGIN OF ITAB1 OCCURS 0,
  DATA: l_answer.
DATA: it_fieldcat TYPE slis_t_fieldcat_alv,
      wa_fieldcat LIKE LINE OF it_fieldcat,
      it_event TYPE slis_t_event,
      wa_event TYPE slis_alv_event.
* declaration of variables to be used
DATA: r_ucomm TYPE sy-ucomm,
      mat_no TYPE eban-matnr,
      len TYPE i VALUE 1,
      count TYPE i VALUE IS INITIAL,
      iflag TYPE i VALUE IS INITIAL,
      iflag1 TYPE i VALUE 0.
DATA :pr_id TYPE sy-repid,
rt_extab TYPE slis_t_extab.
INITIALIZATION.
  pr_id = sy-repid.
probably it would sol;ve ur problem
regards
ravish
<b>plz dont forget to reward points if helpful</b>