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

CEECZST - Insufficient storage


IBM Mainframe Forums -> COBOL Programming
Post new topic   Reply to topic
View previous topic :: View next topic  
Author Message
harijax

New User


Joined: 16 Jul 2008
Posts: 22
Location: Bangalore

PostPosted: Tue Feb 17, 2009 6:31 pm
Reply with quote

Hi All,

I have a working storage array of OCCURS 30000 TIMES declared like below.

01 A.
05 B PIC 9(8) OCUURS 30000 TIMES.
05 C PIC 9(8) OCUURS 30000 TIMES.
05 D PIC 9(8) OCUURS 30000 TIMES.
etc....

While running I am getting

""CEE0813S Insufficient storage was available to satisfy a get storage (CEECZST) request. From compile unit KO010 at entry point KO010 at compile unit offset +0000E236 at entry offset +0000E236 at address 22EC4236. ""

Should I include something in my PARMMVS.

Currently it is as below.
*PARMMVS PARM.DB2=(NEWFUN(YES))
*PARMMVS PARM.COB=(DATA(31),F(I,I),OPT(STD),TRUNC(OPT))
*PARMMVS PARM.LNK=(RENT,'AMODE=31','RMODE=ANY')
*PARMMVS PARM.INT=(LISTER=ALL)
Regards
Jayakrishnan
Back to top
View user's profile Send private message
William Thompson

Global Moderator


Joined: 18 Nov 2006
Posts: 3156
Location: Tucson AZ

PostPosted: Tue Feb 17, 2009 6:59 pm
Reply with quote

For starters:
CICS Guy wrote:
Of course you looked here, right?
http://publib.boulder.ibm.com/infocenter/zos/v1r9/index.jsp?topic=/com.ibm.zos.r9.ceea900/lemes.htm
CEE0813S
Insufficient storage was available to satisfy a get storage (CEECZST) request.
Explanation:
There was not enough free storage available to satisfy a get storage call to CEEGTST or reallocate request call to CEECZST.
Programmer response:
Ensure that the REGION size is sufficient to run the application. Ensure that the size parameter in the get storage request is not an unusually large number. Verify that the storage sizes specified in the HEAP and STACK run-time options are reasonable, given the region size allocated to the application. Verify that you are using storage options that get your storage from above the line, if you can, since you can run out of storage below the line much more easily.
Additionally:
http://www-1.ibm.com/support/docview.wss?rs=2231&context=SS6SG3&dc=DB520&uid=swg21199554&loc=en_US&cs=UTF-8&lang=en
CEE0813S Insufficient storage was available to satisfy a get storage - when using FUNCTION UPPER-CASE, etc.
And:
http://www-1.ibm.com/support/docview.wss?uid=swg1PQ39129
PQ39129: CEE0813S INSUFFICIENT STORAGE WAS AVAILABLE TO SATISFY A GET STORAGE (CEECZST) REQUEST.
Back to top
View user's profile Send private message
Terry Heinze

JCL Moderator


Joined: 14 Jul 2008
Posts: 1249
Location: Richfield, MN, USA

PostPosted: Wed Feb 18, 2009 11:00 am
Reply with quote

How many more is "etc...."? In other words how large is your 01 level?
Back to top
View user's profile Send private message
harijax

New User


Joined: 16 Jul 2008
Posts: 22
Location: Bangalore

PostPosted: Mon Feb 23, 2009 9:10 am
Reply with quote

I have around 163 columns. It is a large table.
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: Mon Feb 23, 2009 10:12 am
Reply with quote

Hello,

Time for a different design. . . The array is 39,120,000.

The limit for an 01 the limit is 16,777,215 bytes (unless i looked at the manual incorrectly). Did this successfully compile?
Back to top
View user's profile Send private message
harijax

New User


Joined: 16 Jul 2008
Posts: 22
Location: Bangalore

PostPosted: Mon Feb 23, 2009 10:17 am
Reply with quote

Hi Dick,

Initially I fetched 1000 records at a time. It went fine. I increased my count to 30000. Got a problem during run time (CEE0813S). Then I reduced to 20000. It again worked fine.

For compilation, I didnt get any problems.

Regards
Jayakrishnan
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: Mon Feb 23, 2009 10:24 am
Reply with quote

Hello,

How are these thousands of 8-digit numbers used?

What length did the compiler calculate for "A"?
163 * 8 * 20000 is 26,080,000 which should still be too large icon_confused.gif
Back to top
View user's profile Send private message
Terry Heinze

JCL Moderator


Joined: 14 Jul 2008
Posts: 1249
Location: Richfield, MN, USA

PostPosted: Mon Feb 23, 2009 11:17 am
Reply with quote

The COBOL II limit was 16MB minus 1, but the Enterprise COBOL limit is 128MB minus 1. I've run programs with a 128MB table (it was a one-time only program for an IMS-to-DB2 conversion project) and it ran fine. However trying to run a program with that large of an internal table would cause a problem under Xpediter or another debugger because of the TSO region size. What platform are you running this program on?
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: Mon Feb 23, 2009 11:24 am
Reply with quote

Hello,

From the Enterprise COBOL language ref - "The following table lists the compiler limits for Enterprise COBOL programs."
Quote:
Working-storage and local-storage sections

Items without the external attribute
134,217,727 bytes

Items with the external attribute
134,217,727 bytes

77 data-names
16,777,215 bytes

01-49 data-names
16,777,215 bytes

It appears that an 01 in ws has the 16meg limit. . . Clarification welcome icon_smile.gif
Back to top
View user's profile Send private message
harijax

New User


Joined: 16 Jul 2008
Posts: 22
Location: Bangalore

PostPosted: Mon Feb 23, 2009 11:25 am
Reply with quote

Our COBOL version is IBM Enterprise COBOL for z/OS 3.4.1 .
Back to top
View user's profile Send private message
Terry Heinze

JCL Moderator


Joined: 14 Jul 2008
Posts: 1249
Location: Richfield, MN, USA

PostPosted: Mon Feb 23, 2009 9:00 pm
Reply with quote

From Appendix B of Enterprise COBOL for z/OS V3.4 Language Reference
:
Quote:
Data division

| 77 data item size
| 134,217,727 bytes

| 01-49 data item size
| 134,217,727 bytes

copyright IBM
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: Mon Feb 23, 2009 10:14 pm
Reply with quote

Hi Terry,

Did you get those numbers from the manual linked via "IBM Manuals" at the top of the page? It may be that our manual is out of date. . . This is what we have linked:
Quote:
Enterprise COBOL for z/OS and OS/390

Language Reference

Version 3 Release 2

Document Number SC27-1408-01

Program Number
5655-G53
which is where the numbers i posted came from. . .
Back to top
View user's profile Send private message
Terry Heinze

JCL Moderator


Joined: 14 Jul 2008
Posts: 1249
Location: Richfield, MN, USA

PostPosted: Mon Feb 23, 2009 11:06 pm
Reply with quote

Nope; got mine from a link in my Favorites:
publibz.boulder.ibm.com/cgi-bin/bookmgr_OS390/BOOKS/IGY3LR30/CCONTENTS?DT=20050714120224
Appendix B. Compiler limits
© Copyright IBM Corp. 1991, 2005
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 -> COBOL Programming

 


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 Interviewers are surprised with my an... Mainframe Interview Questions 6
No new posts is there an API to use cloud storage ... All Other Mainframe Topics 2
Search our Forums:

Back to Top