Aravind_mf
New User
Joined: 06 Mar 2009 Posts: 13 Location: chennai
|
|
|
|
Hi all,
I have 2 files that needs to be compared.
File1
RECFM = F and record length 403. Field to be compared is PD and starts in Pos 8 and of 6 bytes length
File2
RECFM = FB and record length 76. Field to be compared is PD and starts in Pos 1 and of 6 bytes length
My shop has only syncsort and I coded the following JCl,
Code: |
//SORTCMP1 EXEC PGM=SORT
//SORTLIB DD DSN=SYS1.SORTLIB,DISP=SHR
//SYSOUT DD SYSOUT=*
//SORTJNF1 DD DSN=MOP.IV100.V.INV.CONTROL.C,DISP=SHR
//SORTJNF2 DD DSN=ISAAT.TEST.ACCOUNT.NO,DISP=SHR
//SORTOUT DD DSN=ISAAT.IV100.V.INV.CONTROL.C.MATCH,
// DISP=(NEW,CATLG,DELETE),
// UNIT=SYSDA,
// SPACE=(CYL,(100,100),RLSE),
// DCB=(RECFM=FB,LRECL=403)
//SYSIN DD *
JOINKEYS FILE=F1,FIELDS=(8,6,A)
JOINKEYS FILE=F2,FIELDS=(1,6,A)
REFORMAT FIELDS=(F1:1,403,F2:1,76)
INCLUDE COND=(8,6,PD,EQ,404,6,PD)
SORT FIELDS=COPY
/* |
The output contains no matching records. Actually there should be some matching records. Do I need to convert both PD field in both the files to ZD and do the comparision. Is PD comparision supported in SYNCSORT or else I code a Ezytrieve program for this?
Awaiting your help.
Thanks
Aravind |
|