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
 

 

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

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> DFSORT/ICETOOL
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    Post subject: ICE039A F INSUFFICIENT MAIN STORAGE - ADD AT LEAST 28K BYTES
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: 7905
Location: Bellevue, IA

PostPosted: Thu Sep 25, 2014 4:43 am    Post subject:
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    Post subject: Reply to: ICE039A F INSUFFICIENT MAIN STORAGE - ADD AT LEAST
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

DFSORT Moderator


Joined: 09 Mar 2011
Posts: 7223

PostPosted: Thu Sep 25, 2014 12:14 pm    Post subject: Reply to: ICE039A F INSUFFICIENT MAIN STORAGE - ADD AT LEAST
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    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 Missing Java main class akg Java & MQSeries 3 Wed May 25, 2016 4:05 pm
No new posts How storage is calculated for AN-Edit... Raghu navaikulam COBOL Programming 2 Wed Mar 09, 2016 3:51 pm
No new posts How can amount of the Storage Usage b... esduman61 CICS 6 Wed Mar 09, 2016 1:19 pm
No new posts CEE0813S Insufficient storage was ava... kishpra COBOL Programming 18 Mon Nov 09, 2015 8:37 pm
No new posts FIXED BIN (31) and FIXED BIN (63) - H... sundarkudos PL/I & Assembler 4 Thu Nov 05, 2015 1:11 pm


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