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
 

 

Cobol Array dynamic declaration

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> CICS
View previous topic :: :: View next topic  
Author Message
cvishu

Active User


Joined: 31 Jul 2007
Posts: 136
Location: india

PostPosted: Fri Aug 17, 2012 10:46 am    Post subject: Cobol Array dynamic declaration
Reply with quote

Guys could you help me with a clarification.

Is there a difference in the storage occupied between the two declarations given below.

Code:
01 ARRAY-NAME.
   05 ARRAY-OCCURANCES        OCCURS 9000 TIMES  DEPENDING ON
                                        ARRAY-COUNTER.
      10 DATA            PIC X(1000).


and

Code:
01 ARRAY-NAME.
   05 ARRAY-OCCURANCES OCCURS 0 TIMES 9000 TIMES DEPENDING ON
                                        ARRAY-COUNTER.
      10 DATA            PIC X(1000).



Will the depending on clause make sence in the first declaration ? or will it be only useful in the second statement.
Back to top
View user's profile Send private message

Anuj Dhawan

Senior Member


Joined: 22 Apr 2006
Posts: 6258
Location: Mumbai, India

PostPosted: Fri Aug 17, 2012 11:13 am    Post subject:
Reply with quote

If the COBOL Internal Table (loosly called as arrays, whcih is not actually a COBOL term) is defined in Working-Storage with the ODO phrase, it will always be mapped to max potential size. (FILE SECTION or LINKAGE SECTION are exception).

The only way to have a "dynamic array" is to acquire storage at runtime basing your size requirement on the number of items you will have. This excellent explanation by Bill O'Boyle here might be of further interest.
Back to top
View user's profile Send private message
cvishu

Active User


Joined: 31 Jul 2007
Posts: 136
Location: india

PostPosted: Fri Aug 17, 2012 11:30 am    Post subject:
Reply with quote

Anuj , yes my bad , agreed its COBOL Internal Table icon_smile.gif.

Let me give more insight of the issue am facing. I have this declaration in mmy CICS program , and my program is ending up issuing huge GETMAINS. After some analysis we narrowed down to the storage thats allocated at the begining of the program.

Ans seems the culprit there could be the way these COBOL Internal Tables have been declared.
Back to top
View user's profile Send private message
dbzTHEdinosauer

Global Moderator


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

PostPosted: Fri Aug 17, 2012 11:47 am    Post subject:
Reply with quote

1. do you need these Cobol Internal Tables?

2. do you know at run time (before you populate them)
how many items you will have?

if the answers are yes/no - you are stuck.
if the answers are yes/yes - then use the method Bill has described (refer to the link that Anuj has provided).

with what are you populating these Cobol Internal Tables?

what is the frequency/activity of your cics module?

when you perform activities in cics that should be done in batch,
you always pay a price.
Back to top
View user's profile Send private message
cvishu

Active User


Joined: 31 Jul 2007
Posts: 136
Location: india

PostPosted: Fri Aug 17, 2012 1:22 pm    Post subject:
Reply with quote

Thanks for all the responses.

@dbzTHEdinosauer answer is Yes/no.

The Cobol Internal Tables are used to populate the response containers of a Web service request.

Frequency is 7-8 calls / minute.


Ok coming back to my orginal question , does the two declaration make any difference or is it same ? ( I am intrested in this beacause i am being told that the second declaration would only allocate the spce that is equivalent to the Cobol Internal Tables size and not the max by default)

I actually dont know how to validate the statement.
Back to top
View user's profile Send private message
dbzTHEdinosauer

Global Moderator


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

PostPosted: Fri Aug 17, 2012 1:40 pm    Post subject:
Reply with quote

again I ask, where is the data comming from to populate the tables?

why don't you use the container space? that memory is already allocated.

since the COBOL internal table is defined in working-storage,
the max is allocated.
look at the compile listing to validate the statement,
if you do not want to read the manuals.

now, you can continue to work with the incompetents that are giving you such garbage as info,
or you can work with us.

if you wish to work with us, answer our questions.

with what are you populating your COBOL Internal tables?
where are you getting the data?
what is the relationship of the COBOL Internal Table items
and the container space?

many of us have worked with web-apps, this is not new ground.
in order for us to help you, you need to explain what is the function of you cics service.
Back to top
View user's profile Send private message
cvishu

Active User


Joined: 31 Jul 2007
Posts: 136
Location: india

PostPosted: Fri Aug 17, 2012 1:57 pm    Post subject:
Reply with quote

with what are you populating your COBOL Internal tables? Data extracted from a DB2 table depending on a varying query( user has the flexibity to choose his WHERE clause) result from my cursor is poluated into the container which has the cobol internal table. Each row from the cursor is moved to the cobol internal table

where are you getting the data? DB2 table

what is the relationship of the COBOL Internal Table items
and the container space? COBOL Internal Table is actually in the copybook definition of my container

Quote:
now, you can continue to work with the incompetents that are giving you such garbage as info,
or you can work with us.
Very polite way of explaining stuffs ?? anywas not related to the topic in hand for now


Quote:
Back to top
View user's profile Send private message
Bill Woodger

DFSORT Moderator


Joined: 09 Mar 2011
Posts: 7223

PostPosted: Fri Aug 17, 2012 2:00 pm    Post subject: Re: Cobol Array dynamic declaration
Reply with quote

cvishu wrote:
Guys could you help me with a clarification.

Is there a difference in the storage occupied between the two declarations given below.

Code:
01 ARRAY-NAME.
   05 ARRAY-OCCURANCES        OCCURS 9000 TIMES  DEPENDING ON
                                        ARRAY-COUNTER.
      10 DATA            PIC X(1000).


and

Code:
01 ARRAY-NAME.
   05 ARRAY-OCCURANCES OCCURS 0 TIMES 9000 TIMES DEPENDING ON
                                        ARRAY-COUNTER.
      10 DATA            PIC X(1000).


Will the depending on clause make sence in the first declaration ? or will it be only useful in the second statement.


Can't say I've ever coded it like the first, so write a little program with it in, see if it compiles, see if you can use fewer than 9000 occurrences (use compiler option SSRANGE).

If the first compiles, the second will define an identical amount of storage in your program, ie 9000 * 1000 bytes.

Actually, looking at your second you mean "0 TO 9000" if you want it to compile...
Back to top
View user's profile Send private message
dbzTHEdinosauer

Global Moderator


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

PostPosted: Fri Aug 17, 2012 2:10 pm    Post subject:
Reply with quote

1. as bill has pointed out, neither of your COBOL Internal Table declarations is compilable.

2. Container space comes from the
gateway/whatever interface you are using between the web-app and the cics invocation of your program
so it should be defined in linkage.
Thus you should not have any working-storage issues.

3. you quoted your co-workers explanation,
i just pointed out that it is wrong.
if they think that way, they are incompetent.
this is a technical forum.
Back to top
View user's profile Send private message
cvishu

Active User


Joined: 31 Jul 2007
Posts: 136
Location: india

PostPosted: Fri Aug 17, 2012 2:14 pm    Post subject:
Reply with quote

Quote:
Actually, looking at your second you mean "0 TO 9000" if you want it to compile


Yes you are correct it was a typo
Back to top
View user's profile Send private message
Anuj Dhawan

Senior Member


Joined: 22 Apr 2006
Posts: 6258
Location: Mumbai, India

PostPosted: Fri Aug 17, 2012 4:18 pm    Post subject:
Reply with quote

If you're intrested in, look at these threads:

http://ibmmainframes.com/viewtopic.php?t=47790&highlight=odo
http://ibmmainframes.com/viewtopic.php?t=58537&highlight=odo

OTOH, if we ignore the syntax errors then perhaps the short answer, for this,
Quote:
Is there a difference in the storage occupied between the two declarations given below.
you want to listen is:

If the variable with the OCCURS DEPENDING ON clause is in WORKING STORAGE, the array length will not vary. And it will always be mapped to maximum size. In your case, 9000000.
Back to top
View user's profile Send private message
dbzTHEdinosauer

Global Moderator


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

PostPosted: Fri Aug 17, 2012 5:02 pm    Post subject:
Reply with quote

regardless of where the declaration is,
it is always mapped at the max.

allocation:
working-storage - max
linkage depends on the length sent to the getmain service.
the length of function will return a length based on the value of the odo.

mapped and allocation are two different things.
Back to top
View user's profile Send private message
cvishu

Active User


Joined: 31 Jul 2007
Posts: 136
Location: india

PostPosted: Fri Aug 17, 2012 5:11 pm    Post subject:
Reply with quote

Thnks guys, for all your replies (Bill O'Boyle link was informative thnks Anuj)

I tried different option, and personally my conclusion is to reduce the occurances from 9000 to a much lesser value , and go for mutiple web service call. ( In short, having some kind of recurrsive calls to get the data rather than getting everything in one go) this worked and reduced my CICS storage allocation.

This is the only solution that i have for my problem as of now. But please keep posting if you think of other ways.
Back to top
View user's profile Send private message
Anuj Dhawan

Senior Member


Joined: 22 Apr 2006
Posts: 6258
Location: Mumbai, India

PostPosted: Fri Aug 17, 2012 5:23 pm    Post subject:
Reply with quote

Thanks Dick. I should have been careful ...icon_redface.gif.
Back to top
View user's profile Send private message
Bill O'Boyle

CICS Moderator


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

PostPosted: Fri Aug 17, 2012 8:16 pm    Post subject: Reply to: Cobol Array dynamic declaration
Reply with quote

Preface: CICS CHANNELS/CONTAINERS were introduced with CICS/TS 3.1.

However, this initial introduction still had CHANNEL/CONTAINERS writing to EUDSA and if you have several large GETMAIN's being issued concurrently (also using EUDSA), you run the risk of SOS Above the Line.

Upon introduction of TS/3.2, a new initialization parm was added, named MEMLIMIT. The value set to this parm represents the allocation of 64-Bit storage, used internally by CICS, with a miniumum value of 3GB.

With this new parm, CHANNELS/CONTAINERS are now written internally to this 64-Bit storage, so large GETMAIN's can be replaced.

Not sure about your CICS Version/Release, but this could be an option if you're at TS/3.2 and greater.

HTH....
Back to top
View user's profile Send private message
Bill O'Boyle

CICS Moderator


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

PostPosted: Sat Aug 18, 2012 6:41 am    Post subject: Reply to: Cobol Array dynamic declaration
Reply with quote

I forgot to ask; What's the data-origin used to populate the dynamic table/array in the CICS program? File, program calculation/logic, another program, etc?
Back to top
View user's profile Send private message
Bill O'Boyle

CICS Moderator


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

PostPosted: Sat Aug 18, 2012 9:48 am    Post subject: Reply to: Cobol Array dynamic declaration
Reply with quote

Nevermind, I stand corrected.... icon_confused.gif
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 -> CICS All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
This topic is locked: you cannot edit posts or make replies. RANDOM Function in COBOL swapnil781 COBOL Programming 2 Tue Nov 15, 2016 6:17 pm
No new posts Regarding COBOL Stored Procedure opti... selvamsrinivasan85 DB2 4 Fri Nov 04, 2016 8:57 pm
No new posts COBOL Version 6.1 Virendra Shambharkar COBOL Programming 5 Tue Nov 01, 2016 11:24 am
No new posts Cobol list of programs being called biswajit.dattagupta COBOL Programming 5 Tue Nov 01, 2016 2:10 am
No new posts Can sending 5 MB data between cobol p... Kevin Vaz CICS 12 Tue Oct 18, 2016 4:50 pm


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