主屏幕流：
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
