ca.portal.admin

Common Signon

Discussion created by ca.portal.admin on Feb 28, 2006
We have several production CV's in our environment, all running similar
applications. Our users are asking for a ""common signon"".

Currently, they have to signon to each CV as the need to access the
different applications. Due to duplicate program/task names, there is no
way we can combine the CV's into one. They would like to sign on to a
single CV, and use some type of menu to switch between all the CV's. I
have a vague idea that this can be done using DBNODEs.

Is anyone else doing this or something similar? Would you be willing to
share code (or at least discuss this)? The other caveat is to do all
this with as little changes to existing programs as possible.

Thanks in advance for any assistance.

Dan Hall
GE
Capital Solutions
Danbury, CT

T 513.217.5060
E dan.hall@ge.com
http://www.ge.com/capitalsolutions/

"
IDMS Public Discussion Forum
IDMS-L@LISTSERV.IUASSN.COM
SMTP
IDMS-L@LISTSERV.IUASSN.COM
IDMS-L@LISTSERV.IUASSN.COM
SMTP








Normal

Normal
Re: Common Signon
"When you say ""they have to signon to each cv"", where are these users
coming from? TSO? CICS? VTAM?

Lutz Petzold




-----------------------------------------
This e-mail may contain confidential or privileged information. If you
think you have received this e-mail in error, please advise the sender
by
reply e-mail and then delete this e-mail immediately. Thank you.
Aetna


"
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
"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: Common Signon
"Good point Lutz, I meant to add that.

The users are coming in via VTAM. Some of them have a 3270 session
manager, some don't. They don't consider the 3270 session manager an
about because they are still signing on and off of multiple CV's.

Outcomes