Check Selection Option 问题

CHECK 功能：

CHECK Selection Option 用在事件块（event blocks ）GET中检查当前GET事件中接口工作区里面的 components是否已经填充到相应的Selection Option 里面。 

问题：如果Selection Option 为空，CHECK语句将不会起作用，因为默认所以数据满足条件。

---

 

实例：

初始：

SELECT-OPTIONS: s_pspnr FOR prps_r-pspnr NO-DISPLAY.

GET prps_r.

CHECK s_pspnr.

......

Note:当s_pspnr为空，CHECK s_pspnr后面的coding将继续处理.

 

改进后:

SELECT-OPTIONS: s_pspnr FOR prps_r-pspnr NO-DISPLAY.

DATA: lin(5).

GET prps_r.

DESCRIBE TABLE s_pspnr LINES lin.

IF lin = 0.

WRITE: 'No Valid Projects.'.

EXIT.

 ELSE.

CHECK s_pspnr.

ENDIF.

 ......

Note:当s_pspnr为空，程序将显示提示信息‘No Valid Projects’;当s_pspnr不为空，将正确执行CHECK功能。