|
View previous topic :: View next topic
|
| Author |
Message |
vtham
New User
Joined: 08 Aug 2007
Posts: 9
Location: Chennai
|
|
|
|
Hi,
Please find the below code and error message I receive while trying to check for DB2 connectivity. Initially started runing the actual SQL and as it failed, wrote the below to check the connectivity and it shows the below error.
Thank you.
=====
LIBDEF ISPLLIB DATASET ID('SDB25A.SDSNLOAD')
ADDRESS ISPEXEC "CONTROL ERRORS RETURN"
ADDRESS TSO "SUBCOM DSNREXX"
IF RC <> 0 THEN DO
S_RC = RXSUBCOM('ADD','DSNREXX','DSNREXX')
IF S_RC <> 0 THEN DO
SAY 'PROBLEM LOADING DB2 ENVIRONMENT'
EXIT
END
END
ADDRESS DSNREXX "CONNECT "LOCDB25
======
2 +++ LIBDEF ISPLLIB DATASET ID('SDB25A.SDSNLOAD')
IRX0043I Error running DB2LINK, line 2: Routine not found
***
======
VIEW SDB25A.SDSNLOAD
Command ===>
Name Prompt Alias-of
_________ DSNREXX
_________ RXSUBCOM DSNREXX
====== |
|
| Back to top |
|
 |
dick scherrer
Moderator Emeritus
Joined: 23 Nov 2006
Posts: 19244
Location: Inside the Matrix
|
|
|
|
Hello,
Suggest you talk with your support people to detemine which labrary(ies) are missing from your library concatenation. |
|
| Back to top |
|
|
vtham
New User
Joined: 08 Aug 2007
Posts: 9
Location: Chennai
|
|
|
|
Hi Dick,
After checking back with my support group, have made few modifications with the code and still it fails. ADDRESS DSNREXX "CONNECT" DB25 - is failing, Can you please assist
| Code: |
/*************************** REXX COMMAND ****************************/
ADDRESS ISPEXEC
"CONTROL ERRORS RETURN"
"LIBDEF ISPLLIB DATASET ID('SDB25A.SDSNLOAD' 'SDB25A.SERVLIB' ",
"'SDB25A.RUNLIB.LOAD')"
SAY "RETURN CODE1 "RC
ADDRESS TSO "SUBCOM DSNREXX"
SAY "RETURN CODE2 "RC
IF RC <> 0 THEN
S_RC = RXSUBCOMM('ADD','DSNREXX','DSNREXX')
SAY "RETURN CODE3 "RC ;
ADDRESS DSNREXX
"CONNECT" DB25
SAY "RETURN COD3A "RC
SQLSTMT="SELECT ID_BR_IMMS FROM LOCDB25.DEV23MMD.IMMS_MMB_V"
SAY "RETURN CODE4 "RC
"EXECSQL DECLARE C1 CURSOR FOR S1"
SAY "RETURN CODE5 "RC
|
| Code: |
RETURN CODE1 0
RETURN CODE2 0
RETURN CODE3 0
13 *-* "CONNECT" DB25
+++ RC(-3) +++
RETURN COD3A -3
RETURN CODE4 -3
17 *-* "EXECSQL DECLARE C1 CURSOR FOR S1"
+++ RC(-3) +++
RETURN CODE5 -3
19 *-* "EXECSQL PREPARE S1 FROM :SQLSTMT"
|
|
|
| Back to top |
|
|
vtham
New User
Joined: 08 Aug 2007
Posts: 9
Location: Chennai
|
|
|
|
Just want to add this too
| Code: |
INSYNC --------------- BROWSE - Table/View Specification ---------------
COMMAND ===>
DB2ID ==> DB25
SQLID ==>
LOCATION ==> LOCDB25
Creator ===> DEV23MMD
Table/View name ===> IMMS_MMB_V
|
|
|
| Back to top |
|
|
|
|
