Mathiv Anan
Active User
Joined: 23 Jul 2008 Posts: 106 Location: USA
|
|
|
|
Hi,
My requirements is as follows.
I have two VB files of (27990 + 4 bytes) sorted in same order. I have to compare the two files and get the unmatched records from file F1.
Code used:
Code: |
//SYSIN DD *
JOINKEYS FILES=F1,FIELDS=(33,5,A,44,5,A,112,4,A,116,20,A,236,4,A,
649,10,A,706,5,A,711,5,A,727,5,A),TYPE=V
JOINKEYS FILES=F2,FIELDS=(33,5,A,44,5,A,112,4,A,116,20,A,236,4,A,
649,10,A,706,5,A,711,5,A,727,5,A),TYPE=V
REFORMAT FIELDS=(F1:1,4,F1:5,27990),FILL=X'FF'
JOIN UNPAIRED,F1
SORT FIELDS=COPY
OUTFIL FNAMES=NOMATCH,INCLUDE=(27991,1,BI,NE,X'FF'),
OUTREC=(1,4,5,27990)
/*
|
Sysout:
Code: |
SYSIN :
JOINKEYS FILES=F1,FIELDS=(33,5,A,44,5,A,112,4,A,116,20,A,236,4,A,
649,10,A,706,5,A,711,5,A,727,5,A),TYPE=V
JOINKEYS FILES=F2,FIELDS=(33,5,A,44,5,A,112,4,A,116,20,A,236,4,A,
649,10,A,706,5,A,711,5,A,727,5,A),TYPE=V
REFORMAT FIELDS=(F1:1,4,F1:5,27990),FILL=X'FF'
JOIN UNPAIRED,F1
SORT FIELDS=COPY
OUTFIL FNAMES=NOMATCH,INCLUDE=(27991,1,BI,NE,X'FF'),
OUTREC=(1,4,5,27990)
WER276B SYSDIAG= 13193, 345664, 345664, 2700990
WER164B 5,448K BYTES OF VIRTUAL STORAGE AVAILABLE, MAX REQUESTED,
WER164B 0 BYTES RESERVE REQUESTED, 1,008K BYTES USED
WER146B 12K BYTES OF EMERGENCY SPACE ALLOCATED
WER481I JOINKEYS REFORMAT RECORD LENGTH=27994, TYPE = F
WER202A NOMATCH RECFM INCOMPATIBLE
WER110I NOMATCH : RECFM=VB ; LRECL= 27994; BLKSIZE=
WER211B SYNCSMF CALLED BY SYNCSORT; RC=0000
WER449I SYNCSORT GLOBAL DSM SUBSYSTEM ACTIVE
WER482I JNF1 STATISTICS
|
Could some one help? |
|