I have tried the above using SPLICE and was successesful, but when using temporary DSN T1, T2, T3 and T4, and later concating it and using SPLICE in the control card, I am always getting OPEN error for DDNAME CONCT.
I tried using the datsets by preallocating them and I was able to see the actual results.
I am pasting the error message from DFSMSG
Code:
0 OUTFIL FNAMES=OUT,
INCLUDE=((2019,2,CH,EQ,C'X2'),OR,
(2019,2,CH,EQ,C'12')),
OUTREC=(1,2020)
ICE146I 0 END OF STATEMENTS FROM CTL4CNTL - PARAMETER LIST STATEMENTS FOLLOW
DEBUG NOABEND,ESTAE
OPTION LIST,MSGPRT=ALL,MSGDDN=DFSMSG,RESINV=0,SORTDD=CTL4,SORTIN=CON
RTOUT=OUT,DYNALLOC,SZERO,EQUALS,NOVLSHRT,LOCALE=NONE,
HECK
SORT FIELDS=(21,8,CH,A)
MODS E35=(ICE35DU,8192)
ICE063A 2 OPEN ERROR CON
ICE052I 3 END OF DFSORT
Can you please let me know the reason for this. I tried lot to get the reason for this but not able to get the same.
Joined: 02 Dec 2002 Posts: 1618 Topics: 31 Location: San Jose
Posted: Sun Oct 24, 2004 1:12 pm Post subject:
The OPEN error from DFSORT/ICETOOL means that the RECFM or LRECL from the files you concatenated was incompatible in some way (e.g. different LRECLs for RECFM=FB concatenated files). That usually means that the operators you used to set up the files you want to concatenate did not set them all up to have the same LRECL. Using the same n:X in the OUTREC statement or parameter for all of the output files to be concatenated as input can usually take care of this.
If you want help figuring out what's wrong exactly, you need to post the DFSORT/ICETOOL JCL and control statements. _________________ Frank Yaeger - DFSORT Development Team (IBM)
Specialties: JOINKEYS, FINDREP, WHEN=GROUP, ICETOOL, Symbols, Migration
DFSORT is on the Web at:
www.ibm.com/storage/dfsort
I am attaching the job below.
File 1, 2018 byte length, FB Key to be matched at position 21
File 2, 2018 byte length, FB key to be matched at position 1
Joined: 02 Dec 2002 Posts: 1618 Topics: 31 Location: San Jose
Posted: Tue Oct 26, 2004 10:44 am Post subject:
Amit,
When I ran your job, it ran successfully - it did not get the OPEN error. But your job doesn't actually do what you want it to do.
Here's a DFSORT/ICETOOL job that will do what you asked for:
Code:
//S1 EXEC PGM=ICETOOL
//TOOLMSG DD SYSOUT=*
//DFSMSG DD SYSOUT=*
//IN1 DD DSN=... input file1
//IN2 DD DSN=... input file2
//T1 DD DSN=&&T1,UNIT=SYSDA,SPACE=(CYL,(5,5)),DISP=(,PASS)
//T2 DD DSN=&&T2,UNIT=SYSDA,SPACE=(CYL,(5,5)),DISP=(,PASS)
//CON DD DSN=*.T1,VOL=REF=*.T1,DISP=(OLD,PASS)
// DD DSN=*.T2,VOL=REF=*.T2,DISP=(OLD,PASS)
//OUT DD DSN=... output file
//TOOLIN DD *
* 2018
* IN1->T1: |21,8|blanks |11|
COPY FROM(IN1) TO(T1) USING(CTL1)
* 2018
* IN2->T2: |1,2018 |22|
COPY FROM(IN2) TO(T2) USING(CTL2)
* T1/T2->OUT: SPLICE on 1,8,CH. Get 1-2019 from overlay
* record and 2020 from base record.
* Remove spliced records with '22' id - these are file2
* dup records without a match in file1.
* Remove the id.
SPLICE FROM(CON) TO(OUT) ON(1,8,CH) WITHALL -
WITH(1,2019) USING(CTL3)
/*
//CTL1CNTL DD *
OUTREC FIELDS=(21,8,2019:C'11')
/*
//CTL2CNTL DD *
OUTREC FIELDS=(1,2018,2019:C'22')
/*
//CTL3CNTL DD *
OUTFIL FNAMES=OUT,OMIT=(2019,2,CH,EQ,C'22'),
OUTREC=(1,2018)
/*
_________________ Frank Yaeger - DFSORT Development Team (IBM)
Specialties: JOINKEYS, FINDREP, WHEN=GROUP, ICETOOL, Symbols, Migration
DFSORT is on the Web at:
www.ibm.com/storage/dfsort
I am getting the following error message for the above job:
ICE146I 0 END OF STATEMENTS FROM CTL3CNTL - PARAMETER LIST STATEMENTS FOLLOW
DEBUG NOABEND,ESTAE
OPTION LIST,MSGPRT=ALL,MSGDDN=DFSMSG,RESINV=0,SORTDD=CTL3,SORTIN=CON,
RTOUT=OUT,DYNALLOC,SZERO,EQUALS,NOVLSHRT,LOCALE=NONE,N
HECK
SORT FIELDS=(1,8,CH,A)
MODS E35=(ICE35DU,8192)
ICE201I 0 RECORD TYPE IS F - DATA STARTS IN POSITION 1
ICE027A 9 END OF OUT FIELD BEYOND MAXIMUM RECORD LENGTH
ICE052I 3 END OF DFSORT
I was able to get the results when I used used the datasets instead of Temporary datasets in the above job posted. _________________ Amit
You cannot post new topics in this forum You cannot reply to topics in this forum You cannot edit your posts in this forum You cannot delete your posts in this forum You cannot vote in polls in this forum
FAQ
Search
Quick Manuals
Register
Profile
Log in to check your private messages
Log in
