REPORT中代码------------------------------------------------------------------------------------------
TABLES SPFLI.DATA: OK_CODE TYPE SY-UCOMM.DATA: SAVE_OK TYPE SY-UCOMM.DATA: FLD1(20) TYPE C, FLD2(20) TYPE C, FLD3(20) TYPE C, FLD4(20) TYPE C, ACTION(50) TYPE C.*&---------------------------------------------------------------------**& Module CANCEL INPUT*&---------------------------------------------------------------------** text*----------------------------------------------------------------------*CALL SCREEN 100.module CANCEL input. LEAVE PROGRAM.endmodule. " CANCEL INPUT*&---------------------------------------------------------------------**& Module USER_COMMAND_0100 INPUT*&---------------------------------------------------------------------** text*----------------------------------------------------------------------*module USER_COMMAND_0100 input. SAVE_OK = OK_CODE. CLEAR OK_CODE. CASE SAVE_OK. WHEN 'EXIT'. LEAVE PROGRAM. ENDCASE.* SELECT SINGLE ** INTO CORRESPONDING FIELDS OF SPFLI* FROM SPFLI* WHERE CARRID EQ SPFLI-CARRID AND CONNID EQ SPFLI-CONNID.*IF sy-subrc ne 0.* CLEAR spfli.*ENDIF. ACTION = ''. CONCATENATE FLD1 FLD2 FLD3 FLD4 INTO ACTION.endmodule. " USER_COMMAND_0100 INPUT*&---------------------------------------------------------------------**& Module STATUS_0100 OUTPUT*&---------------------------------------------------------------------** text*----------------------------------------------------------------------*module STATUS_0100 output. SET PF-STATUS 'STATUS1'.* SET TITLEBAR 'xxx'.endmodule. " STATUS_0100 OUTPUT*&---------------------------------------------------------------------**& Module CHECK1 INPUT*&---------------------------------------------------------------------** text*----------------------------------------------------------------------*module CHECK1 input.IF fld1 = 'FLD1'. MESSAGE e398(00) WITH 'FLD1 ERROR'.ENDIF.IF FLD1 = 'FLD11'. MESSAGE I398(00) WITH 'FLD1 WARNING'.ENDIF.IF FLD1 = 'FLD111'. MESSAGE S398(00) WITH 'FLD1 OK'.ENDIF.endmodule. " CHECK1 INPUT*&---------------------------------------------------------------------**& Module CHECK2 INPUT*&---------------------------------------------------------------------** text*----------------------------------------------------------------------*module CHECK2 input.IF FLD3 = 'FLD3'. MESSAGE E398(00) WITH 'FLD3 ERROR'.ENDIF.IF FLD3 = 'FLD33'. MESSAGE I398(00) WITH 'FLD3 WARNING'.ENDIF.IF FLD3 = 'FLD333'. MESSAGE S398(00) WITH 'FLD3 OK'.ENDIF.endmodule. " CHECK2 INPUT*&---------------------------------------------------------------------**& Module CHECK3 INPUT*&---------------------------------------------------------------------** text*----------------------------------------------------------------------*module CHECK3 input. MESSAGE I398(00) WITH 'FLD2 * WARNING'.endmodule. " CHECK3 INPUT
屏幕100的逻辑流---------------------------------------------------------------------------------------
PROCESS BEFORE OUTPUT. MODULE STATUS_0100.*PROCESS AFTER INPUT. CHAIN. FIELD: FLD1, FLD2. MODULE CHECK1. ENDCHAIN. CHAIN. FIELD: FLD3, FLD4. MODULE CHECK2. ENDCHAIN. FIELD FLD2 MODULE CHECK3 ON *-INPUT. MODULE CANCEL AT EXIT-COMMAND. MODULE USER_COMMAND_0100.
