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.


------=_NextPart_000_44C89_01C8FEE2.A93B7810
Content-Type: text/plain;
name=""disclaimer.txt""
Content-Transfer-Encoding: base64
Content-Disposition: attachment;
filename=""disclaimer.txt""

//5EAGkAdAAgAGIAZQByAGkAYwBoAHQAIABpAHMAIAB2AGUAcgB0AHIAbwB1AHcAZQBsAGkAagBr
ACAAZQBuACAAawBhAG4AIABnAGUAaABlAGkAbQBlACAAaQBuAGYAbwByAG0AYQB0AGkAZQAgAGIA
ZQB2AGEAdAB0AGUAbgAgAGUAbgBrAGUAbAANAAoAYgBlAHMAdABlAG0AZAAgAHYAbwBvAHIAIABk
AGUAIABnAGUAYQBkAHIAZQBzAHMAZQBlAHIAZABlAC4AIABJAG4AZABpAGUAbgAgAGQAaQB0ACAA
YgBlAHIAaQBjAGgAdAAgAG4AaQBlAHQAIAB2AG8AbwByACAAdQAgAGkAcwAgAGIAZQBzAHQAZQBt
AGQALAANAAoAdgBlAHIAegBvAGUAawBlAG4AIAB3AGkAagAgAHUAIABkAGkAdAAgAG8AbgBtAGkA
ZABkAGUAbABsAGkAagBrACAAYQBhAG4AIABvAG4AcwAgAHQAZQAgAG0AZQBsAGQAZQBuACAAZQBu
ACAAaABlAHQAIABiAGUAcgBpAGMAaAB0ACAAdABlAA0ACgB2AGUAcgBuAGkAZQB0AGkAZwBlAG4A
LgANAAoAQQBhAG4AZwBlAHoAaQBlAG4AIABkAGUAIABpAG4AdABlAGcAcgBpAHQAZQBpAHQAIAB2
AGEAbgAgAGgAZQB0ACAAYgBlAHIAaQBjAGgAdAAgAG4AaQBlAHQAIAB2AGUAaQBsAGkAZwAgAGcA
ZQBzAHQAZQBsAGQAIABpAHMAIABtAGkAZABkAGUAbABzAA0ACgB2AGUAcgB6AGUAbgBkAGkAbgBn
ACAAdgBpAGEAIABpAG4AdABlAHIAbgBlAHQALAAgAGsAYQBuACAAQQB0AG8AcwAgAE8AcgBpAGcA
aQBuACAAbgBpAGUAdAAgAGEAYQBuAHMAcAByAGEAawBlAGwAaQBqAGsAIAB3AG8AcgBkAGUAbgAg
AGcAZQBoAG8AdQBkAGUAbgANAAoAdgBvAG8AcgAgAGQAZQAgAGkAbgBoAG8AdQBkACAAZABhAGEA
cgB2AGEAbgAuAA0ACgBIAG8AZQB3AGUAbAAgAHcAaQBqACAAbwBuAHMAIABpAG4AcwBwAGEAbgBu
AGUAbgAgAGUAZQBuACAAdgBpAHIAdQBzAHYAcgBpAGoAIABuAGUAdAB3AGUAcgBrACAAdABlACAA
aABhAG4AdABlAHIAZQBuACwAIABnAGUAdgBlAG4ADQAKAHcAaQBqACAAZwBlAGUAbgAgAGUAbgBr
AGUAbABlACAAZwBhAHIAYQBuAHQAaQBlACAAZABhAHQAIABkAGkAdAAgAGIAZQByAGkAYwBoAHQA
IAB2AGkAcgB1AHMAdgByAGkAagAgAGkAcwAsACAAbgBvAGMAaAAgAGEAYQBuAHYAYQBhAHIAZABl
AG4AIAB3AGkAagANAAoAZQBuAGkAZwBlACAAYQBhAG4AcwBwAHIAYQBrAGUAbABpAGoAawBoAGUA
aQBkACAAdgBvAG8AcgAgAGQAZQAgAG0AbwBnAGUAbABpAGoAawBlACAAYQBhAG4AdwBlAHoAaQBn
AGgAZQBpAGQAIAB2AGEAbgAgAGUAZQBuACAAdgBpAHIAdQBzACAAaQBuACAAZABpAHQADQAKAGIA
ZQByAGkAYwBoAHQALgANAAoAoAANAAoATwBwACAAYQBsACAAbwBuAHoAZQAgAHIAZQBjAGgAdABz
AHYAZQByAGgAbwB1AGQAaQBuAGcAZQBuACwAIABhAGEAbgBiAGkAZQBkAGkAbgBnAGUAbgAgAGUA
bgAgAG8AdgBlAHIAZQBlAG4AawBvAG0AcwB0AGUAbgAgAHcAYQBhAHIAbwBuAGQAZQByAA0ACgBB
AHQAbwBzACAATwByAGkAZwBpAG4AIABnAG8AZQBkAGUAcgBlAG4AIABlAG4ALwBvAGYAIABkAGkA
ZQBuAHMAdABlAG4AIABsAGUAdgBlAHIAdAAgAHoAaQBqAG4AIABtAGUAdAAgAHUAaQB0AHMAbAB1
AGkAdABpAG4AZwAgAHYAYQBuACAAYQBsAGwAZQANAAoAYQBuAGQAZQByAGUAIAB2AG8AbwByAHcA
YQBhAHIAZABlAG4AIABkAGUAIABMAGUAdgBlAHIAaQBuAGcAcwB2AG8AbwByAHcAYQBhAHIAZABl
AG4AIAB2AGEAbgAgAEEAdABvAHMAIABPAHIAaQBnAGkAbgAgAHYAYQBuACAAdABvAGUAcABhAHMA
cwBpAG4AZwAuAA0ACgBEAGUAegBlACAAdwBvAHIAZABlAG4AIAB1ACAAbwBwACAAYQBhAG4AdgBy
AGEAYQBnACAAZABpAHIAZQBjAHQAIABrAG8AcwB0AGUAbABvAG8AcwAgAHQAbwBlAGcAZQB6AG8A
bgBkAGUAbgAuAA0ACgCgAA0ACgBUAGgAaQBzACAAZQAtAG0AYQBpAGwAIABhAG4AZAAgAHQAaABl
ACAAZABvAGMAdQBtAGUAbgB0AHMAIABhAHQAdABhAGMAaABlAGQAIABhAHIAZQAgAGMAbwBuAGYA
aQBkAGUAbgB0AGkAYQBsACAAYQBuAGQAIABpAG4AdABlAG4AZABlAGQAIABzAG8AbABlAGwAeQAN
AAoAZgBvAHIAIAB0AGgAZQAgAGEAZABkAHIAZQBzAHMAZQBlADsAIABpAHQAIABtAGEAeQAgAGEA
bABzAG8AIABiAGUAIABwAHIAaQB2AGkAbABlAGcAZQBkAC4AIABJAGYAIAB5AG8AdQAgAHIAZQBj
AGUAaQB2AGUAIAB0AGgAaQBzACAAZQAtAG0AYQBpAGwADQAKAGkAbgAgAGUAcgByAG8AcgAsACAA
cABsAGUAYQBzAGUAIABuAG8AdABpAGYAeQAgAHQAaABlACAAcwBlAG4AZABlAHIAIABpAG0AbQBl
AGQAaQBhAHQAZQBsAHkAIABhAG4AZAAgAGQAZQBzAHQAcgBvAHkAIABpAHQALgANAAoAQQBzACAA
aQB0AHMAIABpAG4AdABlAGcAcgBpAHQAeQAgAGMAYQBuAG4AbwB0ACAAYgBlACAAcwBlAGMAdQBy
AGUAZAAgAG8AbgAgAHQAaABlACAASQBuAHQAZQByAG4AZQB0ACwAIAB0AGgAZQAgAEEAdABvAHMA
IABPAHIAaQBnAGkAbgAgAGcAcgBvAHUAcAANAAoAbABpAGEAYgBpAGwAaQB0AHkAIABjAGEAbgBu
AG8AdAAgAGIAZQAgAHQAcgBpAGcAZwBlAHIAZQBkACAAZgBvAHIAIAB0AGgAZQAgAG0AZQBzAHMA
YQBnAGUAIABjAG8AbgB0AGUAbgB0AC4AIABBAGwAdABoAG8AdQBnAGgAIAB0AGgAZQANAAoAcwBl
AG4AZABlAHIAIABlAG4AZABlAGEAdgBvAHUAcgBzACAAdABvACAAbQBhAGkAbgB0AGEAaQBuACAA
YQAgAGMAbwBtAHAAdQB0AGUAcgAgAHYAaQByAHUAcwAtAGYAcgBlAGUAIABuAGUAdAB3AG8AcgBr
ACwAIAB0AGgAZQAgAHMAZQBuAGQAZQByAA0ACgBkAG8AZQBzACAAbgBvAHQAIAB3AGEAcgByAGEA
bgB0ACAAdABoAGEAdAAgAHQAaABpAHMAIAB0AHIAYQBuAHMAbQBpAHMAcwBpAG8AbgAgAGkAcwAg
AHYAaQByAHUAcwAtAGYAcgBlAGUAIABhAG4AZAAgAHcAaQBsAGwAIABuAG8AdAAgAGIAZQANAAoA
bABpAGEAYgBsAGUAIABmAG8AcgAgAGEAbgB5ACAAZABhAG0AYQBnAGUAcwAgAHIAZQBzAHUAbAB0
AGkAbgBnACAAZgByAG8AbQAgAGEAbgB5ACAAdgBpAHIAdQBzACAAdAByAGEAbgBzAG0AaQB0AHQA
ZQBkAC4ADQAKAKAADQAKAE8AbgAgAGEAbABsACAAbwBmAGYAZQByAHMAIABhAG4AZAAgAGEAZwBy
AGUAZQBtAGUAbgB0AHMAIAB1AG4AZABlAHIAIAB3AGgAaQBjAGgAIABBAHQAbwBzACAATwByAGkA
ZwBpAG4AIABzAHUAcABwAGwAaQBlAHMAIABnAG8AbwBkAHMAIABhAG4AZAAvAG8AcgANAAoAcwBl
AHIAdgBpAGMAZQBzACAAbwBmACAAdwBoAGEAdABlAHYAZQByACAAbgBhAHQAdQByAGUALAAgAHQA
aABlACAAVABlAHIAbQBzACAAbwBmACAARABlAGwAaQB2AGUAcgB5ACAAZgByAG8AbQAgAEEAdABv
AHMAIABPAHIAaQBnAGkAbgANAAoAZQB4AGMAbAB1AHMAaQB2AGUAbAB5ACAAYQBwAHAAbAB5AC4A
IAANAAoAVABoAGUAIABUAGUAcgBtAHMAIABvAGYAIABEAGUAbABpAHYAZQByAHkAIABzAGgAYQBs
AGwAIABiAGUAIABwAHIAbwBtAHAAdABsAHkAIABzAHUAYgBtAGkAdAB0AGUAZAAgAHQAbwAgAHkA
bwB1ACAAbwBuACAAeQBvAHUAcgAgAHIAZQBxAHUAZQBzAHQALgANAAoAoAANAAoAQQB0AG8AcwAg
AE8AcgBpAGcAaQBuACAATgBlAGQAZQByAGwAYQBuAGQAIABCAC4AVgAuACAALwAgAFUAdAByAGUA
YwBoAHQADQAKAEsAdgBLACAAVQB0AHIAZQBjAGgAdAAgADMAMAAxADMAMgA3ADYAMgA=

------=_NextPart_000_44C89_01C8FEE2.A93B7810--
"
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?
"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?


Steve Harmeson

Outcomes