ca.portal.admin

Re: [IDMSVENDOR-L] tso access to r17 CV

Discussion created by ca.portal.admin on Dec 23, 2008
PROC 0
CONTROL MSG LIST
FREE F(SYSPRINT,SYSOUT,SYSOUD,SYSLST,SYSUDUMP,SYSCTL,DCMSG)
FREE F(SYSJRNL,J1JRNL,J2JRNL,J3JRNL,J4JRNL,CDMSLIB)
CONTROL MSG
ALLOC F(SYSPRINT) DA(*)
ALLOC F(SYSOUT) DA(*)
ALLOC F(SYSOUD) DA(*)
ALLOC F(SYSUDUMP) DA(*)
ALLOC F(DCMSG) DA('IDMS.DBA.SYSMSG.DDLDCMSG') SHR
ALLOC F(SYSCTL) DA('IDMS.DBA.SYS23.SYSCTL') SHR
ALLOC F(SYSJRNL) DUMMY
ALLOC F(J1JRNL) DUMMY
ALLOC F(J2JRNL) DUMMY
ALLOC F(J3JRNL) DUMMY
ALLOC F(J4JRNL) DUMMY
ALLOC F(CDMSLIB) DA('IDMS.DBA.HUMANA.LOADLIB',-
'IDMS.DBA.SYS.LOADLIB.NONACF') SHR
CALL 'IDMS.DBA.SYS.LOADLIB.NONACF(RHDCUCFT)'

IDMS.DBA.SYS.LOADLIB.NONACF is a clone of our runtime system software
loadlib (we cloned a non-APF aithorized version because the manual says
RHDCUCFT cannot be executed from an authorized loadlib, and we
authorized
our system software loadlib to support ZiiP



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
Re: [IDMSVENDOR-L] tso access to r17 CV
"The situation seems to be that the LOADLIB was a PDSE.
If you specify a CDMSLIB allocate for a PDSE, then a 3907 will occur
because if we see CDMSLIB as the DDNAME, we attempt to LOAD with EXCP
processing.
It turns out that whether it is a PDSE or a regular PDS, and whether or
not it is an authorized LOADLIB, the simplest CLIST that will work is:
FREE FI(SYSCTL)
CONTROL LIST MSG
ALLOC F(SYSCTL) DA('YOUR.SYSCTL.DSNAME') SHR
CALL 'IDMS.PDSE.LOADLIB.R170(RHDCUCFT)'
FREE F(SYSCTL)
*
I tested this here at CA and it worked fine. If I put in CDMSLIB
allocate in the PDSE situation, I too received the 3907 abend.
Ed McKinney CA

Outcomes