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 =3D
program pool

they were link edited with AMODE ANY RMODE 24 (this does not seem right, =
=3D
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 =3D
allocation of working-storage?

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

the tasks that might cause this program to be invoked all appear to be =3D
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 =
=3D
which it is addressed and may contain CONFIDENTIAL material. If you =3D
receive this material/information in error, please contact the sender =3D
and delete or destroy the material/information.


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


--0__=0ABBFE35DFDCB0558f9e8a93df938690918c0ABBFE35DFDCB055
Content-type: image/gif;
name=""graycol.gif""
Content-Disposition: inline; filename=""graycol.gif""
Content-ID: <10__=0ABBFE35DFDCB0558f9e8a93df938@humana.com>
Content-transfer-encoding: base64

R0lGODlhEAAQAKECAMzMzAAAAP///wAAACH5BAEAAAIALAAAAAAQABAAAAIXlI+py+0PopwxUbpu
ZRfKZ2zgSJbmSRYAIf4fT3B0aW1pemVkIGJ5IFVsZWFkIFNtYXJ0U2F2ZXIhAAA7

--0__=0ABBFE35DFDCB0558f9e8a93df938690918c0ABBFE35DFDCB055
Content-type: image/gif;
name=""pic22225.gif""
Content-Disposition: inline; filename=""pic22225.gif""
Content-ID: <20__=0ABBFE35DFDCB0558f9e8a93df938@humana.com>
Content-transfer-encoding: base64

R0lGODlhWABDALP/AAAAAK04Qf79/o+Gm7WuwlNObwoJFCsoSMDAwGFsmIuezf///wAAAAAAAAAA
AAAAACH5BAEAAAgALAAAAABYAEMAQAT/EMlJq704682770RiFMRinqggEUNSHIchG0BCfHhOjAuh
EDeUqTASLCbBhQrhG7xis2j0lssNDopE4jfIJhDaggI8YB1sZeZgLVA9YVCpnGagVjV171aRVrYR
RghXcAGFhoUETwYxcXNyADJ3GlcSKGAwLwllVC1vjIUHBWsFilKQdI8GA5IcpApeJQt8L09lmgkH
LZikoU5wjqcyAMMFrJIDPAKvCFletKSev1HBw8KrxtjZ2tvc3d5VyKtCKW3jfz4uMKmq3xu4N0nK
BVoJQmx2LGVOmrqNjjJf2hHAQo/eDwJGTKhQMcgQEEAnEjFS98+RnW3smGkZU6ncCWav/4wYOnAI
TihRL/4FEwbp28BXMMcoscQCVxlepL4IGDSCyJyVQOu0o7CjmLN50OZlqWmyFy5/6yBBuji0AxFR
M00oQAqNIstqI6qKHUsWRAEAvagsmfUEAImyxgbmUpJk3IklNUtJOUAVLoUr1+wqDGTE4zk+T6FG
uQb3SizBCwatiiUgCBN8vrz+zFjVyQ8FWkOlg4NQiZMB5QS8QO3mpOaKnL0Z2EKvNMSILEThKhCg
zMKPVxYJh23qm9KNW7pArPynMqZDiErsTMqI+LRi3QAgkFUbXpuFKhSYZALd0O5RKa2z9EYKBbpb
qxIKsjUPRgD7I2XYV6wyrOw92ykExP8NW4URhknC5dKGE4v4NENQj2jXjmfNgOZDaXb5glRmXQ33
YEWQYNcZFnrYcIQLNzyTFDQNkXIff0ExVlY4srziQk43inZgL4rwxxINMvpFFAz1KOODHiu+4aEw
NEjFl5B3JIKWKF3k6I9bfUGp5ZZcdunll5IA4cuHvQQJ5gcsoCWOOUwgltIwAKRxJgbIkJAQZEq0
2YliZnpZZ4BH3CnYOXldOUOfQoYDqF1LFHbXCrO8xmRsfoXDXJ6ChjCAH3QlhJcT6VWE6FCkfCco
CgrMFsROrIEX3o2whVjWDjoJccN3LdggSGXLCdLEgHr1lyU3O3QxhgohNKXJCWv8JQr/PDdaqd6w
2rj1inLiGeiCJoDspAoQlYE6QWLSECehcWIYxIQES6zhbn1iImTHEQyqJ4eIxJJoUBc+3CbBuwZE
V5cJPPkIjFDdeEabQbd6WgICTxiiz0f5dBKquXF6k4senwEhYGnKEFJeGrxUZy8dB8gmAXI/sPvH
ESfCwVt5hTgYiqQqtdRNHQIU1PJ33ZqmzgE90OwLaoJcnMop1WiMmgkPHQRIrwgFuNV90A3doNKT
mrKIN07AnGcI9BQjhCBN4RfA1qIZnMqorJCogKfGQnxSCDilTVIA0yl5ciTovgLuBDKFUDE9aQcw
9SA+rjSNf9/M1gxrj6VwDTS0IUSElMzBfsj0NFXR2kwsV1A5IF1grLgLL/r1R40BZEnuBWgmQEyb
jqRwSAt6bqMCOFkvKFN2GPPkUzIm/SCF8z8pVzpbjVnMsy0vOr1hw3SaSRUhpY09v0z0J1FnwzPl
fmh+xl4WtR0zGu24I4KbMQm3lnVu2oNWxI9W/lcyzA+mCKF4DBikxb/+UWtOGRiFP8qEwAayIgIA
Ow==

--0__=0ABBFE35DFDCB0558f9e8a93df938690918c0ABBFE35DFDCB055
Content-type: image/gif;
name=""ecblank.gif""
Content-Disposition: inline; filename=""ecblank.gif""
Content-ID: :love:0__=0ABBFE35DFDCB0558f9e8a93df938@humana.com>
Content-transfer-encoding: base64

R0lGODlhEAABAIAAAAAAAP///yH5BAEAAAEALAAAAAAQAAEAAAIEjI8ZBQA7

--0__=0ABBFE35DFDCB0558f9e8a93df938690918c0ABBFE35DFDCB055--
"
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: [IDMSVENDOR-L] how to get cobol ii dc cobol to access above-the-line storage?
"
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






""Harmeson, Steve
(Newport News)""
<Steve.Harmeson@N To
GC.COM> IDMSVENDOR-L@LISTSERV.IUASSN.COM
Sent by: IDMS cc
3rd-party
providers forum Subject
<IDMSVENDOR-L@LIS Re: [IDMSVENDOR-L] how to get cobol
TSERV.IUASSN.COM> ii dc cobol to access
above-the-line storage?

08/15/2008 07:57
AM


Please respond to
IDMS Public
Discussion Forum
<IDMS-L@LISTSERV.
IUASSN.COM>






Hi Chris,

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


Steve Harmeson

Outcomes