Amsar
New User
.jpg)
Joined: 26 Sep 2008
Posts: 84
Location: Chennai
|
|
|
|
Hi,
My requirement is to match the two input files and write the non matching recods into outfile.
Matching key is whole record and its unique.
Both the input files are lrec=80 & recfm=FB I want non matching records from first file.
Thanks,
Amsar |
|
Skolusu
Senior Member
Joined: 07 Dec 2007
Posts: 2205
Location: San Jose
|
|
|
|
amsar,
The following DFSORT/ICETOOL JCL will give you the desired results
| Code: |
//STEP0100 EXEC PGM=ICETOOL
//TOOLMSG DD SYSOUT=*
//DFSMSG DD SYSOUT=*
//IN1 DD DSN=Your input file1,DISP=SHR
//IN2 DD DSN=Your input file2,DISP=SHR
//T1 DD DSN=&&T1,DISP=(MOD,PASS),SPACE=(CYL,(X,Y),RLSE)
//OUT DD SYSOUT=*
//TOOLIN DD *
COPY FROM(IN1) USING(CTL1)
COPY FROM(IN2) USING(CTL2)
SELECT FROM(T1) TO(OUT) ON(1,80,CH) NODUPS USING(CTL3)
//CTL1CNTL DD *
OUTFIL FNAMES=T1,OVERLAY=(81:C'1')
//CTL2CNTL DD *
OUTFIL FNAMES=T1,OVERLAY=(81:C'2')
//CTL3CNTL DD *
OUTFIL FNAMES=OUT,INCLUDE=(81,1,ZD,EQ,1),BUILD=(1,80)
/* |
|
|
