ABAP调用subscreen

建立3个屏，0100为主屏，0200，0300为subcreen。主屏上有2个pushbutton，分别用来调用200和300 subscreen。0100里面加入ok_code用来判断用户输入的选择的subscreen。

---------------------------------------------------------------------------------------------------------------

0100的flow logic:

PROCESS BEFORE OUTPUT.
MODULE STATUS_0100.
   call SUBSCREEN: subscr INCLUDING sy-repid SID1.

PROCESS AFTER INPUT.
module cancel AT EXIT-COMMAND.
MODULE USER_COMMAND_0100.
   call SUBSCREEN subscr.

------------------------------------------------------------------------------------------------------------------

主程序：

data: ok_code TYPE sy-ucomm,
       save_ok TYPE sy-ucomm.
*默认子窗口调用200
data: SID1(4) TYPE n VALUE '200'.
*直接调用100
call SCREEN 100.
*cancel 退出程序
MODULE cancel INPUT.
leave PROGRAM.
  endmodule.
*选择显示的屏幕。
MODULE user_command_0100 INPUT.
     save_ok = ok_code.
    clear ok_code.
    case save_ok.
      when 'SB1'.
         sid1 = '200'.
      when 'SB2'.
         sid1 = '300'.
      when 'EXIT'.
        leave PROGRAM.
    ENDCASE.
    endmodule.

*--------------------------------------------------------------------------------------------