rohanthengal
Active User
Joined: 19 Mar 2009 Posts: 206 Location: Globe, India
|
|
|
|
Pls help me out over here...! It is saying connection error with Return code as -1... i am not able to debug this. I checked out the DSN1 name .. it is right !
Please help me in this.
/* rexx */
/* Check for the DSNREXX environment */
address tso 'subcom dsnrexx'
if rc \= 0 then
do
/* Add DSNREXX to the REXX host command environment table */
RC=RXSUBCOM('ADD','DSNREXX','DSNREXX')
end
if rc = 0 then
say 'dsnrexx to rexx host environment has been added successfully'
else
say 'error: dsnrexx could not be added in rexx host environment'
/* Connecting to DB2 Subsystem */
ADDRESS DSNREXX 'CONNECT' DSN1
say rc
if rc = 0 then
say 'connection established successfully'
else
say 'connection error' |
|