Please help regarding report

Question

HI GURU, PLEASE TELL ME IF I WANT TO ADD ONE MORE RADIOBUTTON.<AUTHORIZATION>, IF I CLICK AUTHORIZATION THEN
FINDING EMPLOYEE CODE.
IN BELOW PROGRAM IF I CLICK RADIOBUTTON PROJECT , FINDING PROJECT ID& DATE, IF I CLICK RADIOBUTTON PROJECT WITH STATUS, ENABLING ONLY PROJECT STATUS.URGENT PLEASE TELL ME HOW TO ADD LOGIC IN BELOW PROGRAM.
REPORT ycpr_program_hierarchy_report1.
INCLUDE ycpi_program_hierarchy_report.
TABLES : aufk , dpr_project , prp_action , PA0000.
SELECTION-SCREEN : BEGIN OF BLOCK b1 WITH FRAME.
SELECTION-SCREEN BEGIN OF LINE .
PARAMETERS : r1 RADIOBUTTON GROUP rd1 DEFAULT 'X' USER-COMMAND flag.
SELECTION-SCREEN : COMMENT 3(70) text-001,
END OF LINE.
SELECTION-SCREEN BEGIN OF LINE .
PARAMETERS : r2 RADIOBUTTON GROUP rd1.
SELECTION-SCREEN : COMMENT 3(70) text-002,
END OF LINE.
SELECTION-SCREEN BEGIN OF LINE.
PARAMETERS:r3 RADIOBUTTON GROUP rd1.
SELECTION-SCREEN : COMMENT 3(70) TEXT-003,
END OF LINE.
SELECTION-SCREEN : END OF BLOCK b1.
SELECTION-SCREEN BEGIN OF BLOCK b2 WITH FRAME TITLE text-001.
SELECT-OPTIONS : s_projid FOR dpr_project-project_id MODIF ID md
MATCHCODE OBJECT ycpsh_projectid.
PARAMETERS : pstatown LIKE dpr_project-proc_status_own MODIF ID md1.
PARAMETERS : p_date LIKE sy-datum OBLIGATORY DEFAULT sy-datum.
SELECTION-SCREEN END OF BLOCK b2.
c_flag = 1.
DATA: g_flag TYPE c.
AT SELECTION-SCREEN OUTPUT.
IF r1 = 'X'.
c_flag = 1.
LOOP AT SCREEN.
CASE screen-group1.
WHEN 'MD'.
screen-active = 1.
WHEN 'MD1'.
screen-active = 0.
ENDCASE.
MODIFY SCREEN.
ENDLOOP.
ELSEIF r2 = 'X'.
c_flag = 0.
LOOP AT SCREEN.
CASE screen-group1.
WHEN 'MD'.
screen-active = 0.
WHEN 'MD1'.
screen-active = 1.
ENDCASE.
MODIFY SCREEN.
ENDLOOP.
REGARDS
SUBHASIS

Answer 1

The follow example should help - cut and paste it into a new program and follow how it works, then apply the same type of logic to your own program.
report zlocal_example.
data:
  g_rb_flag(1)          type c.
*=======================================================================
* Selection screen
*=======================================================================
selection-screen begin of block b1 with frame title text-b01.
selection-screen begin of line.
parameters:
  p_rb1      radiobutton group rd1 default 'X' user-command my_ucomm.
selection-screen comment 3(70) text-001.
selection-screen end of line.
selection-screen begin of line.
parameters:
p_rb2       radiobutton group rd1.
selection-screen comment 3(70) text-002.
selection-screen end of line.
selection-screen begin of line.
parameters:
  p_rb3      radiobutton group rd1.
selection-screen comment 3(70) text-003.
selection-screen end of line.
selection-screen end of block b1.
selection-screen begin of block b2 with frame title text-b01.
parameters:
  p_field1          like sy-datum modif id md1,
  p_field2          like sy-datum modif id md2,
  p_field3          like sy-datum modif id md3.
selection-screen end of block b2.
*=======================================================================
* Events
*=======================================================================
at selection-screen output.
  perform at_selection_screen.
*&      Form  at_selection_screen
form at_selection_screen.
  loop at screen.
    if screen-group1+0(2) = 'MD'.
      case 'X'. "determine which Radiobutton is selected
        when p_rb1.
          g_rb_flag = 1.
          if screen-group1+2(1) = '1'.
            screen-active = 1.
          else.
            screen-active = 0.
          endif.
        when p_rb2.
          g_rb_flag = 2.
          if screen-group1+2(1) = '2'.
            screen-active = 1.
          else.
            screen-active = 0.
          endif.
        when p_rb3.
          g_rb_flag = 3.
          if screen-group1+2(1) = '3'.
            screen-active = 1.
          else.
            screen-active = 0.
          endif.
      endcase.
      modify screen.
    endif.
  endloop.
endform.                    "at_selection_screen