MVSFORUMS.com

[Gir]

Hi

Is there any way to allocate 50MB of auxiliary storage using COBOL program?

Cheers
Gir

[Bill Dennis]

What is your definition of auxiliary storage? Please clarify your need.

Bill

[Gir]

Sorry..

I want to allocate 50MB of main storage for a cobol program. Is that possible? If so can you tell me how we can access that storage.

My question is like assembler, can we access dynamic storage using cobol program?

[warp5]

Why don't you tell us why and what you want to do so that we can really answer your need, why would you need 50MB of storage?

[zatlas]

Hi
In CICS you could do EXEC CICS GETMAIN... which is exactly what you want.
You could (and I suspect you could find something like that in CBTTTAPE [WWW.CBTTAPE.ORG] or some other open source repository) code some assembler program that you CALL to get memory and free it.
I do not have (yet) too much experience with the new features of the Object Oriented aspects of COBOL available in the newest releases of the mainframe COBOL as well as most major non mainframe COBOL compilers (i.e. MicroFocus, Fujitsu and TheKompany's Kobol). You may want to look at these features and see whether they have it naturally or you could develop a general use COBOL class to allocate memory. I may be tempted to develop such class (and/or Assembler subprogram) for the open source community when I finish my current project.
ZA

[zatlas]

Hi
It was brought to my attention that in the mainframe you could use the LE CEEGTST function. I do not know yet if there is any equivalent for Microfocus COBOL
ZA

[DaveyC]

I would say 50mb of contiguous memory is an excessive amount!! I suppose you know what you are doing !
_________________
Dave Crayford