SELECTION-SCREEN BEGIN OF BLOCK bloc1 WITH FRAME TITLE text-001.
SELECT-OPTIONS:
P_DATE FOR EKBE-BUDAT OBLIGATORY,
P_WERKS FOR MARC-WERKS OBLIGATORY,
P_INPO FOR EKBE-EBELN MODIF ID SC1,
P_OUTSO FOR VBAK-VBELN MODIF ID SC2.
PARAMETERS:
R_INBUT RADIOBUTTON GROUP RADI USER-COMMAND U1 DEFAULT 'X',
R_OUTBUT RADIOBUTTON GROUP RADI .
SELECTION-SCREEN: SKIP.
SELECTION-SCREEN: SKIP.
SELECTION-SCREEN END OF BLOCK bloc1.
IF R_INBUT EQ 'X'.
LOOP AT SCREEN.
IF SCREEN-GROUP1 = 'SC1'.
SCREEN-INPUT = 1.
ENDIF.
IF SCREEN-GROUP1 = 'SC2'.
SCREEN-INPUT = 0.
ENDIF.
CLEAR P_OUTSO[].
MODIFY SCREEN.
ENDLOOP.
ELSE.
LOOP AT SCREEN.
IF SCREEN-GROUP1 = 'SC1'.
SCREEN-INPUT = 0.
ENDIF.
IF SCREEN-GROUP1 = 'SC2'.
SCREEN-INPUT = 1.
ENDIF.
CLEAR P_INPO[].
MODIFY SCREEN.
ENDLOOP.
ENDIF.
如上一段代码是根据单选按钮选择不同对屏幕的输入做不同的处理。这里的一个关键是R_INBUT RADIOBUTTON GROUP RADI USER-COMMAND U1 。
就是要申明单选按钮为命令按钮!否则只会有一种状态!