SCREEN 创建subscreen实例

主屏幕流：

 

 PROCESS BEFORE OUTPUT.
 MODULE status_0100.
*call 子屏幕，其中subscr是子屏幕范围名。
CALL SUBSCREEN subscr INCLUDING sy-repid sid1.
PROCESS AFTER INPUT.
MODULE  cancel AT EXIT-COMMAND.
 MODULE user_command_0100.
*call子屏幕，其中suvscr是子屏幕范围名
 CALL SUBSCREEN subscr.

 

 

主程序：
data: ok_code type sy-ucomm.
data: save_ok type sy-ucomm.

data: sid1(4) type n VALUE '200'.
CALL SCREEN 100.
*&---------------------------------------------------------------------*
*&      Module  STATUS_0100  OUTPUT
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
module STATUS_0100 output.
  SET PF-STATUS 'STATUS1'.
*  SET TITLEBAR 'xxx'.

endmodule.                 " STATUS_0100  OUTPUT
*&---------------------------------------------------------------------*
*&      Module  CANCEL  INPUT
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
module CANCEL input.
LEAVE PROGRAM.
endmodule.                 " CANCEL  INPUT
*&---------------------------------------------------------------------*
*&      Module  USER_COMMAND_0100  INPUT
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
module USER_COMMAND_0100 input.
SAVE_OK = OK_CODE.
CASE SAVE_OK.
  WHEN 'PB1'.
    SID1 = '200'.
  WHEN 'PB2'.
    SID1 = '300'.
  WHEN 'EXIT'.
    LEAVE PROGRAM.
  WHEN OTHERS.
ENDCASE.
endmodule.                 " USER_COMMAND_0100  INPUT