Checkbox as a Radiobutton

REPORT  ZRRSAMPLE.

PARAMETERS: p_check1 AS CHECKBOX USER-COMMAND check,
            p_check2 AS CHECKBOX USER-COMMAND check,
            p_check3 AS CHECKBOX USER-COMMAND check ,
            p_check4 AS CHECKBOX USER-COMMAND check .

DATA: value TYPE char10.

AT SELECTION-SCREEN.

  GET CURSOR FIELD value.

  IF value = 'P_CHECK1'.
    p_check2 = space.
    p_check3 = space.
    p_check4 = space.
  ELSEIF value = 'P_CHECK2'.
    p_check1 = space.
    p_check3 = space.
    p_check4 = space.
  ELSEIF value = 'P_CHECK3'.
    p_check1 = space.
    p_check2 = space.
    p_check4 = space.
  ELSEIF value = 'P_CHECK4'.
    p_check2 = space.
    p_check3 = space.
    p_check1 = space.

  ENDIF.