错误信息不显示在选择屏幕上

Question

如果未找到数据，我必须在选择屏幕上显示错误信息，并且必须直接在选择屏幕上显示此信息。我的问题是，它显示在空白屏幕上。 这是我的代码：

FORM 1main . 
    CLEAR: gt_tbalv. 
    PERFORM check_screen. 
    PERFORM get_data. 
    IF gt_tbalv IS NOT INITIAL. 
    CALL SCREEN 100. 
    ELSE. 
* Message Data not found 
    MESSAGE e010 DISPLAY LIKE 'S'. 
    ENDIF. 
ENDFORM.     " 1MAIN 

我的错误在哪里？

PS：我把这种形式从开始选择屏幕画面

************************************************************************ 
***      START-OF-SELECTION       *** 
************************************************************************ 
START-OF-SELECTION. 
    PERFORM 1main. 

Answer 1

的选择事件我想你把这个形式START-OF-SELECTION。您应该使用AT SELECTION-SCREEN。

查看this answer举例。

Answer 2

您可以为消息类型'S'并显示为'E'。消息使用LEAVE TO LIST-PROCESSING后，程序将被中断。