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

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                         ***
************************************************************************
START-OF-SELECTION.
  PERFORM 1main.

Answer 1

我假设您在START-OF-SELECTION中调用此表单。你应该使用AT SELECTION-SCREEN。

有关示例，请参阅this answer。

Answer 2

你可以给你一个消息类型＆＃39; S＆＃39;并显示像E＆＃39;。消息使用LEAVE TO LIST-PROCESSING后，您的程序将被中断。