dialog中使用单选按钮Radio buttons

1、创建一个9000标准屏幕

layoyt----Create radio button 1，NAME:RAD1，TEXT:radio button 1
layoyt----Create radio button 2，NAME:RAD2，TEXT:radio button 2

2、将2个radio button分配到一个组里，这样他们才能互斥，分配之后每个radio button对应的function code才能填入值

两个radio button都分配同一个 function code
3、逻辑流

1. PROCESS BEFORE OUTPUT.
   
2. * MODULE STATUS_9000.
   
3. *
   
4. PROCESS AFTER INPUT.
   
5. MODULE USER_COMMAND_9000.

复制代码

4、程序代码；

1. DATA:rad1,
   
2.      rad2.
   
3. 
   
4. CALL SCREEN 9000.
   
5. *&---------------------------------------------------------------------*
   
6. *&      Module  USER_COMMAND_9000  INPUT
   
7. *&---------------------------------------------------------------------*
   
8. *       text
   
9. *----------------------------------------------------------------------*
   
10. MODULE user_command_9000 INPUT.
    
11.   IF sy-ucomm = 'RADIO' AND rad1 = 'X'.
    
12.     MESSAGE 'Radio button 1 is clicked' TYPE 'I'.
    
13.   ELSEIF sy-ucomm = 'RADIO' AND rad2 = 'X'.
    
14.     MESSAGE 'Radio button 2 is clicked' TYPE 'I'.
    
15.   ELSE.
    
16.     LEAVE TO SCREEN 0.
    
17.   ENDIF.
    
18. ENDMODULE.                 " USER_COMMAND_9000  INPUT

复制代码

5、程序执行：