选择屏幕上未显示错误消息

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

我假设你在选择开始中调用这个形式。您应该改用在选择屏幕上。

有关示例，请参阅此答案。

Answer 2

您可以发送消息类型"S"并像"E"一样显示。消息后使用 LEAVE TO LIST-PROCESSING，因此您的程序将被中断。