ca.portal.admin

[IDMS-L] Retrieve lpar name from ADS dialog

Discussion created by ca.portal.admin on Jun 13, 2008
Latest reply on Jun 13, 2008 by ca.portal.admin
Hello list,

We have three CVs with the same CV number running on three different
lpars. In an ADS dialog we want to test which lpar the CV is running
on.

Is there a way to retrieve the lpar name from an ADS dialog?
Alternatively can this be done from an assembler program?

Thanks for any help!

Hans Olav Kongelf
EDB Business Partner AS
Oslo, Norway
"
IDMS Public Discussion Forum
IDMS-L@LISTSERV.IUASSN.COM
SMTP
IDMS-L@LISTSERV.IUASSN.COM
IDMS-L@LISTSERV.IUASSN.COM
SMTP








Normal

Normal
Re: [IDMSVENDOR-L] Retrieve lpar name from ADS dialog
"since i feel in a ""creative"" mood today - here is a solution that requires
NO assembler coding

1) create a new segment/area/schema/record/ssc called LPAR - one area/one
record type: LPAR/ 1 column:LPAR-NAME x(04)

2) include the segment in all IDMS environments (in read-only mode)

3) name the dataset something that conforms to your standards but has the
LPAR name as a standalone NODE (IDMS.PROD.LPAR1.NAME)

4) create clones of the dataset (1 for each additional LPAR) each with the
LPAR name in place of the 1st dataset(IDMS.PROD.LPAR2.NAME,
IDMS.PROD.LPAR3.NAME, etc)

4) then in the startup proc or jcl - hard code the DD for this file only
with &SYSNAME in place of the node that contains the LPAR name (LPARINFO
DD DSN=IDMS.PROD.&SYSNAME..NAME)

now - as a onetime seed - once in each LPAR - update the LPAR record record
type to populate the 1 record occurance with the correct LPAR name (so each
clone Dataset will have a different value within)


now --- write a a cobol (ADS?) startup task to read the database and put
the LPAR name in storage somewhere or in a perm queue


then - anytime you wish to determine the LPAR name - read the storage or
the queue


wow - now THAT was a waste of time .....


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: Retrieve lpar name from ADS dialog
"since i feel in a ""creative"" mood today - here is a solution that requires
NO assembler coding

1) create a new segment/area/schema/record/ssc called LPAR - one area/one
record type: LPAR/ 1 column:LPAR-NAME x(04)

2) include the segment in all IDMS environments (in read-only mode)

3) name the dataset something that conforms to your standards but has the
LPAR name as a standalone NODE (IDMS.PROD.LPAR1.NAME)

4) create clones of the dataset (1 for each additional LPAR) each with the
LPAR name in place of the 1st dataset(IDMS.PROD.LPAR2.NAME,
IDMS.PROD.LPAR3.NAME, etc)

4) then in the startup proc or jcl - hard code the DD for this file only
with &SYSNAME in place of the node that contains the LPAR name (LPARINFO
DD DSN=IDMS.PROD.&SYSNAME..NAME)

now - as a onetime seed - once in each LPAR - update the LPAR record record
type to populate the 1 record occurance with the correct LPAR name (so each
clone Dataset will have a different value within)


now --- write a a cobol (ADS?) startup task to read the database and put
the LPAR name in storage somewhere or in a perm queue


then - anytime you wish to determine the LPAR name - read the storage or
the queue


wow - now THAT was a waste of time .....


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
Retrieve lpar name from ADS dialog
"In reponse to question:=20

We have three CVs with the same CV number running on three different =
lpars. In an ADS dialog we want to test which lpar the CV is running =
on.

Is there a way to retrieve the lpar name from an ADS dialog?=20
Alternatively can this be done from an assembler program?=20

I have no ADS dialog knowledge but it can be gotten in an assembler =
program.=20

You need to be in 31 bit address mode and dTo:=20

L Rx,16 GET CVT =20
L Rx,140(Rx) GEXT ECVT =20

The LPAR name is then 8 bytes long at 344(Rx)=20
=20
Hope this helps,=20

David R. Meyers=20
Systems Programmer=20
z/OS System Support=20
This e-mail, including attachments, is intended for the exclusive use of =
the person or entity to which it is addressed and may contain =
confidential or privileged information. If the reader of this e-mail is =
not the intended recipient or his or her authorized agent, the reader is =
hereby notified that any dissemination, distribution or copying of this =
e-mail is prohibited. If you think that you have received this e-mail in =
error, please advise the sender by reply e-mail of the error and then =
delete this e-mail immediately.
"
IDMS 3rd-party providers forum
IDMSVENDOR-L@LISTSERV.IUASSN.COM
SMTP
IDMSVENDOR-L@LISTSERV.IUASSN.COM
IDMSVENDOR-L@LISTSERV.IUASSN.COM
SMTP








Normal

Normal
Retrieve lpar name from ADS dialog
"In reponse to question:

We have three CVs with the same CV number running on three different lpars. In an ADS dialog we want to test which lpar the CV is running on.

Is there a way to retrieve the lpar name from an ADS dialog?
Alternatively can this be done from an assembler program?

I have no ADS dialog knowledge but it can be gotten in an assembler program.

You need to be in 31 bit address mode and dTo:

L Rx,16 GET CVT
L Rx,140(Rx) GEXT ECVT

The LPAR name is then 8 bytes long at 344(Rx)

Hope this helps,

David R. Meyers
Systems Programmer
z/OS System Support
This e-mail, including attachments, is intended for the exclusive use of the person or entity to which it is addressed and may contain confidential or privileged information. If the reader of this e-mail is not the intended recipient or his or her authorized agent, the reader is hereby notified that any dissemination, distribution or copying of this e-mail is prohibited. If you think that you have received this e-mail in error, please advise the sender by reply e-mail of the error and then delete this e-mail immediately.
"
IDMS Public Discussion Forum
IDMS-L@LISTSERV.IUASSN.COM
SMTP
IDMS-L@LISTSERV.IUASSN.COM
IDMS-L@LISTSERV.IUASSN.COM
SMTP








Normal

Normal
Re: Retrieve lpar name from ADS dialog
"Why not just create a dictionary record (module or user) named ""LPAR-ID""
or Chris's ""LPAR-NAME"", fill in the proper identication, and follow
Chris' example.

I use the same procedure to identify Dictionaries - system dictionary,
sysdirl dictionary etc.

Dick

Richard Pierce
(617) 973-8911
richard.pierce@state.ma.us

Outcomes