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
 

 

Join U0418 errors

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

New User


Joined: 09 Apr 2007
Posts: 33
Location: India

PostPosted: Tue Jul 03, 2012 12:57 pm    Post subject: Join U0418 errors
Reply with quote

I have two big files used in JOIN with below command
Code:
JOINKEYS FILE=F1,FIELDS=(12,12,A) 
JOINKEYS FILE=F2,FIELDS=(12,12,A) 
REFORMAT FIELDS=(F1:4,8,3,1,12,2, 
                    120,11,       
                 F2:49,2,380,1,   
                    385,2,381,4)   
INREC  BUILD=(01:1,9,             
              10:C'xxxxxxxxxx',   
              20:10,2,13X,         
              35:12,11,4X,         
              50:23,2,13X,         
              65:25,1,14X,         
              80:26,2,13X,         
              95:150X,             
             245:C'000000001',     
             254:14C'0',           
             268:28,4,             
             272:252C'0')         
SORT FIELDS=(20,75,CH,A)           
SUM FIELDS=(245,09,ZD,254,18,ZD)


Sysout is having following message

Code:

ICE093I 0 MAIN STORAGE = (MAX,43730446,43701774)                             
ICE156I 0 MAIN STORAGE ABOVE 16MB = (43644414,43644414)                       
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=43730446,MAXLIM=1048576,MINLIM=450560,EQUALS=Y,LIST=Y, ERET=ABEND,MSGDDN=SYSOUT             
ICE129I 0 OPTIONS: VIO=N,RESDNT=ALL ,SMF=FULL ,WRKSEC=Y,OUTSEC=Y,VERIFY=N,CHALT=N,DYNALOC=N             ,ABCODE=MSG
ICE130I 0 OPTIONS: RESALL=4096,RESINV=0,SVC=109 ,CHECK=Y,WRKREL=Y,OUTREL=Y,CKPT=N,COBEXIT=COB2                     
ICE131I 0 OPTIONS: TMAXLIM=6291456,ARESALL=0,ARESINV=0,OVERRGN=65536,CINV=Y,CFW=Y,DSA=64                           
ICE132I 0 OPTIONS: VLSHRT=N,ZDPRINT=Y,IEXIT=N,TEXIT=N,LISTX=N,EFS=NONE    ,EXITCK=S,PARMDDN=DFSPARM ,FSZEST=N   
ICE133I 0 OPTIONS: HIPRMAX=OPTIMAL,DSPSIZE=MAX ,ODMAXBF=0,SOLRF=Y,VLLONG=N,VSAMIO=N,MOSIZE=MAX                     
ICE235I 0 OPTIONS: NULLOUT=RC0                                               
ICE084I 0 BSAM ACCESS METHOD USED FOR SORTOUT                                 
ICE750I 0 DC 0 TC 0 CS DSVNN KSZ 79 VSZ 79                                   
ICE752I 0 FSZ=24968169 RE  IGN=0 C  AVG=528 0  WSP=17122703 E  DYN=0 0       
ICE751I 1 DE-K61785 D5-K62201 D9-K61785 E8-K61438                             
ICE418A 4 JOINKEYS F2 SUBTASK FOR SORTJNF2 TERMINATED - SEE JNF2JMSG MESSAGES
ICE052I 0 END OF DFSORT


JNF2JMSG has following message..

Code:
ICE750I 0 DC 5823220392 TC 0 CS DSVVV KSZ 16 VSZ 16                           
ICE752I 0 FSZ=14272599 RC  IGN=0 E  AVG=412 0  WSP=7637514 C  DYN=71124 53216 
ICE751I 2 DE-K61785 DA-K69253                                                 
ICE185A 0 AN U1094 ABEND WAS ISSUED BY DFSORT, ANOTHER PROGRAM OR AN EXIT (PHASE S 1)




i couldn't understand any from above details..any suggestion what could be issue. FYI..The JOIN command working on small files.
Back to top
View user's profile Send private message

Bill Woodger

DFSORT Moderator


Joined: 09 Mar 2011
Posts: 7253

PostPosted: Tue Jul 03, 2012 2:30 pm    Post subject: Reply to: Join U0418 errors
Reply with quote

You have to dig for information from the message you have shown. Google, manuals.

Why are you expanding the reformat record with INREC for large files. You are adding a lot of space which could just as conveniently be added with OUTREC, after the SORT/SUM is complete?

Have you followed the advice about the REGION?
Back to top
View user's profile Send private message
dick scherrer

Site Director


Joined: 23 Nov 2006
Posts: 19270
Location: Inside the Matrix

PostPosted: Tue Jul 03, 2012 7:11 pm    Post subject:
Reply with quote

Hello,

Is this now working?

If not, you need to post any diagnostic information generated in any of the queued output (which includes the JES.... sysouts.
Back to top
View user's profile Send private message
umanaga

New User


Joined: 09 Apr 2007
Posts: 33
Location: India

PostPosted: Tue Jul 03, 2012 8:29 pm    Post subject:
Reply with quote

REGION is working..

Also using OUTREC to format the record instead of INREC is working without REGION parm.

Thanks for pointing that Bill..and dick for followup icon_smile.gif
Back to top
View user's profile Send private message
Skolusu

Senior Member


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

PostPosted: Tue Jul 03, 2012 9:31 pm    Post subject: Reply to: Join U0418 errors
Reply with quote

umanaga,

In addition to the region parameter you can actually reduce the size of the records using JNF1 and JNF2. You only need 22 bytes from file1 and 9 bytes from file 2 apart from the key. So use an INREC BUILD on JNF1 and JNF2 to pick only the fields you want.

Also as Bill mentioned you can expand the record in the last phase of sort. OUTREC or OUTFIL. Ideally I would prefer using reporting features to get the count and total. Here is an updated version of your job.


Code:

//STEP0100 EXEC PGM=SORT,REGION=0M               
//SYSOUT   DD SYSOUT=*                           
//SORTJNF1 DD DSN=Your input file 1,DISP=SHR                 
//SORTJNF2 DD DSN=Your input file 2,DISP=SHR                 
//SORTOUT  DD SYSOUT=*                           
//SYSIN    DD *                                   
  JOINKEYS FILES=F1,FIELDS=(1,12,A)               
  JOINKEYS FILES=F2,FIELDS=(1,12,A)               
  REFORMAT FIELDS=(F1:13,22,F2:13,9)             
  SORT FIELDS=(10,18,CH,A)                       
                                                 
  OUTFIL REMOVECC,NODETAIL,BUILD=(523X),         
  SECTIONS=(10,18,                               
  TRAILER3=(001,9,                               
            010:10'X',                           
            020:10,02,                           
            035:12,11,                           
            050:23,02,                           
            065:25,01,                           
            080:26,02,                           
            245:COUNT=(M11,LENGTH=9),             
            254:TOT=(28,4,ZD,M11,LENGTH=18),     
            272:252'0'))                         
//*                                               
//JNF1CNTL DD *                                   
  INREC BUILD=(12,12,4,8,3,1,12,2,120,11)         
//*
//JNF2CNTL DD *                                   
  INREC BUILD=(12,12,49,2,380,1,385,2,381,4)     
//*
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 Join in SQL Query vickey_dw DB2 2 Tue Jan 17, 2017 12:15 am
No new posts How can we have the varying lenth of ... Gunapala CN DFSORT/ICETOOL 6 Fri Oct 14, 2016 7:31 pm
No new posts Several errors during building altern... Andi1982 JCL & VSAM 11 Wed Jul 06, 2016 7:39 pm
No new posts Join key - Populate Zeros when Unpair... rexx77 DFSORT/ICETOOL 6 Thu May 12, 2016 12:22 am
No new posts Join Keys and DB2 Query jackare SYNCSORT 2 Sat Feb 13, 2016 5:57 am


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