ca.portal.admin

Re:Re: [IDMSVENDOR-L] Retrieve lpar name from ADS dialog

Discussion created by ca.portal.admin on Jun 13, 2008
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
"--0__=0ABBFEF4DFC5F6618f9e8a93df938690918c0ABBFEF4DFC5F661
Content-type: text/plain; charset=US-ASCII
Content-transfer-encoding: quoted-printable


that would work too .....


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





=20
""Pierce, Richard =20
(RMV)"" =20
<Richard.Pierce@S T=
o
TATE.MA.US> IDMSVENDOR-L@LISTSERV.IUASSN.COM
Sent by: IDMS c=
c
3rd-party =20
providers forum Subjec=
t
<IDMSVENDOR-L@LIS Re: [IDMSVENDOR-L] Retrieve lpar
TSERV.IUASSN.COM> name from ADS dialog =20
=20
=20
06/13/2008 11:33 =20
AM =20
=20
=20
Please respond to =20
IDMS Public =20
Discussion Forum =20
<IDMS-L@LISTSERV. =20
IUASSN.COM> =20
=20
=20




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