錯誤信息不顯示在選擇屏幕上

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後，程序將被中斷。