Example

The sample rule below specifies the following:

• The first block, SETUP, initializes the variables necessary for performing the Preparation stage using the WRITE function.
• The next two blocks, WRITE1 and WRITE2, perform the WRITE function on both files.
• The fourth block, MERGEX, sorts the files, merges them, and produces unmatched records as output
• The fifth block, OUTPUT, prints out the unmatched check information.

  Figure 366 MERGEX Reconciliation Function Example

        LIBRARY : CTB.PROD.RULES                                RULE : MERGEX

 COMMAND ===>                                                    SCROLL===> CRSR

 +-----------------------------------------------------------------------------+

   OWNER   M43                      GROUP BANKING_DIVISION                    

   UPDATED 08/08/00  -  12:20:24    BY M43                                    

   DESC    RECONCILIATION FACILITY MERGES TWO FILES                           

   OPTIONS                                                                    

   ===========================================================================

   EXECUTE SETUP    UPON                                                   C  

   ON DATA                                                                    

   ALWAYS                                                                     

     DO SET      = RECFUNC='WRITE'                                         C  

     DO SET      = FILE1=1                                                 C  

     DO SET      = FILE2=1                                                 C  

     DO SET      = L6=6                                                    C  

     DO SET      = L8=8                                                    C  

     DO SET      = L0=0                                                    C  

     DO SET      = ARGNUM=7                                                C  

   ===========================================================================

   EXECUTE WRITE1   UPON                                                   C  

   ON FILE       FILENAME BANK.REGISTER                                       

      MODE DS    LINECT 0000    DATASTAMP                                     

   WHEN LINE 001     - 999     COL 001     - 001              STOP    AND/OR  

        STRING = .AL.                                                         

     DO EXTRACT  = CHECKNUM                                                   

                   LEVEL 0 LINE +000 COL 0010 - 0015 PROCESS          TYP     

     DO EXTRACT  = CHECKDATE                                                  

                   LEVEL 0 LINE +000 COL 0025 - 0032 PROCESS          TYP     

     DO EXTRACT  = CHECKAMT                                                   

                   LEVEL 0 LINE +000 COL 0040 - 0047 PROCESS          TYP     

     DO CALLUSER = CTBRECL  ARG RECFUNC,FILE1,ARGNUM,L6,CHECKNUM,L0,L8,    C Y

                   CHECKAMT,L8,CHECKDATE                                   C  

   ===========================================================================

   EXECUTE WRITE2   UPON                                                   C  

   ON FILE       FILENAME BANK.STATEMENT                                      

      MODE DS    LINECT 0000    DATASTAMP                                     

   WHEN LINE 001     - 999     COL 001     - 001              STOP    AND/OR  

        STRING = .AL.                                                         

     DO EXTRACT  = CHECKNUM                                                   

                   LEVEL 0 LINE +000 COL 0070 - 0075 PROCESS          TYP     

     DO EXTRACT  = CHECKDATE                                                  

                   LEVEL 0 LINE +000 COL 0015 - 0022 PROCESS          TYP     

     DO EXTRACT  = CHECKAMT                                                   

                   LEVEL 0 LINE +000 COL 0030 - 0037 PROCESS          TYP     

     DO CALLUSER = CTBRECL  ARG RECFUNC,FILE2,ARGNUM,L6,CHECKNUM,L0,L8,    C Y

                   CHECKAMT,L8,CHECKDATE                                   C  

   ===========================================================================

   EXECUTE MERGEX   UPON                                                   C  

   ON DATA                                                                    

   ALWAYS                                                                     

     DO SET      = RECFUNC='MERGEX'                                        C  

     DO SET      = MATCH='NO'                                              C  

     DO CALLUSER = CTBRECL  ARG RECFUNC,MATCH                              C  

     DO PRINT    = 'FOLLOWING ARE THE MISMATCHED RECORDS: '            F   C  

   ===========================================================================

   EXECUTE OUTPUT   UPON                                                   C  

   ON DDNAME     DDNAME SRECOUT1                                              

      MODE DS    LINECT 0000    DATASTAMP                                     

   WHEN LINE 001     - 999     COL 001     - 001              STOP    AND/OR  

        STRING = .AL.                                                         

     DO EXTRACT  = LINE                                                       

                   LEVEL 0 LINE +000 COL 0001 - 0070 PROCESS          TYP     

     DO PRINT    = %%LINE                                              F   C  

   PLEASE FILL IN RULE DEFINITION.                                      21.12.20