sonali12_9
New User
Joined: 13 Feb 2009 Posts: 20 Location: United States of america
|
|
|
|
I have 2 files
File1
111111
222222
File2
111111
333333
In my output i need unmatched records from file 1.
File length= 42
I have gone thru similar questions in forum and tried using below jcl
Code: |
//S1 EXEC PGM=SYNCTOOL
//TOOLMSG DD SYSOUT=*
//DFSMSG DD SYSOUT=*
//FILEA DD DSN=ATID.DSXN.DW2007.HOLDC,DISP=SHR (FB/80)
//FILEB DD DSN=ATID.DSXN.DW2007.HOLDC.FINAL,DISP=SHR (FB
//T1 DD DSN=&&T1,UNIT=SYSDA,SPACE=(CYL,(5,5)),DISP=(MOD,
//FILECD DD DSN=ATID.DSXN.DW2007.HOLDC.ALL,
// DISP=(,CATLG,DELETE),
// UNIT=SYSDA,SPACE=(CYL,(1,100),RLSE)
//FILEC DD DSN=ATID.DSXN.DW2007.HOLDC.MATCH,
// DISP=(,CATLG,DELETE),
// UNIT=SYSDA,SPACE=(CYL,(1,100),RLSE)
//FILED DD DSN=ATID.DSXN.DW2007.HOLDC.UNMATCH,
// DISP=(,CATLG,DELETE),
// UNIT=SYSDA,SPACE=(CYL,(1,100),RLSE)
//TOOLIN DD *
COPY FROM(FILEA) TO(T1) USING(CTL1)
COPY FROM(FILEB) TO(T1) USING(CTL2)
SPLICE FROM(T1) TO(FILECD) ON(1,42,CH) WITH(43,2) -
USING(CTL3) KEEPNODUPS
/*
//CTL1CNTL DD *
INREC OVERLAY=(43:C'BB')
/*
//CTL2CNTL DD *
INREC OVERLAY=(43:C'VV')
/*
//CTL3CNTL DD *
INREC OVERLAY=(43:C'VB')
OUTFIL FNAMES=FILECD,INCLUDE=(43,2,CH,EQ,C'VB'),
BUILD=(1,42)
OUTFIL FNAMES=FILED,INCLUDE=(43,2,CH,EQ,C'VV'),
BUILD=(1,42)
OUTFIL FNAMES=FILEC,INCLUDE=(43,2,CH,EQ,C'BB'),
BUILD=(1,42)
/*
|
But I'm getting error as given below
CTL3CNTL :
INREC OVERLAY=(43:C'VB')
OUTFIL FNAMES=FILECD,INCLUDE=(43,2,CH,EQ,C'VB'),
BUILD=(1,42)
OUTFIL FNAMES=FILED,INCLUDE=(43,2,CH,EQ,C'VV'),
BUILD=(1,42)
OUTFIL FNAMES=FILEC,INCLUDE=(43,2,CH,EQ,C'BB'),
BUILD=(1,42)
PARMLIST :
OPTION RESINV=0,ARESINV=0,MSGDDN=DFSMSG,SORTIN=T1,SORTDD=CTL3,SORTOUT=FILEC
ALLOC,CMP=CLC,NOVLSHRT,EQUALS
SORT FIELDS=(00001,0042,CH,A)
MODS E35=(SYNCT#35,4096,,N)
WER428I CALLER-PROVIDED IDENTIFIER IS "0003"
WER276B SYSDIAG= 1209916, 2094242, 2094242, 1512925
WER164B 4,864K BYTES OF VIRTUAL STORAGE AVAILABLE, MAX REQUESTED,
WER164B 0 BYTES RESERVE REQUESTED, 4,084K BYTES USED
WER146B 12K BYTES OF EMERGENCY SPACE ALLOCATED
WER108I T1 : RECFM=FB ; LRECL= 44; BLKSIZE= 27984
WER257I INREC RECORD LENGTH = 44
WER110I FILECD : RECFM=FB ; LRECL= 42; BLKSIZE= 27972
WER110I FILED : RECFM=FB ; LRECL= 42; BLKSIZE= 27972
WER110I FILEC : RECFM=FB ; LRECL= 42; BLKSIZE= 27972
WER410B 3,828K BYTES OF VIRTUAL STORAGE AVAILABLE ABOVE THE 16MEG LINE,
WER410B 0 BYTES RESERVE REQUESTED, 3,812K BYTES USED
WER036B G=1304,B=1180
WER162B 0 PREALLOCATED SORTWORK TRACKS, 0 DYNAMICALLY ALLOCATED,
WER162B 0 ACQUIRED IN SECONDARY EXTENTS, 0 RELEASED, TOTAL OF 0 TRACKS
WER407I UNUSABLE SORTWORK DEVICE ALLOCATED, UNIT=VIO
WER046A SORT CAPACITY EXCEEDED
WER055I INSERT 0, DELETE 0
WER211B SYNCSMF CALLED BY SYNCSORT; RC=0000
I am not able to recognize the problem .Please help me in this regard. |
|