ca.portal.admin

Re: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 3rd-party providers forum
IDMSVENDOR-L@LISTSERV.IUASSN.COM
SMTP
IDMSVENDOR-L@LISTSERV.IUASSN.COM
IDMSVENDOR-L@LISTSERV.IUASSN.COM
SMTP








Normal

Normal
Re: how to get cobol ii dc cobol to access above-the-line storage?
"--0__=0ABBFE35DFDCB0558f9e8a93df938690918c0ABBFE35DFDCB055
Content-type: text/plain; charset=US-ASCII
Content-transfer-encoding: quoted-printable


well - they were not using 24-bit storage with my blessings - but old
habits (and old programs) die hard .....



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





=20
""Harmeson, Steve =20
(Newport News)"" =20
<Steve.Harmeson@N T=
o
GC.COM> IDMSVENDOR-L@LISTSERV.IUASSN.COM
Sent by: IDMS c=
c
3rd-party =20
providers forum Subjec=
t
<IDMSVENDOR-L@LIS Re: [IDMSVENDOR-L] how to get cobo=
l
TSERV.IUASSN.COM> ii dc cobol to access =20
above-the-line storage? =20
=20
08/15/2008 07:57 =20
AM =20
=20
=20
Please respond to =20
IDMS Public =20
Discussion Forum =20
<IDMS-L@LISTSERV. =20
IUASSN.COM> =20
=20
=20




Hi Chris,

If you have FileAid or INSYNC on z/OS you can use it to change the RMODE =
=3D
and AMODE of any dc-cobol program, it is very simple and quick. You =3D
would not have to recompile everything to make use of XA storage. I =3D
didn't think there was any sites still using below the line storage for =3D
dc-cobol programs. How about it, anyone else still using 24 bit storage =3D
for dc-cobol programs?=3D20


Steve Harmeson

Outcomes