Example

Assume that an input file contains fields for account numbers, check numbers, check dates, check amounts, and payees. The key field (for example, the field that uniquely identifies each check) is the check number (seven characters). The check amount (nine characters) and check date (nine characters) are also included in the output.

In the rule illustrated below

• the first block, SETUP, initializes the variables necessary for performing the Preparation stage using the WRITE function
• the next block, WRITE1, performs the WRITE function on the input file. The key is the check number of each record
• subsequent blocks perform the MERGE function that is presented on the following pages

Variable L0, which contains the numeric value 0, identifies the end of the record key. The record key is later used to determine whether two records are identical.

Figure 363 Reconciliation Function WRITE Example

         LIBRARY : CTB.PROD.RULES                                RULE : CANONIZ

 COMMAND ===>                                                    SCROLL===> CRSR

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

   OWNER   M43                      GROUP BANKING_DIVISION                    

   UPDATED 08/08/00  -  15:23:24    BY M43                                    

   DESC    CALLS RECONCILIATION FACILITY TO CANONIZE A FILE                   

   OPTIONS                                                                    

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

   EXECUTE SETUP    UPON                                                   C  

   ON DATA                                                                    

   ALWAYS                                                                     

     DO SET      = RECFUNC='WRITE'                                         C  

     DO SET      = FILE1=1                                                 C  

     DO SET      = FILE2=2                                                 C  

     DO SET      = L7=7                                                    C  

     DO SET      = L9=9                                                    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 - 0016 PROCESS          TYP     

     DO EXTRACT  = CHECKDATE                                                  

                   LEVEL 0 LINE +000 COL 0025 - 0033 PROCESS          TYP     

     DO EXTRACT  = CHECKAMT                                                   

                   LEVEL 0 LINE +000 COL 0040 - 0048 PROCESS          TYP     

     DO CALLUSER = CTBRECL  ARG RECFUNC,FILE1,ARGNUM,L7,CHECKNUM,L0,L9,    C Y

                   CHECKAMT,L9,CHECKDATE                                   C  

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

   PLEASE FILL IN RULE DEFINITION.                                      15.23.55