REXX 2 DB2 connection

amitava · Active User Joined: 30 Oct 2005 Posts: 192 Location: India

Can anyone please help me as fast as you can in a REXX routine that is connecting DB2. That's why I used the call -
ADDRESS TSO "SUBCOM DSNREXX"
IF RC = 0 THEN DO
S_RC = RXSUBCOM('ADD','DSNREXX','DSNREXX') END

ADDRESS DSNREXX "CONNECT NDBD"

But in this step it showing an error of return code -3.
I am unable to find out the error. Can anyone please help?

Thanx in advance,

Regards,

Amitava Chowdhury

MGIndaco · Posted: Wed Jan 25, 2006 5:03 pm Post subject:

Return Code - 3 is usually received when the function that you call is not available(or not present).
For this case we need to know if you installation is upgraded for this feature.

I hope in this.

amitava · Active User Joined: 30 Oct 2005 Posts: 192 Location: India

I checked already that DSNREXX is not available in my system.Please then help me the way to connect REXX routine with DB2.

ofer71 · Posted: Wed Jan 25, 2006 5:54 pm Post subject:

That's easy: Look at this chapter in the fine manual.

O.

amitava · Active User Joined: 30 Oct 2005 Posts: 192 Location: India

But where from I will get the job DSNTIJRX? Please help me by saying the steps what I have to do to run a DB2-embedded REXX routine. Is it not possible to run a DB2-embedded REXX routine without submitting a job? I mean in simple way I will specify the way to connect to database and executing a simple query.

ofer71 · Posted: Wed Jan 25, 2006 6:14 pm Post subject:

OK, I will read the manual for you.

DSNTIJRX is a one-time job, required for binding the REXX interface to DB2.
You can find DSNTIJRX in your DB2 system libraries, in the sample library (something like 'DSN*.SDSNSAMP').

O.

amitava · Active User Joined: 30 Oct 2005 Posts: 192 Location: India

Thanx a lot. PLease help me out. I am also searching it. If I have got, then I will inform you also.

Regards,

Amitava

amitava · Active User Joined: 30 Oct 2005 Posts: 192 Location: India

Hi All,
It was my fault to run the REXX routine. Actually the way to code a DB2-embeded REXX routine is that we should try to subcom DSNREXX
first. If the rc is 1 i.e the service is not present, then we have to add the service by RXSUBCOM('ADD','DSNREXX','DSNREXX'). Actually the code will be like -
ADDRESS TSO "SUBCOM DSNREXX"
IF RC = 1 THEN DO
S_RC = RXSUBCOM('ADD','DSNREXX','DSNREXX')
END
ADDRESS DSNREXX "CONNECT <DB2-SYSTEM>"
If this is done, then the code will be fine.

Regards,
Amitava