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

Table handling - increased maximum limit


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

New User


Joined: 07 May 2006
Posts: 32
Location: Pune

PostPosted: Fri Feb 10, 2012 10:25 pm
Reply with quote

I am running with one problem and in short i will explain .. One program is having 160K occurence table to process data from different input files. Initially it was some 40K limit and data received was near about 140K something and Job abendaid due to that, so i had increased the limit to 200 K but again found abend S878. Later came to know that the max available limit is 167 K something for one table.

The problem is business is saying this increment is only 20% there will be 80% more on that so trying to find out any simple solution that can implement within 1 month.

Ideas on this are most welcome...
Back to top
View user's profile Send private message
enrico-sorichetti

Superior Member


Joined: 14 Mar 2007
Posts: 10886
Location: italy

PostPosted: Fri Feb 10, 2012 10:48 pm
Reply with quote

the question is clear as mud ...
anyway look at the compiler limits
publibz.boulder.ibm.com/cgi-bin/bookmgr_OS390/BOOKS/IGY3LR31/APPENDIX1.2?SHELF=IGY3SH33&DT=20060329140556
up to You to find the proper manual for Your version of cobol

if Your storage definitions/requirement hit any one of the compiler limits
You will have to redesign the whole process.
Back to top
View user's profile Send private message
Bill O'Boyle

CICS Moderator


Joined: 14 Jan 2008
Posts: 2501
Location: Atlanta, Georgia, USA

PostPosted: Fri Feb 10, 2012 10:50 pm
Reply with quote

What is your version/release of COBOL?

What did you set your REGION parm at?

200K, causing an S878, sounds suspicious....

Mr. Bill
Back to top
View user's profile Send private message
creator.abhishek

New User


Joined: 07 May 2006
Posts: 32
Location: Pune

PostPosted: Fri Feb 10, 2012 10:57 pm
Reply with quote

REGIOn Parameter is 0M (Max).. however 100M, 200M like wise also not worked...

Limitations of a table is listed here..

publib.boulder.ibm.com/infocenter/iadthelp/v7r0/index.jsp?topic=/com.ibm.etools.iseries.langref.doc/c0925395250.htm
Back to top
View user's profile Send private message
enrico-sorichetti

Superior Member


Joined: 14 Mar 2007
Posts: 10886
Location: italy

PostPosted: Fri Feb 10, 2012 11:07 pm
Reply with quote

it is You that should read the manual, do not expect that somebody her will do the reading on Your behalf,

anyway the link You posted pints to the wrong COBOL ...
ILE COPBOLS Is for Iseries operating systems ( AS400 family ) not Enterprise cobol



what is the reason code for the s878 abend ???
publibz.boulder.ibm.com/cgi-bin/bookmgr_OS390/BOOKS/IEA2H792/2.511?SHELF=IEA2BK91&DT=20090112020001&CASE=
Back to top
View user's profile Send private message
Robert Sample

Global Moderator


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

PostPosted: Fri Feb 10, 2012 11:22 pm
Reply with quote

Quote:
Later came to know that the max available limit is 167 K something for one table.
The actual limit will vary, depending upon the size of each table element and the version of COBOL you are dealing with. If you're using Enterprise COBOL, 167000 occurrences would translate into a table element length of about 800 bytes.

If you are truly running against a compiler limit, you have one and only one choice: change your design. You cannot, for example, get around the maximum table size set by the compiler -- so your best choice would be to use a file to hold the data you were going to put into the table. But since you've explained very little about what you're doing and the precise problem you're having or even the compiler you're using, there's not much more we can tell you -- give us generic data, we give you generic solutions.
Back to top
View user's profile Send private message
creator.abhishek

New User


Joined: 07 May 2006
Posts: 32
Location: Pune

PostPosted: Fri Feb 10, 2012 11:32 pm
Reply with quote

It is S878-10

10
There is not enough virtual private area storage available to satisfy the request. This is due to one of the following:

A program is requesting virtual storage, but not subsequently freeing the storage.

The region size specified is too small.

An installation exit is requesting virtual storage from a V=R region before initialization of the region has completed.
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: Fri Feb 10, 2012 11:44 pm
Reply with quote

Perhaps you can show us some code? Like the table definition, how you are using it. In the Code tags, please.
Back to top
View user's profile Send private message
Bill O'Boyle

CICS Moderator


Joined: 14 Jan 2008
Posts: 2501
Location: Atlanta, Georgia, USA

PostPosted: Fri Feb 10, 2012 11:52 pm
Reply with quote

Are these files fixed-length VSAM KSDS or ESDS?

Mr. Bill
Back to top
View user's profile Send private message
dbzTHEdinosauer

Global Moderator


Joined: 20 Oct 2006
Posts: 6966
Location: porcelain throne

PostPosted: Sat Feb 11, 2012 12:56 am
Reply with quote

gentlemen,

you misinterpret the question.

the TS has no intention of creating a design that will work.

he wants a solution that will enable his bad design to work:
sort of how can he pack more than 5 pounds in a 2 pound sack.

after all, he only has a month to fix the problem.......
Back to top
View user's profile Send private message
Bill O'Boyle

CICS Moderator


Joined: 14 Jan 2008
Posts: 2501
Location: Atlanta, Georgia, USA

PostPosted: Sat Feb 11, 2012 2:18 am
Reply with quote

Quote:
the TS has no intention of creating a design that will work.

Yes, Dick you're correct. There's always time to do it wrong but never time to do it right.... icon_wink.gif

Mr. Bill
Back to top
View user's profile Send private message
creator.abhishek

New User


Joined: 07 May 2006
Posts: 32
Location: Pune

PostPosted: Mon Feb 13, 2012 10:15 pm
Reply with quote

Thanks to all whoever provided own inputs on that.. I have found the solution that can be impliment perfectly within a month time.. This is as simple adding a new table and calling the second once the limit reached from one..
Back to top
View user's profile Send private message
Bill O'Boyle

CICS Moderator


Joined: 14 Jan 2008
Posts: 2501
Location: Atlanta, Georgia, USA

PostPosted: Mon Feb 13, 2012 10:26 pm
Reply with quote

Quote:
Are these files fixed-length VSAM KSDS or ESDS?

Never did get an answer.

I have a reason for asking....

Mr. Bill
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: Tue Feb 14, 2012 12:55 am
Reply with quote

Don't understand how you get an 878 with what little you have described.

Don't see how, if you've hit a limit on one table, you are able to add another. A Cobol program can have a max working-storage of 128mb. A Cobol table can have a max size of 128mb. If you've hit the limit with a table, you've also hit the limit for working-storage.

So I'm sure nothing is as you've described it so far, let alone asnwering anyone's questions.

If you're happy, OK, but I'm with dbz and Mr Bill in thinking that you've got yourself a bad design, which you are going to implement, come what may.
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 Unload and Load ISPF Table TSO/ISPF 4
No new posts ISPF Table to add a new column TSO/ISPF 1
No new posts Inserting into table while open selec... DB2 1
No new posts Load new table with Old unload - DB2 DB2 6
No new posts Pulling a fixed number of records fro... DB2 2
Search our Forums:

Back to Top