Radio Button Example using ABAP Programming

REPORT  ZRADIOBUTTONEXAMPLE.

CONSTANTS : g1Selected TYPE c LENGTH 1 VALUE 'X'.

DATA: day TYPE sy-datum .

parameters:
rb1 radiobutton group g1 default 'X',
rb2 radiobutton group g1.

IF rb1 = g1Selected.
  write:/'rb1 is selected'. 
ELSEIF rb2 = g1Selected.
   write:/'rb2 is selected'.
ENDIF.