radiobuttons.abap

REPORT ZTEST_SELECTION_SCREEN.

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

DATA : p_txt type c LENGTH 100.

SELECTION-SCREEN BEGIN OF BLOCK frame1 WITH FRAME TITLE text-001.
  SELECTION-SCREEN ULINE /10(40).

  SELECTION-SCREEN BEGIN OF LINE.
    SELECTION-SCREEN POSITION 15.
    PARAMETERS: rb1 RADIOBUTTON GROUP rb.
    SELECTION-SCREEN COMMENT 20(30) text-002.
  SELECTION-SCREEN END OF LINE.

  SELECTION-SCREEN BEGIN OF LINE.
    SELECTION-SCREEN POSITION 15.
    PARAMETERS: rb2 RADIOBUTTON GROUP rb.
    SELECTION-SCREEN COMMENT 20(30) text-003.
  SELECTION-SCREEN END OF LINE.

  SELECTION-SCREEN BEGIN OF LINE.
    SELECTION-SCREEN POSITION 15.
    PARAMETERS: rb3 RADIOBUTTON GROUP rb.
    SELECTION-SCREEN COMMENT 20(30) text-004.
  SELECTION-SCREEN END OF LINE.

  SELECTION-SCREEN ULINE /10(40).
SELECTION-SCREEN END OF BLOCK frame1.

IF rb1 = rbSelected.
  CONCATENATE 'You selected' text-002 INTO p_txt SEPARATED BY space.
ELSEIF rb2 = rbSelected.
  CONCATENATE 'You selected' text-003 INTO p_txt SEPARATED BY space.
ELSEIF rb3 = rbSelected.
  CONCATENATE 'You selected' text-004 INTO p_txt SEPARATED BY space.
ENDIF.

WRITE / p_txt.