IBM Mainframe Forum Index
 
Log In
 
IBM Mainframe Forum Index Mainframe: Search IBM Mainframe Forum: FAQ Register
 

Prepare in EXECSQL through REXX return code -1


IBM Mainframe Forums -> DB2
Post new topic   Reply to topic
View previous topic :: View next topic  
Author Message
sakrat

Active User


Joined: 05 Feb 2014
Posts: 164
Location: India

PostPosted: Fri Jun 12, 2015 5:34 pm
Reply with quote

Hi,
I am trying to connect REXX with DB2 with the user's input in the front panel. I get (-1) return code for all the SQL statements. Please help me in correcting the error. As this is my first REXX code with DB2 i couldnt try solving this issue.

Code:


TRACE(I)
ADDRESS ISPEXEC
"ISPEXEC LIBDEF ISPPLIB DATASET ID('******') STACK"
"ISPEXEC DISPLAY PANEL(PANEL1)"
ADDRESS TSO
SRCSYS='***'
SRCSCHEMA = '******'
  IF STRIP(SRCSYS) <> '' THEN
    SSID = SRCSYS

  "DYNASTEP ADD DA('"SSID"GRP.ALIAS.SDSNLOAD')    BOTTOM NOMSG"
  "DYNASTEP ADD DA('"SSID"GRP.ALIAS.SDSNEXIT')    BOTTOM NOMSG"
  "DYNASTEP ADD DA('"SSID"GRP.ALIAS.RUNLIB.LOAD') BOTTOM NOMSG"

ADDRESS TSO "SUBCOM DSNREXX"
  IF RC THEN
     S_RC=RXSUBCOM('ADD','DSNREXX','DSNREXX')

ADDRESS DSNREXX "CONNECT" SRCSYS
  IF SQLCODE <> 0 THEN SAY "CON" SQLCODE CALL SQLCA

QUERY='SELECT * FROM '''SRCSCHEMA'''.'''SRCTABLE''' '

ADDRESS DSNREXX "EXECSQL PREPARE S1 FROM :QUERY"
  IF SQLCODE <> 0 THEN SAY "DEC" SQLCODE CALL SQLCA

ADDRESS DSNREXX "EXECSQL DECLARE C1 CURSOR FOR S1"
  IF SQLCODE <> 0 THEN SAY "PRE" SQLCODE CALL SQLCA

ADDRESS DSNREXX "EXECSQL OPEN C1"
  IF SQLCODE <> 0 THEN SAY "OPN" SQLCODE CALL SQLCA

   
SQLCA:
SAY "SQLCODE:  ==>" SQLCODE
        ADDRESS DSNREXX  DISCONNECT
        S_RC = RXSUBCOM( 'ADD','DSNREXX','DSNREXX')
        EXIT


Below is my TRACE output :

Code:


 *-* ADDRESS TSO "SUBCOM DSNREXX"
 >L>   "SUBCOM DSNREXX"
 *-* IF RC
 >V>   "0"
 *-* ADDRESS DSNREXX "CONNECT" SRCSYS
 >L>   "CONNECT"
 >V>   "***"
 >O>   "CONNECT ***"
 *-* IF SQLCODE <> 0
 >V>   "0"
 >L>   "0"
 >O>   "0"
*-* QUERY='SELECT * FROM '''SRCSCHEMA'''.'''SRCTABLE''' '
>L>   "SELECT * FROM '"
>V>   "*****"
>O>   "SELECT * FROM *****"
>L>   "'.'"
>O>   "SELECT * FROM 'RERET05'.'"
>V>   "NZDEBTP"
>O>   "SELECT * FROM ****.*****"
>L>   "' "
>O>   "SELECT * FROM *****.*****"
*-* ADDRESS DSNREXX "EXECSQL PREPARE S1 FROM :QUERY"
>L>   "EXECSQL PREPARE S1 FROM :QUERY"
+++ RC(-1) +++
*-* IF SQLCODE <> 0
>V>   "-104"
>L>   "0"
>O>   "1"
*-*  THEN
*-*  SAY "DEC" SQLCODE CALL SQLCA
>L>    "DEC"
>V>    "-104"
>O>    "DEC -104"
>L>    "CALL"
   >O>    "DEC -104 CALL"
   >L>    "SQLCA"
   >O>    "DEC -104 CALL SQLCA"
-104 CALL SQLCA
24 *-* ADDRESS DSNREXX "EXECSQL DECLARE C1 CURSOR FOR S1"
   >L>   "EXECSQL DECLARE C1 CURSOR FOR S1"
25 *-* IF SQLCODE <> 0
   >V>   "0"
   >L>   "0"
   >O>   "0"
27 *-* ADDRESS DSNREXX "EXECSQL OPEN C1"
   >L>   "EXECSQL OPEN C1"
   +++ RC(-1) +++
28 *-* IF SQLCODE <> 0
   >V>   "-514"
   >L>   "0"
   >O>   "1"
   *-*  THEN
   *-*  SAY "OPN" SQLCODE CALL SQLCA
   >L>    "OPN"
   >V>    "-514"
   >O>    "OPN -514"
   >L>    "CALL"
      >O>    "OPN -514 CALL"
      >L>    "SQLCA"
      >O>    "OPN -514 CALL SQLCA"
PN -514 CALL SQLCA 
   
Back to top
View user's profile Send private message
enrico-sorichetti

Superior Member


Joined: 14 Mar 2007
Posts: 10872
Location: italy

PostPosted: Fri Jun 12, 2015 6:28 pm
Reply with quote

the return code is a generic error...
You received a -104 and a -514 sqlcode
look at the manual and fix them
Back to top
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic View Bookmarks
All times are GMT + 6 Hours
Forum Index -> DB2

 


Similar Topics
Topic Forum Replies
No new posts Running REXX through JOB CLIST & REXX 13
No new posts Error to read log with rexx CLIST & REXX 11
No new posts isfline didnt work in rexx at z/OS ve... CLIST & REXX 7
No new posts run rexx code with jcl CLIST & REXX 15
No new posts Execute secondary panel of sdsf with ... CLIST & REXX 1
Search our Forums:

Back to Top