The sample rule illustrated below specifies the following:
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
Parent Topic |