View previous topic :: View next topic
|
Author |
Message |
harijax
New User
Joined: 16 Jul 2008 Posts: 22 Location: Bangalore
|
|
|
|
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 |
|
|
William Thompson
Global Moderator
Joined: 18 Nov 2006 Posts: 3156 Location: Tucson AZ
|
|
|
|
For starters:
|
|
Back to top |
|
|
Terry Heinze
JCL Moderator
Joined: 14 Jul 2008 Posts: 1248 Location: Richfield, MN, USA
|
|
|
|
How many more is "etc...."? In other words how large is your 01 level? |
|
Back to top |
|
|
harijax
New User
Joined: 16 Jul 2008 Posts: 22 Location: Bangalore
|
|
|
|
I have around 163 columns. It is a large table. |
|
Back to top |
|
|
dick scherrer
Moderator Emeritus
Joined: 23 Nov 2006 Posts: 19243 Location: Inside the Matrix
|
|
|
|
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 |
|
|
harijax
New User
Joined: 16 Jul 2008 Posts: 22 Location: Bangalore
|
|
|
|
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 |
|
|
dick scherrer
Moderator Emeritus
Joined: 23 Nov 2006 Posts: 19243 Location: Inside the Matrix
|
|
|
|
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 |
|
Back to top |
|
|
Terry Heinze
JCL Moderator
Joined: 14 Jul 2008 Posts: 1248 Location: Richfield, MN, USA
|
|
|
|
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 |
|
|
dick scherrer
Moderator Emeritus
Joined: 23 Nov 2006 Posts: 19243 Location: Inside the Matrix
|
|
|
|
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 |
|
Back to top |
|
|
harijax
New User
Joined: 16 Jul 2008 Posts: 22 Location: Bangalore
|
|
|
|
Our COBOL version is IBM Enterprise COBOL for z/OS 3.4.1 . |
|
Back to top |
|
|
Terry Heinze
JCL Moderator
Joined: 14 Jul 2008 Posts: 1248 Location: Richfield, MN, USA
|
|
|
|
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 |
|
|
dick scherrer
Moderator Emeritus
Joined: 23 Nov 2006 Posts: 19243 Location: Inside the Matrix
|
|
|
|
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 |
|
|
Terry Heinze
JCL Moderator
Joined: 14 Jul 2008 Posts: 1248 Location: Richfield, MN, USA
|
|
Back to top |
|
|
|