Portal | Manuals | References | Downloads | Info | Programs | JCLs | Mainframe wiki | Quick Ref
IBM Mainframe Forum Index
 
Register
 
IBM Mainframe Forum Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Profile Log in to check your private messages Log in
 
ICE039A H 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
Divya V

New User


Joined: 05 Oct 2019
Posts: 2
Location: INDIA

PostPosted: Sun Oct 06, 2019 7:25 am    Post subject: ICE039A H INSUFFICIENT MAIN STORAGE - ADD AT LEAST 28K BYTES
Reply with quote

Hello,

I have a SORT job as below.

Code:
//RBSTP03  EXEC PGM=SORT,REGION=0M
//SYSOUT   DD  SYSOUT=X
//SORTIN   DD  DSN=XXXX.XX.FILE1,
//             DISP=SHR
//         DD  DSN=XXXX.XX.FILE2,
//             DISP=SHR
//SORTOUT  DD  DSN=XXXX.XX.SORTOUT,
//             DISP=(,CATLG,DELETE),
//             SPACE=(CYL,(2500,20),RLSE),
//             DCB=(GDG.MODEL,RECFM=FB,BLKSIZE=0,LRECL=1100)
//SYSIN    DD  *
  SORT FIELDS=(78,2,BI,A,90,2,BI,A,116,1,BI,A,85,5,BI,A,133,1,BI,A,
             134,6,BI,A,
             94,5,BI,A,128,1,BI,A,103,7,BI,A,110,6,BI,A,2,11,BI,A)
/*

This job is failing with error ICE039A H INSUFFICIENT MAIN STORAGE - ADD AT LEAST 28K BYTES

Job Log:
Code:
ICE193I 0 ICEAM1 INVOCATION ENVIRONMENT IN EFFECT - ICEAM1 ENVIRONMENT SELECTED
ICE088I 1 OTRB2U65.RBSTP03 .        , INPUT LRECL = 1100, BLKSIZE = 27500, TYPE = FB
ICE093I 0 MAIN STORAGE = (MAX,20312294,20312294)
ICE156I 0 MAIN STORAGE ABOVE 16MB = (20234454,20234454)
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=20312294,MAXLIM=1048576,MINLIM=450560,EQUALS=N,LIST=Y,ERET=ABEND,MSGDDN=SYSOUT
ICE129I 0 OPTIONS: VIO=N,RESDNT=ALL ,SMF=FULL ,WRKSEC=Y,OUTSEC=Y,VERIFY=N,CHALT =N,DYNALOC=(SYSDA   ,009),ABCODE=MSG
ICE130I 0 OPTIONS: RESALL=65536,RESINV=0,SVC=109 ,CHECK=Y,WRKREL=Y,OUTREL=Y,CKPT=N,COBEXIT=COB2
ICE131I 0 OPTIONS: TMAXLIM=12582912,ARESALL=0,ARESINV=0,OVERRGN=0,CINV=Y,CFW=Y,DSA=128
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=0      ,DSPSIZE=MAX ,ODMAXBF=0,SOLRF=Y,VLLONG=N,VSAMIO=N,MOSIZE=MAX
ICE235I 0 OPTIONS: NULLOUT=RC0
ICE236I 0 OPTIONS: DYNAPCT=10 ,MOWRK=Y,TUNE=STOR,EXPMAX=MAX    ,EXPOLD=50%    ,EXPRES=10%
ICE084I 0 BSAM ACCESS METHOD USED FOR SORTOUT
ICE084I 0 BSAM ACCESS METHOD USED FOR SORTIN
ICE750I 0 DC 2844270000 TC 0 CS DSVVV KSZ 47 VSZ 47
ICE752I 0 FSZ=2585700 RC  IGN=0 E  AVG=1100 0  WSP=3694218 C  DYN=22041 53216

I have tried adding Region 0M, 256M to the job card and step also but it is failing with same reason.
Can someone help is there any other way to solve this.
Back to top
View user's profile Send private message

Joerg.Findeisen

New User


Joined: 15 Aug 2015
Posts: 61
Location: Germany

PostPosted: Sun Oct 06, 2019 8:16 am    Post subject:
Reply with quote

Please use Code Tags to make the mess more readable. icon_rolleyes.gif

You can try to use DFSPARM (not sure if that helps)

Code:

//DFSPARM DD *
OPTION  DYNALLOC=(SYSDA,32),
        DYNAPCT=25,
        DSA=1024
/*


Other than that lookup REGIONX and MEMLIMIT JCL parms. There may be installation specific restrictions.
Back to top
View user's profile Send private message
Joerg.Findeisen

New User


Joined: 15 Aug 2015
Posts: 61
Location: Germany

PostPosted: Sun Oct 06, 2019 8:26 am    Post subject:
Reply with quote

Add HIPRMAX=OPTIMAL to the DFSPARM as well.
Back to top
View user's profile Send private message
Divya V

New User


Joined: 05 Oct 2019
Posts: 2
Location: INDIA

PostPosted: Sun Oct 06, 2019 9:46 am    Post subject:
Reply with quote

Hello Joerg,

Thanks for the help.
Adding DFSPARM as per your suggestion helped!!

Thank you so much.
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 Cics storage violation Venkata Ramayya CICS 10 Thu Nov 07, 2019 12:45 am
No new posts Storage usage in a web service provider. John Poulakos CICS 0 Tue Jun 04, 2019 8:12 pm
No new posts temporary storage queue Ziko13 CICS 4 Mon May 20, 2019 1:54 pm
No new posts converting bytes and megabytes to kil... knobi SYNCSORT 4 Fri Apr 12, 2019 8:05 pm
No new posts How to convert 2 bytes into single by... pkmurali DB2 6 Fri May 25, 2018 1:41 pm

Facebook
Back to Top
 
Job Vacancies | Forum Rules | Bookmarks | Subscriptions | FAQ | Polls | Contact Us