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

ICE039A F INSUFFICIENT MAIN STORAGE - ADD AT LEAST 28K BYTES


IBM Mainframe Forums -> DFSORT/ICETOOL
Post new topic   Reply to topic
View previous topic :: View next topic  
Author Message
bijoybabu83

New User


Joined: 15 Jan 2007
Posts: 36
Location: Kerala

PostPosted: Thu Sep 25, 2014 4:29 am
Reply with quote

I have created an icetool :-
Code:
//STEP005  EXEC PGM=ICETOOL                                             
//SYSPRINT   DD SYSOUT=*                                               
//SYSOUT     DD SYSOUT=*                                               
//TOOLMSG    DD SYSOUT=*                                               
//DFSMSG     DD SYSOUT=*                                               
//SORTDIAG DD DUMMY                                                     
//IN1        DD DSN=TST.SECAXSS.USERLIST.SG.SORTED,DISP=SHR             
//IN2        DD DSN=TST.SEC.LIDS.LIST.VTOF.SORTED,DISP=SHR             
//OUT        DD DSN=TST.SECAXSS.USERLIST.SG.JOIN,                       
//            DISP=(NEW,CATLG,DELETE),                                 
//            UNIT=DISK,DATACLAS=GDSE,                                 
//            SPACE=(CYL,(800,80),RLSE),                               
//            DCB=(LRECL=80,RECFM=FB)                                   
//DFSPARM DD *                                                         
 OPTION MOSIZE=0                                                       
/*                                                                     
//TOOLIN     DD *                                                       
 SORT JKFROM TO(OUT) USING(CTL1)                                       
/*                                                                     
//CTL1CNTL   DD *                                   
 JOINKEYS F1=IN1,FIELDS=(1,7,A)                     
 JOINKEYS F2=IN2,FIELDS=(6,7,A)                     
 REFORMAT FIELDS=(F1:1,44,F2:37,8)                 
 SORT FIELDS=COPY                                   
 OUTREC FIELDS=(1,52,80:X)                         
/*                                               


This gives the above message in DFSMSG log - ICE039A F INSUFFICIENT MAIN STORAGE - ADD AT LEAST 28K BYTES
I tried giving OPTION MOSIZE=0 and later set the diagnostic message on by giving //SORTDIAG DD DUMMY
Please find the diagnostics messages for :-
JNF1JMSG
Code:
ICE804I 1 JNF2WK12 EXCP COUNT: 0                                       
ICE804I 1 JNF2WK11 EXCP COUNT: 0                                       
ICE804I 1 JNF2WK10 EXCP COUNT: 0                                       
ICE804I 1 JNF2WK0F EXCP COUNT: 0                                       
ICE804I 1 JNF2WK0E EXCP COUNT: 0                                       
ICE804I 1 JNF2WK0D EXCP COUNT: 0                                       
ICE804I 1 JNF2WK0C EXCP COUNT: 0                                       
ICE804I 1 JNF2WK0B EXCP COUNT: 0                                       
ICE804I 1 JNF2WK0A EXCP COUNT: 0                                       
ICE804I 1 JNF2WK09 EXCP COUNT: 0                                       
ICE804I 1 JNF2WK08 EXCP COUNT: 0                                       
ICE804I 1 JNF2WK07 EXCP COUNT: 0                                       
ICE804I 1 JNF2WK06 EXCP COUNT: 0                                       
ICE804I 1 JNF2WK05 EXCP COUNT: 0                                       
ICE804I 1 JNF2WK04 EXCP COUNT: 0                                       
ICE804I 1 JNF2WK03 EXCP COUNT: 0                                       
ICE804I 1 JNF2WK02 EXCP COUNT: 0                                       
ICE804I 1 JNF2WK01 EXCP COUNT: 0                                       
ICE804I 1 IN1      EXCP COUNT: 1                                     
ICE899I 0 HSR=0,HSW=0,HRE=0,HWE=0,HRP=0,HWP=0,HWM=0,HNM=1             
ICE052I 0 END OF DFSORT         


JNF2JMSG

Code:
ICE804I 1 JNF2WK12 EXCP COUNT: 1                                             
ICE804I 1 JNF2WK11 EXCP COUNT: 1                                             
ICE804I 1 JNF2WK10 EXCP COUNT: 1                                             
ICE804I 1 JNF2WK0F EXCP COUNT: 1                                             
ICE804I 1 JNF2WK0E EXCP COUNT: 1                                             
ICE804I 1 JNF2WK0D EXCP COUNT: 1                                             
ICE804I 1 JNF2WK0C EXCP COUNT: 1                                             
ICE804I 1 JNF2WK0B EXCP COUNT: 1                                             
ICE804I 1 JNF2WK0A EXCP COUNT: 1                                             
ICE804I 1 JNF2WK09 EXCP COUNT: 1                                             
ICE804I 1 JNF2WK08 EXCP COUNT: 1                                             
ICE804I 1 JNF2WK07 EXCP COUNT: 1                                             
ICE804I 1 JNF2WK06 EXCP COUNT: 1                                             
ICE804I 1 JNF2WK05 EXCP COUNT: 1                                             
ICE804I 1 JNF2WK04 EXCP COUNT: 2                                             
ICE804I 1 JNF2WK03 EXCP COUNT: 1                                             
ICE804I 1 JNF2WK02 EXCP COUNT: 1                                             
ICE804I 1 JNF2WK01 EXCP COUNT: 1                                 
ICE804I 1 IN2      EXCP COUNT: 3                                 
ICE899I 0 HSR=0,HSW=0,HRE=0,HWE=0,HRP=0,HWP=0,HWM=0,HNM=1         
ICE052I 0 END OF DFSORT                                           


Please help me in resolving this as I am stuck up here.

Code'd
Back to top
View user's profile Send private message
Robert Sample

Global Moderator


Joined: 06 Jun 2008
Posts: 8696
Location: Dubuque, Iowa, USA

PostPosted: Thu Sep 25, 2014 4:43 am
Reply with quote

Code:
]//STEP005 EXEC PGM=ICETOOL,REGION=????
is what you need -- where ???? is a value dependent upon your site. You might try 4M (or 4096K) and adjust from there. If the default region size your site uses is insufficient, and that is what the message about adding 28K means, none of the parameter values you can change in ICETOOL will be able to impact the lack of region .
Back to top
View user's profile Send private message
bijoybabu83

New User


Joined: 15 Jan 2007
Posts: 36
Location: Kerala

PostPosted: Thu Sep 25, 2014 5:07 am
Reply with quote

Thank you so much Robert for giving me a spark to look in the right direction. I had a region=6m parameter in jobcard. I changed it to region=0M and it worked. Thank you so much...
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: Thu Sep 25, 2014 12:14 pm
Reply with quote

When posting information to preserve spacing, you need the Code tags, not Img tags.

Robert didn't suggest coding 0M, which is an entirely sloppy way to do it unless you have specific reason (if documentation says so).

Why did you use ICETOOL? It is an entirely routine SORT with JOINKEYS. Why use ICETOOL's SORT operator anyway, when you only want to copy the file. Why use OUTREC to leave the record unchanged? Why do you have 12 work-datasets? Take the DCB information off your output file. DFSORT will accurately provide it and you won't have two places to get it the same, and then keep the same during maintenance.

Code:
//SYSIN   DD *                                   
 JOINKEYS F1=IN1,FIELDS=(1,7,A)                     
 JOINKEYS F2=IN2,FIELDS=(6,7,A)                     
 REFORMAT FIELDS=(F1:1,44,F2:37,8)                 
 SORT FIELDS=COPY   


EXEC PGM=SORT, remove the DCB from the output defintion.

If either or both of the files are already in key sequence, specify SORTED,NOSEQCK for that JOINKEYS statement.

On file 3 of the spool for each job, compare the memory used for the ICETOOL step and the memory used for the above when you get it working. Any difference?
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 CLIST - Virtual storage allocation error CLIST & REXX 5
No new posts CICS vs LE: STORAGE option CICS 0
No new posts Insufficient Storage ABENDS & Debugging 7
No new posts Masking variable size field - min 10 ... DFSORT/ICETOOL 4
No new posts Interviewers are surprised with my an... Mainframe Interview Questions 6
Search our Forums:

Back to Top