ca.portal.admin

Re: [IDMSVENDOR-L] Common Signon

Discussion created by ca.portal.admin on Feb 28, 2006
Dan - you can turn all your CVs into ""front ends"" by using the DB
RESOURCE TABLE (your suggesting of DBNODES is pretyy much on target)

an example would be as follows:

*+   ADD SYSTEM 62
*+       SYSTEM ID IS CV62
*+   ADD NODE CV75
*+       CVNUMBER 75 SVC 250 BLOCKSIZE 8192
*+       .
*+       .
*+   ADD RESOURCE TABLE
*+       DBNAME IS FIPROD01 VIA CV75
*+       DBNAME IS FIPROD02 VIA CV75
*+       DBNAME IS FIPROD03 VIA CV75
*+       DBNAME IS FIPROD04 VIA CV75
*+       DBNAME IS FIPROD05 VIA CV75
*+       DBNAME IS FIPROD06 VIA CV75
*+       DBNAME IS FIPROD11 VIA CV75
*+       DBNAME IS FIPROD12 VIA CV75
*+       DBNAME IS FIPROD13 VIA CV75
*+       DBNAME IS FIPROD14 VIA CV75
*+       DBNAME IS FIPROD15 VIA CV75
*+       DBNAME IS FIPROD16 VIA CV75
*+       DBNAME IS MCPRODA VIA CV75
*+       DBNAME IS MCPRODB VIA CV75
*+       DBNAME IS MCPRODC VIA CV75
*+       DBNAME IS MCPRODD VIA CV75
*+       DBNAME IS MCPRODE VIA CV75
*+       DBNAME IS MCPRODF VIA CV75
*+       DBNAME IS MCPRODG VIA CV75
*+       DBNAME IS MCPRODH VIA CV75
*+       DBNAME IS MCPRODI VIA CV75
*+       DBNAME IS MCPRODJ VIA CV75
*+       DBNAME IS MCPRODK VIA CV75
*+       DBNAME IS MCPRODL VIA CV75
*+       DBNAME IS MCPRODM VIA CV75
*+       DBNAME IS MCPRODN VIA CV75
*+       DBNAME IS MCPRODO VIA CV75
*+       DBNAME IS MCPRODP VIA CV75
*+       DBNAME IS MCPRODQ VIA CV75
*+       DBNAME IS SCPFI01 VIA CV75
*+       DBNAME IS SCPGH02 VIA CV75
*+       DBNAME IS SCPMC02 VIA CV75
*+       DBNAME IS SCPMC5X VIA CV75
*+       DBNAME IS SCPRE02 VIA CV75
*+       DBNAME IS SCPSV01 VIA CV75
*+       DBNAME IS SCPTB01 VIA CV75
*+       DBNAME IS SCPUS02 VIA CV75
*+       DBNAME IS SCPXR01 VIA CV75
*+       DBNAME IS SCPGHRT VIA CV75
*+       .

this would force anytime a run unit was bound with DBNAME SCPGHRT to go
to
CV75


one problem we ran into - the resource table is checked BEFORE the
subschema mapping table - so if you come in with no DBNAME but bound
with a subschema (as we were written to do many yeas ago) , the RESOURCE
table will never get a match - our solution was to code an exit 23 as
follows:
(we recompiled certain programs that we wanted executed from a different
CV ti have a specific subschema name)

TITLE 'EXIT 23 - PRE BIND EXIT'
UT23EXIT #MOPT ENV=SYS,AMODE=31,RMODE=ANY UT23EXIT CSECT
UT23EP1 #START MPMODE=ANY
USING CSA,R10
L R2,4(,R1) R2 ==> 40 BYTE DATA AREA
USING PARMAREA,R2
TEST1 CLC PSSCNAM,=CL8'SSTGHRT ' IS THIS FOR DEV SPC RETRIEVAL?
BNE TEST2 NO! TRY QA/PROD
MVC PDBNAME,=CL8'SCDGHRT ' OVERRIDE DBNAME
B RETURN EXIT
TEST2 CLC PSSCNAM,=CL8'SSPGHRT ' IS THIS FOR QA/PRD SPC RETR
BNE RETURN NO! JUST EXIT
MVC PDBNAME,=CL8'SCPGHRT ' OVERRIDE DBNAME
RETURN #RTN RETURN TO CALLER
LTORG
COPY #CSADS
PARMAREA DSECT
PSSCNAM DS CL8 SSC NAME
PDBNODE DS CL8 DATABASE NODE
PDBNAME DS CL8 DATABASE NAME
PDICNOD DS CL8 DICTIONARY NODE
PDICNAM DS CL8 DICTIONARY NAME
END











Chris Hoelscher
IDMS & DB2 Database Administrator
Humana Inc
502-710-3038
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: [IDMSVENDOR-L] Common Signon
"You can solve this in a couple of ways:

1) Set up a Dbname in the resource table for the dictionary, pointing to
the correct node.

2) Define the dictionary in retrieval mode to the second CV.

Option #2 performs better, but you need to remember to flush the
dictionary's buffers on the second CV whenever you update it on the
first CV.

Outcomes