Enable / Disable selection screen block

Question

Hi, could u pls tell me how do I enable/disable selection screen block written below based on radio button selected??
Block to be enabled / disabled :
*----APO Version and RFC destination block
SELECTION-SCREEN BEGIN OF BLOCK b4 WITH FRAME TITLE text-013.
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT 01(20) text-e11.    "APO Planning Version
SELECTION-SCREEN POSITION 29.
SELECT-OPTIONS s_apover FOR w_version NO INTERVALS.
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT 01(20) text-e09.    "APO RFC Destination
SELECTION-SCREEN POSITION 32.
PARAMETERS  :  p_aporfc LIKE rfcdes-rfcdest.
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN END OF BLOCK b4.
Radiobuttons :
Material Type
SELECTION-SCREEN BEGIN OF BLOCK ss04 WITH FRAME TITLE text-072       .
PARAMETERS :
     Load only FERTs
       p_FERT  RADIOBUTTON GROUP styp DEFAULT  'X' USER-COMMAND rusr ,
     Load ROH/HALBs
       p_HALB  RADIOBUTTON GROUP styp                                .
SELECTION-SCREEN END   OF BLOCK ss04                                 .
Thanx in advance

Answer 1

Hi
SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE text-001.
PARAMETERS: pa_file TYPE rlgrap-filename MODIF ID abc,
pa_lifnr TYPE lfa1-lifnr MODIF ID abc,
pa_vkorg TYPE vbak-vkorg MODIF ID abc.
SELECTION-SCREEN END OF BLOCK b1.
SELECTION-SCREEN BEGIN OF BLOCK b2 WITH FRAME TITLE text-002.
PARAMETERS: pa_kunnr TYPE vbak-kunnr MODIF ID def.
SELECT-OPTIONS: s_lifnr FOR gs_lfa1-lifnr MODIF ID def,
s_date FOR gs_lfa1-erdat MODIF ID def,
s_augru FOR gs_vbak-augru MODIF ID def,
s_vbeln FOR gs_vbak-vbeln MODIF ID def.
SELECTION-SCREEN END OF BLOCK b2.
SELECTION-SCREEN BEGIN OF BLOCK b3 WITH FRAME TITLE text-003.
SELECTION-SCREEN BEGIN OF LINE.
PARAMETERS: pa_upd RADIOBUTTON GROUP g1 USER-COMMAND uc01 DEFAULT 'X'."#EC *
SELECTION-SCREEN COMMENT 3(60) text-004 FOR FIELD pa_upd.
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN BEGIN OF LINE.
PARAMETERS: pa_rep RADIOBUTTON GROUP g1 ."#EC *
SELECTION-SCREEN COMMENT 3(60) text-005 FOR FIELD pa_rep.
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN END OF BLOCK b3.
IF pa_rep EQ gc_x.
LOOP AT SCREEN.
IF screen-group1 = gc_abc.
screen-input = gc_zero_num.
ELSEIF screen-group1 = gc_def.
screen-active = gc_one_num.
ENDIF.
MODIFY SCREEN.
ENDLOOP.
ELSEIF pa_upd EQ gc_x.
*For Reprocessing
LOOP AT SCREEN.
IF screen-group1 = gc_def.
screen-input = gc_zero_num.
ELSEIF screen-group1 = gc_abc.
screen-active = gc_one_num.
ENDIF.
MODIFY SCREEN.
CLEAR pa_upd.
ENDLOOP.
ENDIF.
REPORT zrich_001.
PARAMETERS: p_rad1 RADIOBUTTON GROUP grp1 DEFAULT 'X'
                        user-command chk,
            p_rad2 RADIOBUTTON GROUP grp1.
SELECT-OPTIONS: s_datum1 FOR sy-datum MODIF ID d1,
                s_datum2 FOR sy-datum MODIF ID d2.
AT SELECTION-SCREEN OUTPUT.
  LOOP AT SCREEN.
    IF p_rad1 = 'X'
      AND screen-group1 = 'D2'.
      screen-active = '0'.
    ENDIF.
    IF p_rad2 = 'X'
     AND screen-group1 = 'D1'.
      screen-active = '0'.
    ENDIF.
    MODIFY SCREEN.
  ENDLOOP.
Regards
Anji