Portal | Manuals | References | Downloads | Info | Programs | JCLs | Master the Mainframes
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Usergroups Profile Log in to check your private messages Log in
 

 

Sort JOINKEYS - Giving U1094 Abend

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> DFSORT/ICETOOL
View previous topic :: :: View next topic  
Author Message
rajeev samala

New User


Joined: 23 Dec 2005
Posts: 6

PostPosted: Mon Feb 13, 2012 9:00 pm    Post subject: Sort JOINKEYS - Giving U1094 Abend
Reply with quote

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
View user's profile Send private message

Bill Woodger

DFSORT Moderator


Joined: 09 Mar 2011
Posts: 7236

PostPosted: Mon Feb 13, 2012 9:15 pm    Post subject: Reply to: Sort JOINKEYS - Giving U1094 Abend
Reply with quote

Can you post the output messages please? All the ICE stuff.
Back to top
View user's profile Send private message
rajeev samala

New User


Joined: 23 Dec 2005
Posts: 6

PostPosted: Mon Feb 13, 2012 9:25 pm    Post subject:
Reply with quote

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
View user's profile Send private message
Skolusu

Senior Member


Joined: 07 Dec 2007
Posts: 2205
Location: San Jose

PostPosted: Mon Feb 13, 2012 9:48 pm    Post subject:
Reply with quote

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
View user's profile Send private message
rajeev samala

New User


Joined: 23 Dec 2005
Posts: 6

PostPosted: Mon Feb 13, 2012 10:00 pm    Post subject:
Reply with quote

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
View user's profile Send private message
Skolusu

Senior Member


Joined: 07 Dec 2007
Posts: 2205
Location: San Jose

PostPosted: Mon Feb 13, 2012 10:17 pm    Post subject:
Reply with quote

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
View user's profile Send private message
rajeev samala

New User


Joined: 23 Dec 2005
Posts: 6

PostPosted: Mon Feb 13, 2012 10:19 pm    Post subject:
Reply with quote

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
View user's profile Send private message
Skolusu

Senior Member


Joined: 07 Dec 2007
Posts: 2205
Location: San Jose

PostPosted: Mon Feb 13, 2012 10:24 pm    Post subject:
Reply with quote

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
View user's profile Send private message
rajeev samala

New User


Joined: 23 Dec 2005
Posts: 6

PostPosted: Mon Feb 13, 2012 10:37 pm    Post subject:
Reply with quote

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
View user's profile Send private message
Skolusu

Senior Member


Joined: 07 Dec 2007
Posts: 2205
Location: San Jose

PostPosted: Mon Feb 13, 2012 10:57 pm    Post subject: Reply to: Sort JOINKEYS - Giving U1094 Abend
Reply with quote

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
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> DFSORT/ICETOOL All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts IMS BMP program causes 878 system abend Artemk IMS DB/DC 7 Tue Nov 22, 2016 8:26 pm
No new posts Limit duplicate records in the SORT pshongal SYNCSORT 6 Mon Nov 21, 2016 12:54 pm
No new posts How to convert the VBM file to VB or... Sulabh Agrawal JCL & VSAM 4 Fri Nov 18, 2016 1:04 pm
No new posts Joinkeys operation when key1 and key2... Susanta DFSORT/ICETOOL 5 Wed Nov 02, 2016 5:35 pm
No new posts Sort records based on numeric field. Alks SYNCSORT 2 Wed Oct 19, 2016 10:14 pm


Facebook
Back to Top
 
Mainframe Wiki | Forum Rules | Bookmarks | Subscriptions | FAQ | Tutorials | Contact Us