IBM Mainframe Forum Index
 
Log In
 
IBM Mainframe Forum Index Mainframe: Search IBM Mainframe Forum: FAQ Register
 

Join U0418 errors


IBM Mainframe Forums -> DFSORT/ICETOOL
Post new topic   Reply to topic
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
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

Moderator Emeritus


Joined: 09 Mar 2011
Posts: 7309
Location: Inside the Matrix

PostPosted: Tue Jul 03, 2012 2:30 pm
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

Moderator Emeritus


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

PostPosted: Tue Jul 03, 2012 7:11 pm
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
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
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 View Bookmarks
All times are GMT + 6 Hours
Forum Index -> DFSORT/ICETOOL

 


Similar Topics
Topic Forum Replies
No new posts COBOL ZOS Web Enablement Toolkit HTTP... COBOL Programming 0
No new posts Join multiple records using splice DFSORT/ICETOOL 5
No new posts Join 2 files according to one key field. JCL & VSAM 3
No new posts JOIN STATEMENT PERFORMANCE. DFSORT/ICETOOL 12
No new posts Join files where value in one is betw... DFSORT/ICETOOL 6
Search our Forums:

Back to Top