Example

The sample rule illustrated below specifies the following:

• The first block, SETUP, initializes variables for performing the Preparation stage using the WRITE function.
• The next two blocks, WRITE1 and WRITE2, perform the WRITE function on both input files. The check number is the key.
• The fourth block, MERGE, performs the MERGE function.
• The fifth block, TEST, prints out the check numbers.

  Figure 365 MERGE Reconciliation Function Example

        LIBRARY : CTB.PROD.RULES                                 RULE : MERGE2 

 COMMAND ===>                                                    SCROLL===> CRSR

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

   OWNER   M43                      GROUP BANKING_DEPARTMENT                  

   UPDATED 08/08/00  -  15:32:32    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=2                                                 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.REGISTER1                                      

      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.REGISTER2                                      

      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 0020 - 0025 PROCESS          TYP     

     DO EXTRACT  = CHECKDATE                                                  

                   LEVEL 0 LINE +000 COL 0030 - 0037 PROCESS          TYP     

     DO EXTRACT  = CHECKAMT                                                   

                   LEVEL 0 LINE +000 COL 0040 - 0047 PROCESS          TYP     

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

                   CHECKAMT,L8,CHECKDATE                                   C  

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

   EXECUTE MERGE    UPON                                                   C   

   ON DATA                                                                     

   ALWAYS                                                                      

     DO SET      = RECFUNC='MERGE'                                         C   

     DO CALLUSER = CTBRECL  ARG RECFUNC                                    C   

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

   EXECUTE TEST     UPON                                                   C   

   ON DDNAME     DDNAME SORTOUT                                                

      MODE DS    LINECT         DATASTAMP                                      

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

        STRING = 010198                                                        

     DO EXTRACT  = CHECKINFO                                                   

                   LEVEL   LINE +000 COL 0008 - 0015 PROCESS          TYP      

     DO PRINT    = 'CHECK NUMBER     %%CHECKINFO'                      F   C   

   PLEASE FILL IN RULE DEFINITION.                                      15.39.33