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=3D3DIDMS.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.


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__=0ABBFEF4DFC5F6618f9e8a93df938690918c0ABBFEF4DFC5F661
Content-type: image/gif;
name=""graycol.gif""
Content-Disposition: inline; filename=""graycol.gif""
Content-ID: <10__=0ABBFEF4DFC5F6618f9e8a93df938@humana.com>
Content-transfer-encoding: base64

R0lGODlhEAAQAKECAMzMzAAAAP///wAAACH5BAEAAAIALAAAAAAQABAAAAIXlI+py+0PopwxUbpu
ZRfKZ2zgSJbmSRYAIf4fT3B0aW1pemVkIGJ5IFVsZWFkIFNtYXJ0U2F2ZXIhAAA7

--0__=0ABBFEF4DFC5F6618f9e8a93df938690918c0ABBFEF4DFC5F661
Content-type: image/gif;
name=""pic13132.gif""
Content-Disposition: inline; filename=""pic13132.gif""
Content-ID: <20__=0ABBFEF4DFC5F6618f9e8a93df938@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__=0ABBFEF4DFC5F6618f9e8a93df938690918c0ABBFEF4DFC5F661
Content-type: image/gif;
name=""ecblank.gif""
Content-Disposition: inline; filename=""ecblank.gif""
Content-ID: :love:0__=0ABBFEF4DFC5F6618f9e8a93df938@humana.com>
Content-transfer-encoding: base64

R0lGODlhEAABAIAAAAAAAP///yH5BAEAAAEALAAAAAAQAAEAAAIEjI8ZBQA7

--0__=0ABBFEF4DFC5F6618f9e8a93df938690918c0ABBFEF4DFC5F661--
"
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] Retrieve lpar name from ADS dialog
"
that would work too .....


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






""Pierce, Richard
(RMV)""
<Richard.Pierce@S To
TATE.MA.US> IDMSVENDOR-L@LISTSERV.IUASSN.COM
Sent by: IDMS cc
3rd-party
providers forum Subject
<IDMSVENDOR-L@LIS Re: [IDMSVENDOR-L] Retrieve lpar
TSERV.IUASSN.COM> name from ADS dialog


06/13/2008 11:33
AM


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






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