1) Create Screen (2000) as follows:
2) Module pool as following code:
PROCESS BEFORE OUTPUT.
MODULE STATUS_2000.
*
PROCESS AFTER INPUT.
MODULE USER_COMMAND_2000.
*&---------------------------------------------------------------------*
*& Include ZR_RADIO_BUTTON_MP_TOP Module Pool ZR_RADIO_BUTTON_MP
*&
*&---------------------------------------------------------------------*
PROGRAM ZR_RADIO_BUTTON_MP.
DATA: RAD1,RAD2,TEXT1.
DATA: RADIO1 TYPE C LENGTH 20,
RADIO2 TYPE C LENGTH 20.
DATA: lang TYPE C LENGTH 20.
*&---------------------------------------------------------------------*
*& Module USER_COMMAND_2000 INPUT
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
MODULE USER_COMMAND_2000 INPUT.
IF SY-UCOMM = 'LANGFT'.
IF lang = '1'.
RADIO1 = 'radio1'.
ELSE.
RADIO1 = 'radio2'.
ENDIF.
ENDIF.
IF SY-UCOMM = 'RADIO' AND RAD1 = 'X'.
MESSAGE 'RADIO BUTTON1 CLICKED' TYPE 'I'.
ELSEIF SY-UCOMM = 'RADIO' AND RAD2 = 'X'.
MESSAGE 'RADIO BUTTON2 CLICKED' TYPE 'I'.
ELSEIF SY-UCOMM = 'EXIT'.
LEAVE TO SCREEN 0.
ENDIF.
ENDMODULE. " USER_COMMAND_2000 INPUT
*&---------------------------------------------------------------------*
*& Module Pool ZR_RADIO_BUTTON_MP
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*
INCLUDE ZR_RADIO_BUTTON_MP_TOP . " global Data
* INCLUDE ZR_RADIO_BUTTON_MP_O01 . " PBO-Modules
* INCLUDE ZR_RADIO_BUTTON_MP_I01 . " PAI-Modules
* INCLUDE ZR_RADIO_BUTTON_MP_F01 . " FORM-Routines
*&---------------------------------------------------------------------*
*& Module STATUS_2000 OUTPUT
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
MODULE STATUS_2000 OUTPUT.
SET PF-STATUS 'RADIO'.
SET TITLEBAR 'RAD'.
TYPE-POOLS : VRM.
DATA: ld_field TYPE VRM_ID ,
it_listbox TYPE VRM_VALUES,
wa_listbox LIKE LINE OF it_listbox.
REFRESH it_listbox.
wa_listbox-key = '1'.
wa_listbox-text = 'One'.
append wa_listbox to it_listbox.
clear wa_listbox.
wa_listbox-key = '2'.
wa_listbox-text = 'Two'.
append wa_listbox to it_listbox.
clear wa_listbox.
ld_field = 'lang'.
CALL FUNCTION 'VRM_SET_VALUES'
EXPORTING
id = ld_field
values = it_listbox.
IF lang = '1'.
RADIO1 = 'Radio1'.
RADIO2 = 'Radio2'.
ELSE.
RADIO1 = 'Radio2'.
RADIO2 = 'Radio1'.
ENDIF.
ENDMODULE. " STATUS_2000 OUTPUT
3) Listbox Property
4) GUI Status
5) Runtime Screen
