嗨Bhavani，

这个问题可能在社区中回答了太多次了……请参阅下面的代码并根据要求进行修改。

选择屏幕开始显示100个标题 标题。

 带有标题标题文本t01的Block1的选择屏幕开始。
 参数：rad1 RADIOBUTTON GROUP rad USER-COMMAND frad1 DEFAULT'X'，
           rad2 RADIOBUTTON GROUP rad。
 选择屏幕结束块1。

 带有标题标题文本t02的block2的选择屏幕开始。
 参数：mtr AS CHECKBOX MODIF ID g3 USER-COMMAND chk1，
            p_matnr TYPE eban-matnr MODIF ID g1，
            sloc AS CHECKBOX MODIF ID g3 USER-COMMAND chk2，
            str_loc TYPE eban-lgort MODIF ID g4。

 选择屏幕结束块2。

 带有标题标题文本t03的block3的选择屏幕开始。
 选择选项：matnr1用于eban-matnr MODIF ID g2。
 选择屏幕结束块3。
 选择屏幕按钮/20（10）名称USER-COMMAND UCOM。

 屏幕的选择屏幕结尾100。

 名称="保存"。
 标题="编辑"。
 呼叫选择屏幕" 100"。
 TYPE-POOLS slis。
 选择屏幕输出时。
   如果rad1 ='X'。
     环视屏幕。
       如果screen-group1 ='G1'或screen-group1 ='G4'。
         screen-active =" 1"。
         屏幕输入= 0。
       ELSEIF screen-group1 ='G2'。
         screen-active =" 0"。
       万一。
       修改屏幕。
     结局。

   ELSEIF rad2 ='X'。
     环视屏幕。
       如果screen-group1 ='G1'或screen-group1 ='G4'或screen-group1 ='G3'或screen-group1 ='G5'。
         screen-active =" 0"。
       ELSEIF screen-group1 ='G2'。
         screen-active =" 1"。
       万一。
       修改屏幕。
     结局。
   万一。

   如果mtr ='X'。
     环视屏幕。
       如果screen-group1 ='G1'。
         屏幕输入= 1。
       万一。
       修改屏幕。
     结局。
   万一。

   如果sloc ='X'。
     环视屏幕。
       如果screen-group1 ='G4'。
         屏幕输入= 1。
       万一。
       修改屏幕。
     结局。
   万一。

 清除sy-ucomm。