nikyojin
New User
Joined: 05 Oct 2005 Posts: 94
|
|
|
|
Requirement :- Compare 2 files and give 2 o/p files based on certain condition. IN1 has LRECL as 200 and IN2 has 603. O/P expected is the IN1 record.
Jcl used :-
Code: |
//SORT2 EXEC PGM=ICETOOL
//TOOLMSG DD SYSOUT=*
//DFSMSG DD SYSOUT=*
//IN1 DD DSN=VAST.SOSF540B.VAS7140D.VENDOR.ADDRESS.INFON,DISP=SHR
//IN2 DD DSN=VAST.PRCF695B.VAS7140D.VBUMOVE.ECAT.TTRAN,DISP=SHR
//T1 DD DSN=&&T1,UNIT=SYSDA,SPACE=(TRK,(10,20)),DISP=(MOD,PASS)
//T2 DD DSN=&&T2,UNIT=SYSDA,SPACE=(TRK,(10,20)),DISP=(MOD,PASS)
//OUT1 DD DSN=VAST.US.VENDOR.TESTFILE,
// DISP=(NEW,CATLG,DELETE),
// SPACE=(TRK,(1,5)),
// DCB=(RECFM=FB,LRECL=200,BLKSIZE=0),
// UNIT=SYSDA
//OUT2 DD DSN=VAST.CA.VENDOR.TESTFILE,
// DISP=(NEW,CATLG,DELETE),
// SPACE=(TRK,(1,5)),
// DCB=(RECFM=FB,LRECL=200,BLKSIZE=0),
// UNIT=SYSDA
//TOOLIN DD *
SELECT FROM(IN1) TO(T1) ON(3,9,ZD) FIRST USING(CTL1)
SELECT FROM(IN1) TO(T2) ON(3,9,ZD) FIRST USING(CTL2)
SELECT FROM(IN2) TO(T1) ON(37,9,ZD) FIRST USING(CTL3)
SELECT FROM(IN2) TO(T2) ON(37,9,ZD) FIRST USING(CTL4)
SPLICE FROM(T1) TO(OUT1) ON(3,9,CH) WITH (1,200)
/*
//CTL1CNTL DD *
OUTFIL FNAMES=T1
/*
//CTL2CNTL DD *
OUTFIL FNAMES=T2
/*
//CTL3CNTL DD *
OUTFIL FNAMES=T1,
OUTREC=(2X,3:37,9,189X)
INCLUDE COND=(1,2,CH,EQ,C'A ',AND,602,2,BI,EQ,1)
SUM FIELDS=NONE
/*
//CTL4CNTL DD *
OUTFIL FNAMES=T2,
OUTREC=(2X,3:37,9,189X)
INCLUDE COND=(1,2,CH,EQ,C'A ',AND,602,2,BI,EQ,5)
SUM FIELDS=NONE
/* |
Error obtained
SPLICE FROM(T1) TO(OUT1) ON(3,9,CH) WITH (1,200)
SYT068E INVALID "WITH" OPERAND
SYT030I OPERATION COMPLETED WITH RETURN CODE 12
Please inform me why this error is coming up. |
|