需求

随着单选框更改屏幕

SELECTION-SCREEN: FUNCTION KEY 1,BEGIN OF BLOCK XYY.SELECTION-SCREEN BEGIN OF BLOCK BLK WITH FRAME TITLE TEXT-001.PARAMETERS:P_WERKS LIKE ZTYLP-WERKS MODIF ID CJ, " MEMORY ID M1 MODIF ID M1. "文件上载           P_LGORT LIKE ZTYLP-LGORT MODIF ID CJ,           P_BWART LIKE ZTYLP-BWART MODIF ID CJ.SELECT-OPTIONS: S_WERKS FOR ZTYLP-WERKS MODIF ID CK,                S_LGORT FOR ZTYLP-LGORT  MODIF ID CK,                S_BWART FOR ZTYLP-BWART  MODIF ID CK,                S_IDATE FOR ZTYLP-IDATE,                S_UNAME FOR ZTYLP-UNAME MODIF ID CK,                S_EQUNR FOR ZTYLP-EQUNR  MODIF ID CK,                S_MATNR FOR ZTYLP-MATNR  MODIF ID CK.SELECTION-SCREEN END OF BLOCK  BLK.SELECTION-SCREEN BEGIN OF BLOCK BLK1 WITH FRAME TITLE TEXT-002. "设置一个标题PARAMETERS P_SPZT1 RADIOBUTTON GROUP GP1  DEFAULT 'X' USER-COMMAND CJ.PARAMETERS P_SPZT3 RADIOBUTTON GROUP GP1 .PARAMETERS P_SPZT2 RADIOBUTTON GROUP GP1 .SELECTION-SCREEN END OF BLOCK BLK1.SELECTION-SCREEN END OF BLOCK XYY.INITIALIZATION.AT SELECTION-SCREEN OUTPUT.  IF P_SPZT1 = 'X' OR  P_SPZT3 = 'X'.    LOOP AT SCREEN.      IF  SCREEN-GROUP1 = 'CK'.        SCREEN-ACTIVE = '0'.      ENDIF.      MODIFY SCREEN.    ENDLOOP.  ELSEIF P_SPZT2 = 'X'.    LOOP AT SCREEN.      IF  SCREEN-GROUP1 = 'CJ'.        SCREEN-ACTIVE = '0'.      ENDIF.      MODIFY SCREEN.    ENDLOOP.  ENDIF.AT SELECTION-SCREEN.START-OF-SELECTION.

为每个单选按钮将要展现的字段分配ID :MODIF ID CK
分配完ID，给一个时间 MODIF ID CK（跟在默认为X的单选按钮上）
避免点击单选按钮直接执行接下来的代码，而不是先改变屏幕保持以下顺序

INITIALIZATION.AT SELECTION-SCREEN OUTPUT.AT SELECTION-SCREEN.START-OF-SELECTION.