ca.portal.admin

how to get cobol ii dc cobol to access above-the-line storage?

Discussion created by ca.portal.admin on Aug 14, 2008
its been so long since i had to deal with this -

all of our DC COBOL program are loaded to to the non-xa non-reentrant
program pool

they were link edited with AMODE ANY RMODE 24 (this does not seem right,
but oh well)

one of these program is causing our pool 0 to go short

there are no funky assembler calls - getstg or any of that ilk ...

1) what can a "" normal"" cobol program do to use pool 0 storage - just
allocation of working-storage?

2) what can I tell them to do to make this program access XA storage pools
- link edit as AMODE 31 RMODE ANY ?

the tasks that might cause this program to be invoked all appear to be
location any

thanks,

Chris Hoelscher
Senior IDMS & DB2 Database Administrator
Humana Inc
502-476-2538
choelscher@humana.com



The information transmitted is intended only for the person or entity to which it is addressed and may contain CONFIDENTIAL material. If you receive this material/information in error, please contact the sender and delete or destroy the material/information.

"
IDMS Public Discussion Forum
IDMS-L@LISTSERV.IUASSN.COM
SMTP
IDMS-L@LISTSERV.IUASSN.COM
IDMS-L@LISTSERV.IUASSN.COM
SMTP








Normal

Normal
Re: how to get cobol ii dc cobol to access above-the-line storage?
"This is a multi-part message in MIME format.

------=_NextPart_000_44C89_01C8FEE2.A93B7810
Content-Type: text/plain;
charset=""iso-8859-1""
Content-Transfer-Encoding: quoted-printable

The AMODE=3D31,RMODE=3DANY place your program-code above the line with =
31 bit mode addresses.
data(31) places your working- storage above the line.
Be carefull with combinations of data(31) and data(24) (it only works =
one way)

Peter van de Ven Atos Origin=20

* Tel: +31(0)40 2142211 +31(0)622567218=20
* Fax: +31(0)402144423=20


=FC 51 25' 43.86"" 5 31'50.36""=20

Outcomes