ABAP：在 Popup1 中打开 Popup2 - 关闭 Popup2 应返回到 Popup1

Question

我正在打开一个 Popup(1) - Screen_0300

CASE sy-ucomm.
  WHEN 'POPUP1'.
    CALL SCREEN 0300 STARTING AT 10 08 ENDING AT 70 15.
ENDCASE.

在此 Popup 中，我调用另一个屏幕 Popup(2) - Screen_0400。

MODULE user_command_0300 INPUT.
  CASE sy-ucomm.
    WHEN 'POPUP2'.
      CALL SCREEN 0400 STARTING AT 10 08 ENDING AT 70 15.
  ENDCASE.
ENDMODULE.

现在，当我关闭 Popup(2) 时，我想返回到 Popup(1)。 目前两个弹出窗口同时关闭。 我已经尝试使用Leave to Screen或Set Screen在 Popup(2) 的 PAI 中调用 Popup(1) 。 有什么办法可以做到这一点？

Answer 1

要使用CALL SCREEN保留显示的屏幕，请在 PAI ( MODULE... INPUT ) 执行期间使用SET SCREEN 0 ，程序将在语句CALL SCREEN之后继续。

0是离开当前“屏幕调用序列”的特殊值。

Answer 2

我自己找到了答案，并将其发布，以便其他人可以更快地找到答案。 这似乎是与此相同的问题。

用以下方法修复它：

data next_screen type sy-dynnr.
CASE sy-ucomm.
 WHEN 'POPUP1'.
  next_screen = '0300'.
  while next_screen is not INITIAL.
  CALL SCREEN next_screen STARTING AT 10 08 ENDING AT 70 15.
  endwhile.
ENDCASE.

在第二个弹出窗口中：

MODULE user_command_0300 INPUT.
  CASE sy-ucomm.
    WHEN 'CANCEL' OR 'ENTER'
      CLEAR next_screen.
    WHEN 'POPUP2'.
      CALL SCREEN 0400 STARTING AT 10 08 ENDING AT 70 15.
  ENDCASE.
ENDMODULE.

这样，每当使用 sy-ucomm CANCEL或EXIT关闭第一个 Popup 时，next_screen 将被清除并且主程序再次成为焦点。 否则 next_screen 一直是 300 并且会一直被调用。