senthil kumaran Nagarajan
New User
Joined: 22 Apr 2008
Posts: 1
Location: Chennai
|
|
|
|
Hi All,
I executed the following code
/*REXX*/
'SUBCOM DSNREXX'
IF RC THEN
S_RC =RXSUBCOM('ADD','DSNREXX','DSNREXX')
ADDRESS DSNREXX 'CONNECT' <DBID>
SQLSTMT = ,
"SELECT DBNAME FROM SYSIBM.SYSTABLES WHERE NAME = <Table name>"
"EXECSQL DECLARE C1 CURSOR FOR S1"
"EXECSQL PREPARE S1 FROM :SQLSTMT"
SAY "SQLCODE FROM PREPARE IS " SQLCODE
"EXECSQL OPEN C1"
SAY "SQLCODE FROM OPEN IS " SQLCODE
"EXECSQL FETCH C1 INTO INTO :DBNAME"
SAY "SQLCODE FROM FETCH IS " SQLCODE
SAY DBNAME
"EXECSQL CLOSE C1"
SAY "SQLCODE FROM CLOSE IS " SQLCODE
and I got the following message
IKJ56500I COMMAND EXECSQL NOT FOUND
10 *-* "EXECSQL PREPARE S1 FROM :SQLSTMT"
+++ RC(-3) +++
SQLCODE FROM PREPARE IS 0
IKJ56500I COMMAND EXECSQL NOT FOUND
12 *-* "EXECSQL OPEN C1"
+++ RC(-3) +++
SQLCODE FROM OPEN IS 0
IKJ56500I COMMAND EXECSQL NOT FOUND
14 *-* "EXECSQL FETCH C1 INTO INTO :DBNAME"
+++ RC(-3) +++
SQLCODE FROM FETCH IS 0
DBNAME
IKJ56500I COMMAND EXECSQL NOT FOUND
17 *-* "EXECSQL CLOSE C1"
+++ RC(-3) +++
SQLCODE FROM CLOSE IS 0
I could find the DSNREXX member in the Dbid load library.
Also i got Rc= 1 for the command 'SUBCOM DSNREXX'.
Can any one help me out in this case? |
|
