vijikesavan
Active User
Joined: 04 Oct 2006
Posts: 118
Location: NJ, USA
|
|
|
|
Hi,
I have 2 files and want to find out duplicates based on two fields.
The two files are FB Lrecl= 800
Here is my control card. I get my duplicate file as empty! though there are dups
| Code: |
//TOOLIN DD *
COPY FROM(IN1) TO(T1) USING(CTL1)
COPY FROM(IN2) TO(T1) USING(CTL2)
SPLICE FROM(T1) TO(DUPL) ON(130,8,CH) ON(362,9,ZD) -
KEEPNODUPS KEEPBASE WITHALL WITH(1,800) USING(CTL3)
/*
//CTL1CNTL DD *
INREC OVERLAY=(800:C'11')
/*
//CTL2CNTL DD *
INREC OVERLAY=(800:C'22')
/*
//CTL3CNTL DD *
OUTFIL FNAMES=DUPL,INCLUDE=(800,2,CH,EQ,C'12'),BUILD=(1,800)
OUTFIL FNAMES=F1ONLY,INCLUDE=(800,2,CH,EQ,C'11'),BUILD=(1,800)
OUTFIL FNAMES=F2ONLY,INCLUDE=(800,2,CH,EQ,C'22'),BUILD=(1,800)
/*
// |
Any help will be appreciated.
Thanks,
Viji |
|
Frank Yaeger
DFSORT Developer
Joined: 15 Feb 2005
Posts: 7129
Location: San Jose, CA
|
|
|
|
Please show an example of the records in each input file (relevant fields only) and what you expect for output. Explain the "rules" for getting from input to output. Give the starting position, length and format of each relevant field. If file1 can have duplicates within it, show that in your example. If file2 can have duplicates within it, show that in your example.
Also, run this job and show the //SYSOUT messages you receive, so I can see what level you're at:
| Code: |
//S1 EXEC PGM=SORT
//SYSOUT DD SYSOUT=*
//SORTIN DD *
RECORD
//SORTOUT DD DUMMY
//SYSIN DD *
OPTION COPY
/*
|
|
|
