|
View previous topic :: View next topic
|
| Author |
Message |
sukumar.pm
New User
Joined: 20 Dec 2007
Posts: 27
Location: chennai
|
|
|
|
Hi Ped,
here is the output with TRACE I:
| Code: |
3 *-* SSID = 'DBT1'
>L> "DBT1"
4 *-* ADDRESS ISPEXEC "LIBDEF ISPLLIB DATASET ID('DSN.DBT1.DSNLOAD')"
>L> "LIBDEF ISPLLIB DATASET ID('DSN.DBT1.DSNLOAD')"
5 *-* SAY 'RC_0'RC
>L> "RC_0"
>V> "0"
>O> "RC_00"
RC_00
6 *-* ADDRESS ISPEXEC "LIBDEF ISPLLIB DATASET ID('DSN.DBT1.DSNEXIT')"
>L> "LIBDEF ISPLLIB DATASET ID('DSN.DBT1.DSNEXIT')"
7 *-* SAY 'RC_0'RC
>L> "RC_0"
>V> "0"
>O> "RC_00"
RC_00
8 *-* 'SUBCOM DSNREXX'
>L> "SUBCOM DSNREXX"
9 *-* IF RC:=0
>V> "0"
>L> "0"
>O> "0"
14 *-* SAY 'RC_1'RC
>L> "RC_1"
>V> "0"
>O> "RC_10"
RC_10
15 *-* ADDRESS DSNREXX
16 *-* SAY 'DSNREXX' RC
>L> "DSNREXX"
>V> "0"
>O> "DSNREXX 0"
DSNREXX 0
17 *-* SAY
18 *-* ADDRESS DSNREXX 'CONNECT' SSID
>L> "CONNECT"
>V> "DBT1"
>O> "CONNECT DBT1"
+++ RC(-3) +++
19 *-* SAY 'CONNECT' RC
>L> "CONNECT"
>V> "-3"
>O> "CONNECT -3"
CONNECT -3 |
|
|
| Back to top |
|
 |
expat
Global Moderator
Joined: 14 Mar 2007
Posts: 8797
Location: Welsh Wales
|
|
|
|
From your latest post it appears that you have not acted upon the sound advice given by Pedro.
Because you are doing TWO LIBDEF's the second LIBDEF will replace the first LIBDEF, i.e. REMOVE it from the library definitions order.
OK, so we have a couple of options here - use the STKADD parameter or maybe something else like this .......................
| Code: |
CCAT = "'DSN.DBT1.DSNLOAD' 'DSN.DBT1.DSNEXIT'"
"ISPEXEC LIBDEF ISPLLIB DATASET ID("CCAT") STACK" |
Please pay attention to the help that others give you, even if it does involve reading a manual yourself. |
|
| Back to top |
|
|
sukumar.pm
New User
Joined: 20 Dec 2007
Posts: 27
Location: chennai
|
|
|
|
Hi expat,
FYI: i just wanted show the TRACE I output to PeD.that y i did not removed the second ispllib statement.
i studied the ISPF Services Guide manual. i have not got better idea yet.
| Code: |
/*REXX*/
TRACE I
SSID = 'DBT1'
CCAT = "'DSN.DBT1.DSNLOAD' 'DSN.DBT1.DSNEXIT'"
"ISPEXEC LIBDEF ISPLLIB DATASET ID("CCAT") STACK"
SAY 'RC= ' RC
ADDRESS TSO 'SUBCOM DSNREXX'
IF RC\=0 THEN DO
SAY 'RC_00'RC
S_RC = RXSUBCOM('ADD','DSNREXX','DSNREXX')
/* S_RC = RXSUBCOM('ADD','DSNREXX','DSNREXX','DSN.DBT1.DSNLOAD')*/
END
SAY 'RC_1'RC
ADDRESS DSNREXX 'CONNECT' SSID
SAY 'CONNECT' RC |
i got RC=-3 for the last RC statement.
i have already tried with concatination in different way..that is also successful.
but my connect statement got RC=-3. |
|
| Back to top |
|
|
Pedro
Global Moderator
Joined: 01 Sep 2006
Posts: 2547
Location: Silicon Valley
|
|
|
|
| Quote: |
| i have already tried with concatination in different way..that is also successful. |
Not very useful diagnostic information.
Please read the ISPF Services Guide manual. And read how to specify a list of datasets. I do not believe your example follows the syntax guidelines described in the manual. |
|
| Back to top |
|
|
Pedro
Global Moderator
Joined: 01 Sep 2006
Posts: 2547
Location: Silicon Valley
|
|
|
|
| Code: |
18 *-* ADDRESS DSNREXX 'CONNECT' SSID
>L> "CONNECT"
>V> "DBT1"
>O> "CONNECT DBT1" |
I do no think this is related to your problem, but earlier posts asked about the value of SSID. From the trace, we can see that the value of SSID is still DBT1.
So, continue using trace as needed to debug your program. |
|
| Back to top |
|
|
sukumar.pm
New User
Joined: 20 Dec 2007
Posts: 27
Location: chennai
|
|
|
|
Hi,
| Quote: |
| i have already tried with concatination in different way..that is also successful. |
what i tried to say is
i used
| Code: |
ADDRESS ISPEXEC "LIBDEF ISPLLIB EXCLDATA ID",
"('DSN.DBT1.DSNLOAD' 'DSN.DBT1.DSNEXIT')",
"UNCOND" |
I got RC=0 for this statement,but i got RC=-3 in the connect statement. |
|
| Back to top |
|
|
PeD
Active User
Joined: 26 Nov 2005
Posts: 459
Location: Belgium
|
|
|
|
As we successfully performed that sequence of DSNREXX cards, it becomes difficult to solve the problem form here (I do not know the distance between Chennai and Lonzee ).
Could it be possible to pass this problem to your DB2 support team?
If another user processes exactly the same code, does it work? Is it an authority problem?
More, I can't do. Sorry Sukumar.
Regards
Pierre |
|
| Back to top |
|
|
Pedro
Global Moderator
Joined: 01 Sep 2006
Posts: 2547
Location: Silicon Valley
|
|
|
|
| Code: |
ADDRESS ISPEXEC "LIBDEF ISPLLIB EXCLDATA ID",
"('DSN.DBT1.DSNLOAD' 'DSN.DBT1.DSNEXIT')",
"UNCOND" |
Did you try using DATASET instead of EXCLDATA? |
|
| Back to top |
|
|
Pedro
Global Moderator
Joined: 01 Sep 2006
Posts: 2547
Location: Silicon Valley
|
|
|
|
Something different...
Try issuing these commands BEFORE you get into ISPF.
| Code: |
ALLOC F(mydb2) DSN('DSN.DBT1.DSNLOAD','DSN.DBT1.DSNEXIT') SHR REU
TSOLIB ACT DD(mydb2) |
Then try rexx program (with libdef removed). |
|
| Back to top |
|
|
sukumar.pm
New User
Joined: 20 Dec 2007
Posts: 27
Location: chennai
|
|
|
|
Thanks all.
i am able to run same rexx code(with LIBDEF removed) using this following JCL.
| Code: |
//Q02493RX JOB 9Z-868-4000-PRO-A0,' REXX TEST',
// CLASS=X,MSGCLASS=2,NOTIFY=Q02493
//* $ACFJ219 ACF2 ACTIVE TCN0
//STEP1 EXEC PGM=IKJEFT01,PARM='CDB2'
//STEPLIB DD DISP=SHR,DSN=DSN.DBT1.DSNLOAD
// DD DISP=SHR,DSN=DSN.DBT1.DSNEXIT
//SYSPRINT DD SYSOUT=*
//SYSTSIN DD DUMMY
//SYSTSPRT DD SYSOUT=*
//SYSEXEC DD DSN=Q02493.REXX.EXEC,DISP=SHR |
but i am not able add the PDS in the above steplib in run time i.e using LIBDEF.
ok PeD.i will speak with our DB2 support team,after trying your last two suggestions. |
|
| Back to top |
|
|
sukumar.pm
New User
Joined: 20 Dec 2007
Posts: 27
Location: chennai
|
|
|
|
Hi all,
Atlast,i am able to run my program.i included my library in Q02493.PROLOGUE.CLIST dataset permanently.
Thanks all for the useful suggestions.
Sukumar. |
|
| Back to top |
|
|
muralithirumalaisamy
Warnings : 1
New User
Joined: 13 Jun 2005
Posts: 12
Location: chennai
|
|
|
|
Hi,
If u didnt solve this problem yet try as below, it will work
ADDRESS DSNREXX 'CONNECT' ssid |
|
| Back to top |
|
|
expat
Global Moderator
Joined: 14 Mar 2007
Posts: 8797
Location: Welsh Wales
|
|
|
|
| muralithirumalaisamy wrote: |
Hi,
If u didnt solve this problem yet try as below, it will work
ADDRESS DSNREXX 'CONNECT' ssid |
Please read the thread properly before responding.
It is 7 days since the OP has said that the problem has been resolved and you then suggest something that was shown in the very first post in this thread. |
|
| Back to top |
|
|
|
|
