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
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
Parent Topic |