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.


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: R16.0 CV to CV via Node
"Hi,=0D=0A=0D=0AWhen we went from Release 15 to Release SP 5 the following w=
as done for DDS.=0D=0A=0D=0AThe security module, RHDCSRTT, had to be change=
d to include an External Userid parameter EXTRUID=0D=0A=0D=0A#SECRTT TYPE=3D=
INITIAL,SVCNUM=3D255,SGNRETN=3D6,EXTRUID=3DDBBATBQ=0D=0A=0D=0AIn the Sysgen=0D=
=0A=0D=0AThe nodes were changed to specify the system number=0D=0AADD NODE =
SYST0009 =20=0D=0A CVNUMBER 9 SVC 255 BLOCKSIZE 8192=0D=
=0A=0D=0AThis resulted in the Resource table being changed=0D=0A=0D=0AADD R=
ESOURCE TABLE =20=0D=0A DBNAME IS VIC VIA SYST0009=0D=0A . =
=20=0D=0A=0D=0ARegards,=0D=0A=0D=0A=0D=0AIan James=0D=
=0A=0D=0ADatabase Administrator, Retail Billing Systems=0D=0AInformation Te=
chnology=0D=0AOrigin=0D=0ALevel 8, 1 King William Street, Adelaide SA 5000=0D=
=0AGPO Box 1199, Adelaide SA 5000=0D=0APhone: (08) 8217 5353=09Fax: (08) 82=
17 5607=0D=0AEmail: ian.james@originenergy.com.au=0D=0A=0D=0ATogether we ca=
n make a difference.(tm)=20=0D=0APlease consider the environment before pri=
nting this email.=0D=0A=0D=0A=0D=0A-----Original Message-----=0D=0AFrom: ID=
MS Public Discussion Forum [mailTo:IDMS-L@LISTSERV.IUASSN.COM] On Behalf Of=
Trayler, Christopher=0D=0ASent: Sunday, 17 August 2008 10:56 PM=0D=0ATo: I=
DMS-L@LISTSERV.IUASSN.COM=0D=0ASubject: R16.0 CV to CV via Node=0D=0A=0D=0A=
I have R15 systems that quite happily talk to each other using the NODE and=
RESOURCE TABLE definitions in the Sysgen.=0D=0A=20=0D=0AI have implemented=
R16 without wanting to use RRS i.e. RRS=3DN in the startup. Regardless of =
this parm we get the RRS Resynchronsiation complete messages at startup. =0D=
=0A=20=0D=0AIf I try and use the CV to CV communictaions, I get the followi=
ng:=0D=0A=20=0D=0A14.20.02 JOB01613 +IDMS DC329018 V1 T20 Resynchronizatio=
n terminated for PIDMS3 ::DSI=5FCLI *connect failed      =20=0D=0A14.20.0=
2 JOB01613 +IDMS DC329009 V1 T98 TMGR error: #TXN return code: 0C  reason =
code: 0C53 function: $RRMI =20=0D=0A=20=0D=0AIf I convert the target s=
ystem back to R15 then I can still talk to it without a problem.=0D=0A=20=0D=
=0AHas anyone had to set up R16 for this situation=3F I am on SP6 of R16. Z=
/OS.=0D=0A=20=0D=0AIt looks like security to me but I don't get any other m=
essages and our Signon is secured externally and the default users for each=
CV have acces to the other. No probs in R15.=20=0D=0A=20=0D=0AIs there an =
RRS expert out there=3F=20=0D=0A=20=0D=0A=5F=5F=5F=5F=5F=5F=5F=5F=5F=5F=5F=5F=
=5F=5F=5F=5F=5F=5F=5F=5F=5F=5F=5F=5F=5F=5F=5F=5F=5F=5F=5F=5F=5F=5F=5F=5F=5F=
=5F=5F=5F=5F=5F=5F=5F=5F=5F=5F=5F=5F=5F=5F=5F=5F=5F=5F=5F=5F=5F=5F=5F=5F=5F=0D=
=0A=20=0D=0AChris Trayler, IXD=0D=0ABank Julius Baer & Co. Ltd.=0D=0AP. O. =
Box, CH-8010 Z=FCrich, Switzerland=0D=0ATelephone +41 (0)58 887 4332, Fax +=
41 (0)58 887 4969=0D=0Awww.juliusbaer.com <http://www.juliusbaer.com/>=20=0D=
=0A=20=0D=0A=5F=5F=5F=5F=5F=5F=5F=5F=5F=5F=5F=5F=5F=5F=5F=5F=5F=5F=5F=5F=5F=
=5F=5F=5F=5F=5F=5F=5F=5F=5F=5F=5F=5F=5F=5F=5F=5F=5F=5F=5F=5F=5F=5F=5F=5F=5F=
=5F=5F=5F=5F=5F=5F=5F=5F=5F=5F=5F=5F=5F=5F=5F=5F=0D=0A=20=0D=0A*****JuliusB=
aer Disclaimer***** This e-mail is for the intended recipient only and may =
contain confidential or privileged information. If you have received this e=
-mail by mistake, please contact us immediately and completely delete it (a=
nd any attachments) and do not forward it or inform any other person of its=
contents. If you send us messages by e-mail, we take this as your authoriz=
ation to correspond with you by e-mail, however, we will not accept the ele=
ctronic transmission of orders/instructions without a specific agreement be=
ing in place to govern the same. If you do not wish to receive any further =
e-mail correspondence please let us know. E-mail transmission cannot be gua=
ranteed to be secure or error-free as information could be intercepted, ame=
nded, corrupted, lost, destroyed, arrive late or incomplete, or contain vir=
uses. Neither the Julius Baer Group nor the sender accept liability for any=
errors or omissions in the content of this message which arise as a result=
of its e-mail transmission. Please note that all e-mail communications to =
and from the Julius Baer Group may be monitored. This communication is for =
informational purposes only. It is not intended as an offer or solicitation=
for the purchase or sale of any financial instrument or as an official con=
firmation of any transaction.=0D=0A=0D=0A=5F =5F =5F =5F =5F =5F =5F =5F =5F=
=5F =5F =5F =5F =5F =5F =5F =5F =5F =5F =5F =5F =5F =5F =5F =5F =5F =5F =5F=
=5F =5F =5F =5F =5F =5F =5F =5F =5F =5F=0D=0A=0D=0ANote: This email, inclu=
ding any attachments, is confidential.=20=0D=0AIf you have received this em=
ail in error, please advise the=20=0D=0Asender and delete it and all copies=
of it from your system.=20=0D=0AIf you are not the intended recipient of t=
his email, you must=20=0D=0Anot use, print, distribute, copy or disclose it=
s content to anyone.=0D=0A
"
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: R16.0 CV to CV via Node
"Hi,

When we went from Release 15 to Release SP 5 the following was done for DDS.

The security module, RHDCSRTT, had to be changed to include an External Userid parameter EXTRUID

#SECRTT TYPE=INITIAL,SVCNUM=255,SGNRETN=6,EXTRUID=DBBATBQ

In the Sysgen

The nodes were changed to specify the system number
ADD NODE SYST0009
CVNUMBER 9 SVC 255 BLOCKSIZE 8192

This resulted in the Resource table being changed

ADD RESOURCE TABLE
DBNAME IS VIC VIA SYST0009
.

Regards,


Ian James

Database Administrator, Retail Billing Systems
Information Technology
Origin
Level 8, 1 King William Street, Adelaide SA 5000
GPO Box 1199, Adelaide SA 5000
Phone: (08) 8217 5353 Fax: (08) 8217 5607
Email: ian.james@originenergy.com.au

Together we can make a difference.(tm)
Please consider the environment before printing this email.

Outcomes