View previous topic :: View next topic
Author
Message
rajeev samala New User Joined: 23 Dec 2005Posts: 6
I am trying to compare 2 files and writing the results into out file using JOINKES, but some times, not always, I am getting U1094 Abedn in JNF2 subtask, can anybody help me out from this abend.
Below is my JCL
Code:
//PS035 EXEC PGM=SORT,REGION=0M
//*
//SORTJNF1 DD DSN=<Infile1>,DISP=SHR
//*
//SORTJNF2 DD DSN=<Infile2>,DISP=SHR
//*
//SORTOUT DD DSN=<Out file>,
// DISP=(NEW,CATLG,DELETE),
// SPACE=(CYL,(1000,200),RLSE),
// UNIT=SYSDA,
// DATACLAS=COMPRESS,
// DCB=(RECFM=FB,BLKSIZE=0)
//*
//SYSOUT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSABOUT DD SYSOUT=*
//SYSDBOUT DD SYSOUT=*
//SYSABEND DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//*
//SORTWK01 DD UNIT=SYSDA,SPACE=(CYL,(500,100),RLSE)
//SORTWK02 DD UNIT=SYSDA,SPACE=(CYL,(500,100),RLSE)
//SORTWK03 DD UNIT=SYSDA,SPACE=(CYL,(500,100),RLSE)
//SORTWK04 DD UNIT=SYSDA,SPACE=(CYL,(500,100),RLSE)
//SORTWK05 DD UNIT=SYSDA,SPACE=(CYL,(500,100),RLSE)
//SORTWK06 DD UNIT=SYSDA,SPACE=(CYL,(500,100),RLSE)
//SORTWK07 DD UNIT=SYSDA,SPACE=(CYL,(500,100),RLSE)
//*
//SYSIN DD *
JOINKEYS FILES=F1,FIELDS=(16,10,A),
INCLUDE=(52,1,CH,NE,C'C',AND,
52,1,CH,NE,C'X')
JOINKEYS FILES=F2,FIELDS=(7,10,A)
REFORMAT FIELDS=(F2:1,500)
SORT FIELDS=COPY
/*
//
Back to top
Bill Woodger Moderator Emeritus Joined: 09 Mar 2011Posts: 7309 Location: Inside the Matrix
Can you post the output messages please? All the ICE stuff.
Back to top
rajeev samala New User Joined: 23 Dec 2005Posts: 6
For JNF2 Sub task.
Code:
1ICE201I H RECORD TYPE IS F - DATA STARTS IN POSITION 1
ICE162I 0 ICEIEXIT CHANGED ONE OR MORE OPTIONS IN EFFECT
ICE751I 0 C5-K62149 C6-K90026 C7-K58148 C8-K67572 E4-K58148 C9-BASE E5-K70685 E6-K58148 C4-K58148 E7-K70685
ICE417I 0 THIS IS THE JOINKEYS F2 SUBTASK FOR SORTJNF2
ICE143I 0 BLOCKSET SORT TECHNIQUE SELECTED
ICE250I 0 VISIT http://www.ibm.com/storage/dfsort FOR DFSORT PAPERS, EXAMPLES AND MORE
ICE000I 0 - CONTROL STATEMENTS FOR 5694-A01, Z/OS DFSORT V1R12 - 06:25 ON FRI FEB 10, 2012 -
0 SORT FORMAT=BI,FIELDS=(7,10,A)
RECORD TYPE=F
DEBUG NOABEND,ESTAE
OPTION EQUALS,MSGPRT=ALL,LIST,NOCHECK,RESINV=0,DYNALLOC,SORTDD=JNF2,MSG*
DDN=JNF2JMSG,SORTIN=SORTJNF2
ICE201I H RECORD TYPE IS F - DATA STARTS IN POSITION 1
ICE162I 0 ICEIEXIT CHANGED ONE OR MORE OPTIONS IN EFFECT
ICE751I 0 C5-K62149 C6-K90026 C7-K58148 C8-K67572 E4-K58148 C9-BASE E5-K70685 E6-K58148 C4-K58148 E7-K70685
ICE193I 0 ICEAM2 INVOCATION ENVIRONMENT IN EFFECT - ICEAM2 ENVIRONMENT SELECTED
ICE252I 1 PARMLIB OPTIONS WERE MERGED WITH INSTALLATION MODULE DEFAULTS
ICE088I 1 MDCD001#.JS001 .PS035 , INPUT LRECL = 500, BLKSIZE = 32500, TYPE = FB
ICE093I 0 MAIN STORAGE = (MAX,20764673,20736001)
ICE156I 0 MAIN STORAGE ABOVE 16MB = (20678641,20678641)
ICE127I 0 OPTIONS: OVFLO=RC0 ,PAD=RC0 ,TRUNC=RC0 ,SPANINC=RC16,VLSCMP=N,SZERO=Y,RESET=Y,VSAMEMT=Y,DYNSPC=256
ICE128I 0 OPTIONS: SIZE=20764673,MAXLIM=1048576,MINLIM=450560,EQUALS=Y,LIST=Y,ERET=RC16 ,MSGDDN=JNF2JMSG
ICE129I 0 OPTIONS: VIO=N,RESDNT=ALL ,SMF=SHORT,WRKSEC=Y,OUTSEC=Y,VERIFY=N,CHALT=N,DYNALOC=(SYSDA ,008),ABCODE=MSG
ICE130I 0 OPTIONS: RESALL=32768,RESINV=0,SVC=109 ,CHECK=N,WRKREL=Y,OUTREL=Y,CKPT=N,COBEXIT=COB2
ICE131I 0 OPTIONS: TMAXLIM=6291456,ARESALL=0,ARESINV=0,OVERRGN=16384,CINV=Y,CFW=Y,DSA=64
ICE132I 0 OPTIONS: VLSHRT=N,ZDPRINT=N,IEXIT=Y,TEXIT=N,LISTX=N,EFS=NONE ,EXITCK=S,PARMDDN=DFSPARM ,FSZEST=N
ICE133I 0 OPTIONS: HIPRMAX=OPTIMAL,DSPSIZE=0 ,ODMAXBF=0,SOLRF=Y,VLLONG=N,VSAMIO=N,MOSIZE=0
ICE235I 0 OPTIONS: NULLOUT=RC0
ICE236I 0 OPTIONS: DYNAPCT=10 ,MOWRK=Y
ICE084I 0 BSAM ACCESS METHOD USED FOR SORTJNF2
ICE750I 0 DC 2948780500 TC 0 CS DSV<< KSZ 14 VSZ 14
ICE752I 0 FSZ=5897561 RC IGN=0 E AVG=504 0 WSP=3860598 C DYN=70032 56456
ICE751I 2 DE-K61787 DA-K90026
0ICE805I 0 JOBNAME: MDCD001# , STEPNAME: JS001
ICE802I 0 BLOCKSET TECHNIQUE IN CONTROL
ICE992I 0 RA 0 WR 0 TR 1
ICE915I 0 MOFSZ=0,MOSZ=0,MOSYS=0(1),MOSTG=0,MEML=1938(1)
ICE916I 0 MOFR=0003,MOVR=VV
ICE996I 0 ESM=5665024,ESO=0,ESR=64000,ESP=4096,ESS=16384,CES=5665024,HSZ=524288
ICE997I 0 HWSP=1814191,HMAX=0,HES=0,ASV=0,EQ=N0,HN=0
ICE898I 0 OMAX=0,NMAX=3048501,ENQT=0,CMAX=0,HU=0,BUN=0,MD=N1,N1,DU=0,DR=0,HN=0
ICE889I 0 CT=MAX , SB=3, L=0, D=0000, CCW=1MAM
ICE901I 0 W 09PP17 02PP17 08PP17 06PP17 07PP17 04PP17 05PP17 01PP17
ICE901I 0 W 03PP13
ICE902I 0 O I PP10
ICE185A 0 AN U1094 ABEND WAS ISSUED BY DFSORT, ANOTHER PROGRAM OR AN EXIT (PHASE S 1)
Back to top
Skolusu Senior Member Joined: 07 Dec 2007Posts: 2205 Location: San Jose
Rajeev samala,
I am guessing that your file 2 has more duplicates on the key . I suggest that change file2 to SORTJNF1 and re-run your job. I also made a few changes to your job.
Code:
//PS035 EXEC PGM=SORT,REGION=0M
//*
//SORTJNF1 DD DSN=<Infile2>,DISP=SHR
//*
//SORTJNF2 DD DSN=<Infile1>,DISP=SHR
//*
//SORTOUT DD DSN=<Out file>,
// DISP=(NEW,CATLG,DELETE),
// SPACE=(CYL,(1000,200),RLSE),
// UNIT=SYSDA,
// DATACLAS=COMPRESS
//*
//SYSOUT DD SYSOUT=*
//SORTWK01 DD UNIT=SYSDA,SPACE=(CYL,(500,100),RLSE)
//SORTWK02 DD UNIT=SYSDA,SPACE=(CYL,(500,100),RLSE)
//SORTWK03 DD UNIT=SYSDA,SPACE=(CYL,(500,100),RLSE)
//SORTWK04 DD UNIT=SYSDA,SPACE=(CYL,(500,100),RLSE)
//SORTWK05 DD UNIT=SYSDA,SPACE=(CYL,(500,100),RLSE)
//SORTWK06 DD UNIT=SYSDA,SPACE=(CYL,(500,100),RLSE)
//SORTWK07 DD UNIT=SYSDA,SPACE=(CYL,(500,100),RLSE)
//*
//SYSIN DD *
JOINKEYS FILES=F1,FIELDS=(07,10,A)
JOINKEYS FILES=F2,FIELDS=(16,10,A)
REFORMAT FIELDS=(F1:1,500)
SORT FIELDS=COPY
//*
//JNF2CNTL DD *
OMIT COND=(52,1,SS,EQ,C'C,X')
//*
Back to top
rajeev samala New User Joined: 23 Dec 2005Posts: 6
Thanks for your reply. Actually my file 2 has more duplicates on the key that I am comparing. I will try changing the files.
Could you please clarify me, why the same JOB with same input files is running fine some times. let me say if I run the job 4 times, around 3 times it is running fine and 1 time it is abending with U1094.
Back to top
Skolusu Senior Member Joined: 07 Dec 2007Posts: 2205 Location: San Jose
rajeev samala,
Since a JOINKEYS application uses three tasks, it can require more storage than a regular DFSORT application. Depending on the time of run you might not get all the storage you need and hence the abend. Try switching the files and let us know
Back to top
rajeev samala New User Joined: 23 Dec 2005Posts: 6
Kolusu,
Job is still failing even after I changed the JCL as you requested.
I assume it is due to # of records in the file.
My file1 has 7348524 records with 1200 bytes
and file 2 has 5899316 records with 500 bytes.
But, I am not sure how to handle the main storage as I have already given REGION=0M.
Back to top
Skolusu Senior Member Joined: 07 Dec 2007Posts: 2205 Location: San Jose
Remove the hard coded sortworks and add this to your job and re-run the job.
Code:
//DFSPARM DD *
OPTION DYNALLOC=(SYSDA,16)
Back to top
rajeev samala New User Joined: 23 Dec 2005Posts: 6
Kolusu, I already removed the SORTWKnn files after I realized DFSORT is dynamically allocating JNFnWKnn files.
Even now I modified the JCL according to your suggestion, 2 times it ran fine, but third time again it failed with U1094.
Back to top
Skolusu Senior Member Joined: 07 Dec 2007Posts: 2205 Location: San Jose
rajeev samala,
Send the complete sysout to ( yaeger@us.ibm.com or skolusu@us.ibm.com ) and we will take a look at it
Back to top
Please enable JavaScript!