Troubleshooting
Problem
After upgrading DB2 for z/OS, all WDI 3.2 functions encounter DSNT408I SQLCODE991 REASON 00F30049. Error messages in job log: 09.02.10 JOB00171 + DSNT408I SQLCODE = -991, ERROR: CALL ATTACH WAS UNABLE TO ESTABLISH A 09.02.10 JOB00171 +N IMPLICIT CONNECT OR OPEN TO DB2. RC1=0008 RC2=00F30049 DSNT418I SQLS 09.02.10 JOB00171 +TATE = 57015 SQLSTATE RETURN CODE DSNT415I SQLERRP = DSNACA00 SQL PROC 09.02.10 JOB00171 +EDURE DETECTING ERROR DSNT416I SQLERRD = 0 0 0 -1 0 0 SQL DIAGNOSTIC I 09.02.10 JOB00171 +NFORMATION DSNT416I SQLERRD = X'00000000' X'00000000' X'00000000' X'FF 09.02.10 JOB00171 +FFFFFF' X'00000000' X'00000000' SQL DIAGNOSTIC INFORMATION 09.02.10 JOB00171 +Error initializing service director: rc=4 erc=12
Resolving The Problem
This error condition indicates that "Call attach" was unable to get an explicit connection to DB2. This error can occur after an upgrade to a new version of DB2. In which case it is necessary to re-link WDI 3.2 repository DB2 access modules. The following sample JCL can be used to perform link-edit.
//***********************************************************
//* *
//* JCL PROCEDURE TO RE-LINK WDI 3.2 DB2 ACCESS MODULES. *
//* DO NOT USE THIS JCL FOR OTHER DI OR WDI RELEASES. *
//* *
//***********************************************************
//LKED PROC EDILIB='EDI.V3R2M0.SEDILMD1',
// DB2LIB='DSN.SDSNLOAD',
// UNIT='SYSALLDA',
// OUTC='*'
//*
//LINK EXEC PGM=IEWL,REGION=768K,
// PARM='XREF,RENT,MAP,CALL,AMODE=31,RMODE=ANY'
//SYSLIB DD DISP=SHR,DSN=&DB2LIB
//SYSLMOD DD DISP=OLD,DSN=&EDILIB
//SYSUT1 DD UNIT=&UNIT,SPACE=(CYL,(5,5))
//SYSPRINT DD SYSOUT=&OUTC
//*
// PEND
//*
// EXEC LKED
//*
//LINK.SYSLIN DD *
REPLACE DSNAA,DSNALI,DSNELI,DSNHLI
INCLUDE SYSLMOD(EDIRPML)
INCLUDE SYSLIB(DSNHLI)
ENTRY FXXZCITF
NAME EDIRPML(R)
REPLACE DSNAA,DSNTIAR
INCLUDE SYSLMOD(EDIRSMG)
ENTRY EDIRSMG
NAME EDIRSMG(R)
REPLACE DSNAA,DSNALI,DSNHLI
INCLUDE SYSLMOD(EDIZINIT)
INCLUDE SYSLIB(DSNALI)
ENTRY FXXZCITF
NAME EDIZINIT(R)
REPLACE DSNAA,DSNALI,DSNELI,DSNHLI,DSNTIAM,DSNTIA1,DSNTIAR
INCLUDE SYSLMOD(EDIPSMD)
INCLUDE SYSLIB(DSNHLI)
INCLUDE SYSLIB(DSNTIA1)
ENTRY FXXZCITF
NAME EDIPSMD(R)
REPLACE DSNAA,DSNALI,DSNHLI,DSNTIAR
INCLUDE SYSLMOD(EDIELAS)
INCLUDE SYSLIB(DSNALI)
INCLUDE SYSLIB(DSNTIAR)
ENTRY EDIELAS
NAME EDIELAS(R)
/*
//
Was this topic helpful?
Document Information
Modified date:
01 August 2018
UID
swg21187795