REQUEST FOR - REXX CAF ROUTINE

Carl Nelson

REQUEST FOR - REXX CAF ROUTINE
I can not find this in the DB2-L. Would some one send me an example of
REXX calling DB2 via CAF or repost this.




On Fri, 11 May 2001 08:25:37 +0200, Max Scarpa <[login to unmask email]> wrote:

>Hi Roger
>
>I post in DB2-L documents a REXX exec with CAF (DSNALI) call to connect to
>a DB2 subsys to use IFI.
>
>Tale a look if this 'inutility' may be useful.
>
>Regards
>
>Max Scarpa
>
>DB2 sysprog (believe it)
>
>
>



I can not find this in the Documents. Would some one either re-post, tell
me how to find it in the Documents, or send it to me?

---------------------------------------------------------------------------------
Welcome to the IDUG DB2-L list. To unsubscribe, go to the archives and home page at http://www.idugdb2-l.org/archives/db2-l.html. From that page select "Join or Leave the list". The IDUG DB2-L FAQ is at http://www.idugdb2-l.org. The IDUG List Admins can be reached at [login to unmask email] Find out the latest on IDUG conferences at http://conferences.idug.org/index.cfm

David Seibert

Re: REQUEST FOR - REXX CAF ROUTINE
(in response to Carl Nelson)
Hey Carl,

What do you wish to do with Rexx?

You can probably do it via the DSNREXX interface that is now part of the DB2
product.
Info is in the SQL & Appl Pgming Guide.

Dave


-----Original Message-----
From: DB2 Data Base Discussion List [mailto:[login to unmask email] On Behalf
Of Carl Nelson
Sent: Tuesday, January 18, 2005 11:20 AM
To: [login to unmask email]
Subject: Re: [DB2-L] REQUEST FOR - REXX CAF ROUTINE


I can not find this in the DB2-L. Would some one send me an example of REXX
calling DB2 via CAF or repost this.




On Fri, 11 May 2001 08:25:37 +0200, Max Scarpa <[login to unmask email]> wrote:

>Hi Roger
>
>I post in DB2-L documents a REXX exec with CAF (DSNALI) call to
>connect to a DB2 subsys to use IFI.
>
>Tale a look if this 'inutility' may be useful.
>
>Regards
>
>Max Scarpa
>
>DB2 sysprog (believe it)
>
>
>
>visit



I can not find this in the Documents. Would some one either re-post, tell
me how to find it in the Documents, or send it to me?

----------------------------------------------------------------------------
-----
Welcome to the IDUG DB2-L list. To unsubscribe, go to the archives and home
page at http://www.idugdb2-l.org/archives/db2-l.html. From that page select
"Join or Leave the list". The IDUG DB2-L FAQ is at http://www.idugdb2-l.org.
The IDUG List Admins can be reached at [login to unmask email] Find
out the latest on IDUG conferences at http://conferences.idug.org/index.cfm



The contents of this e-mail are intended for the named addressee only. It
contains information that may be confidential. Unless you are the named
addressee or an authorized designee, you may not copy or use it, or disclose
it to anyone else. If you received it in error please notify us immediately
and then destroy it.

---------------------------------------------------------------------------------
Welcome to the IDUG DB2-L list. To unsubscribe, go to the archives and home page at http://www.idugdb2-l.org/archives/db2-l.html. From that page select "Join or Leave the list". The IDUG DB2-L FAQ is at http://www.idugdb2-l.org. The IDUG List Admins can be reached at [login to unmask email] Find out the latest on IDUG conferences at http://conferences.idug.org/index.cfm

Carl Nelson

Re: REQUEST FOR - REXX CAF ROUTINE
(in response to David Seibert)
I need to run some SQL. I have been doing this successfully on my other
LPARs but ran into problems on an LPAR using CAF. I did not know if I
needed to change my call or if this was a problem with the REXX set up.
The manual made no distinction as to CAF or TSO. Does it make a
difference? Should this work for CAF?

SUBCOM DSNREXX
IF RC THEN DO
S_RC = RXSUBCOM('ADD','DSNREXX','DSNREXX')
END
ADDRESS DSNREXX
'CONNECT ' SUBSYS

Error messages:
DSNT408I SQLCODE = -924, ERROR: DB2 CONNECTION INTERNAL ERROR, , ,
DSNT415I SQLERRP = SQL PROCEDURE DETECTING ERROR
and
DSNT408I SQLCODE = -923, ERROR: CONNECTION NOT ESTABLISHED: DB2 , REASON ,
, TYPE , NAME
DSNT415I SQLERRP = SQL PROCEDURE DETECTING
ERROR


Thanks,
Carl Nelson





"Seibert, Dave"
<[login to unmask email] To: [login to unmask email]
PUWARE.COM> cc:
Sent by: DB2 Data Subject: Re: [DB2-L] REQUEST FOR - REXX CAF ROUTINE
Base Discussion
List
<[login to unmask email]
ORG>


01/18/2005 11:30
AM
Please respond to
DB2 Database
Discussion list
at IDUG






Hey Carl,

What do you wish to do with Rexx?

You can probably do it via the DSNREXX interface that is now part of the
DB2
product.
Info is in the SQL & Appl Pgming Guide.

Dave


-----Original Message-----
From: DB2 Data Base Discussion List [mailto:[login to unmask email] On Behalf
Of Carl Nelson
Sent: Tuesday, January 18, 2005 11:20 AM
To: [login to unmask email]
Subject: Re: [DB2-L] REQUEST FOR - REXX CAF ROUTINE


I can not find this in the DB2-L. Would some one send me an example of
REXX
calling DB2 via CAF or repost this.




On Fri, 11 May 2001 08:25:37 +0200, Max Scarpa <[login to unmask email]> wrote:

>Hi Roger
>
>I post in DB2-L documents a REXX exec with CAF (DSNALI) call to
>connect to a DB2 subsys to use IFI.
>
>Tale a look if this 'inutility' may be useful.
>
>Regards
>
>Max Scarpa
>
>DB2 sysprog (believe it)
>
>
>
>visit



I can not find this in the Documents. Would some one either re-post, tell
me how to find it in the Documents, or send it to me?

----------------------------------------------------------------------------

-----
Welcome to the IDUG DB2-L list. To unsubscribe, go to the archives and home
page at http://www.idugdb2-l.org/archives/db2-l.html. From that page select
"Join or Leave the list". The IDUG DB2-L FAQ is at http://www.idugdb2-l.org
.
The IDUG List Admins can be reached at [login to unmask email]
Find
out the latest on IDUG conferences at http://conferences.idug.org/index.cfm



The contents of this e-mail are intended for the named addressee only. It
contains information that may be confidential. Unless you are the named
addressee or an authorized designee, you may not copy or use it, or
disclose
it to anyone else. If you received it in error please notify us immediately
and then destroy it.

---------------------------------------------------------------------------------

Welcome to the IDUG DB2-L list. To unsubscribe, go to the archives and home
page at http://www.idugdb2-l.org/archives/db2-l.html. From that page select
"Join or Leave the list". The IDUG DB2-L FAQ is at http://www.idugdb2-l.org
. The IDUG List Admins can be reached at [login to unmask email]
Find out the latest on IDUG conferences at
http://conferences.idug.org/index.cfm







CONFIDENTIALITY NOTICE: This e-mail message, including any attachments,
is for the sole use of the intended recipient(s) and may contain confidential
and privileged information or otherwise protected by law. Any unauthorized
review, use, disclosure or distribution is prohibited. If you are not the
intended recipient, please contact the sender by reply e-mail and destroy
all copies of the original message.

---------------------------------------------------------------------------------
Welcome to the IDUG DB2-L list. To unsubscribe, go to the archives and home page at http://www.idugdb2-l.org/archives/db2-l.html. From that page select "Join or Leave the list". The IDUG DB2-L FAQ is at http://www.idugdb2-l.org. The IDUG List Admins can be reached at [login to unmask email] Find out the latest on IDUG conferences at http://conferences.idug.org/index.cfm

Richard Humphris

Re: REQUEST FOR - REXX CAF ROUTINE
(in response to Carl Nelson)
I don't remember the errors we had originally.... But when we bound
DSNREXX on a v7 subsystem then we couldn't connect to a v6 subsystem.

What we did was bind v6 dsnrexx on all sub-systems (v6 or v7) and it
worked. Then later when we got all sub-systems at v7 then we bound v7
dsnrexx everywhere and began running the v7 version.

Rich Humphris

E-MAIL CONFIDENTIALITY NOTICE: The contents of this e-mail message and any attachments are intended solely for the
addressee(s) and may contain confidential and/or legally privileged information. If you are not the
intended recipient of this message or if this message has been addressed to you in error, please
immediately alert the sender by reply e-mail and then delete this message and any attachments. If you
are not the intended recipient, you are notified that any use, dissemination, distribution, copying, or
storage of this message or any attachment is strictly prohibited.

---------------------------------------------------------------------------------
Welcome to the IDUG DB2-L list. To unsubscribe, go to the archives and home page at http://www.idugdb2-l.org/archives/db2-l.html. From that page select "Join or Leave the list". The IDUG DB2-L FAQ is at http://www.idugdb2-l.org. The IDUG List Admins can be reached at [login to unmask email] Find out the latest on IDUG conferences at http://conferences.idug.org/index.cfm

James Campbell

Re: REQUEST FOR - REXX CAF ROUTINE
(in response to Richard Humphris)
You might find it usefull to add a
//DSNTRACE DD SYSOUT=*,RECFM=F,LRECL=F,BLKSIZE=F
to your JCL (or equivalent TSO ALLOC). This generates some trace
information that doesn't appear elsewhere. (Documented in the Diagnosis
Guide + Ref)

James Campbell

On Tue, 18 Jan 2005 14:27:32 -0500, Carl Nelson <[login to unmask email]>
wrote:

>I need to run some SQL. I have been doing this successfully on my other
>LPARs but ran into problems on an LPAR using CAF. I did not know if I
>needed to change my call or if this was a problem with the REXX set up.
>The manual made no distinction as to CAF or TSO. Does it make a
>difference? Should this work for CAF?
>
>SUBCOM DSNREXX
>IF RC THEN DO
> S_RC = RXSUBCOM('ADD','DSNREXX','DSNREXX')
>END
>ADDRESS DSNREXX
>'CONNECT ' SUBSYS
>
>Error messages:
>DSNT408I SQLCODE = -924, ERROR: DB2 CONNECTION INTERNAL ERROR, , ,
>DSNT415I SQLERRP = SQL PROCEDURE DETECTING ERROR
>and
>DSNT408I SQLCODE = -923, ERROR: CONNECTION NOT ESTABLISHED: DB2 , REASON ,
>, TYPE , NAME
> DSNT415I SQLERRP = SQL PROCEDURE DETECTING
>ERROR
>
>
>Thanks,
>Carl Nelson
>
>

---------------------------------------------------------------------------------
Welcome to the IDUG DB2-L list. To unsubscribe, go to the archives and home page at http://www.idugdb2-l.org/archives/db2-l.html. From that page select "Join or Leave the list". The IDUG DB2-L FAQ is at http://www.idugdb2-l.org. The IDUG List Admins can be reached at [login to unmask email] Find out the latest on IDUG conferences at http://conferences.idug.org/index.cfm

David Seibert

Re: REQUEST FOR - REXX CAF ROUTINE
(in response to James Campbell)
Hello Carl,

There should be a reason code accompanying the -924.
What is it?

In my experience, -924 errors have been environmental. In compiled programs,
this has been from a bad linkedit. That's obviously not the case with your
Rexx code. It could be an incomplete install of the Rexx interface.
I think I may have seen -924 when the subsystem you're attempting connection
to is not up or not up on your LPAR.

The reascon code should provide further debugging assistance. Did you take
James's suggestion about DSNTRACE?
Any help there?

Dave


-----Original Message-----
From: DB2 Data Base Discussion List [mailto:[login to unmask email] On Behalf
Of Carl Nelson
Sent: Tuesday, January 18, 2005 2:28 PM
To: [login to unmask email]
Subject: Re: [DB2-L] REQUEST FOR - REXX CAF ROUTINE


I need to run some SQL. I have been doing this successfully on my other
LPARs but ran into problems on an LPAR using CAF. I did not know if I
needed to change my call or if this was a problem with the REXX set up. The
manual made no distinction as to CAF or TSO. Does it make a difference?
Should this work for CAF?

SUBCOM DSNREXX
IF RC THEN DO
S_RC = RXSUBCOM('ADD','DSNREXX','DSNREXX')
END
ADDRESS DSNREXX
'CONNECT ' SUBSYS

Error messages:
DSNT408I SQLCODE = -924, ERROR: DB2 CONNECTION INTERNAL ERROR, , ,
DSNT415I SQLERRP = SQL PROCEDURE DETECTING ERROR
and
DSNT408I SQLCODE = -923, ERROR: CONNECTION NOT ESTABLISHED: DB2 , REASON ,
, TYPE , NAME
DSNT415I SQLERRP = SQL PROCEDURE DETECTING
ERROR


Thanks,
Carl Nelson





"Seibert, Dave"
<[login to unmask email] To:
[login to unmask email]
PUWARE.COM> cc:
Sent by: DB2 Data Subject: Re: [DB2-L] REQUEST
FOR - REXX CAF ROUTINE
Base Discussion
List
<[login to unmask email]
ORG>


01/18/2005 11:30
AM
Please respond to
DB2 Database
Discussion list
at IDUG






Hey Carl,

What do you wish to do with Rexx?

You can probably do it via the DSNREXX interface that is now part of the DB2
product. Info is in the SQL & Appl Pgming Guide.

Dave


-----Original Message-----
From: DB2 Data Base Discussion List [mailto:[login to unmask email] On Behalf
Of Carl Nelson
Sent: Tuesday, January 18, 2005 11:20 AM
To: [login to unmask email]
Subject: Re: [DB2-L] REQUEST FOR - REXX CAF ROUTINE


I can not find this in the DB2-L. Would some one send me an example of REXX
calling DB2 via CAF or repost this.




On Fri, 11 May 2001 08:25:37 +0200, Max Scarpa <[login to unmask email]> wrote:

>Hi Roger
>
>I post in DB2-L documents a REXX exec with CAF (DSNALI) call to
>connect to a DB2 subsys to use IFI.
>
>Tale a look if this 'inutility' may be useful.
>
>Regards
>
>Max Scarpa
>
>DB2 sysprog (believe it)
>
>
>
>visit



I can not find this in the Documents. Would some one either re-post, tell
me how to find it in the Documents, or send it to me?

----------------------------------------------------------------------------

-----
Welcome to the IDUG DB2-L list. To unsubscribe, go to the archives and home
page at http://www.idugdb2-l.org/archives/db2-l.html. From that page select
"Join or Leave the list". The IDUG DB2-L FAQ is at http://www.idugdb2-l.org
. The IDUG List Admins can be reached at [login to unmask email]
Find out the latest on IDUG conferences at
http://conferences.idug.org/index.cfm



The contents of this e-mail are intended for the named addressee only. It
contains information that may be confidential. Unless you are the named
addressee or an authorized designee, you may not copy or use it, or disclose
it to anyone else. If you received it in error please notify us immediately
and then destroy it.

----------------------------------------------------------------------------
-----

Welcome to the IDUG DB2-L list. To unsubscribe, go to the archives and home
page at http://www.idugdb2-l.org/archives/db2-l.html. From that page select
"Join or Leave the list". The IDUG DB2-L FAQ is at http://www.idugdb2-l.org
. The IDUG List Admins can be reached at [login to unmask email]
Find out the latest on IDUG conferences at
http://conferences.idug.org/index.cfm







CONFIDENTIALITY NOTICE: This e-mail message, including any attachments, is
for the sole use of the intended recipient(s) and may contain confidential
and privileged information or otherwise protected by law. Any unauthorized
review, use, disclosure or distribution is prohibited. If you are not the
intended recipient, please contact the sender by reply e-mail and destroy
all copies of the original message.

----------------------------------------------------------------------------
-----
Welcome to the IDUG DB2-L list. To unsubscribe, go to the archives and home
page at http://www.idugdb2-l.org/archives/db2-l.html. From that page select
"Join or Leave the list". The IDUG DB2-L FAQ is at http://www.idugdb2-l.org.
The IDUG List Admins can be reached at [login to unmask email] Find
out the latest on IDUG conferences at http://conferences.idug.org/index.cfm



The contents of this e-mail are intended for the named addressee only. It
contains information that may be confidential. Unless you are the named
addressee or an authorized designee, you may not copy or use it, or disclose
it to anyone else. If you received it in error please notify us immediately
and then destroy it.

---------------------------------------------------------------------------------
Welcome to the IDUG DB2-L list. To unsubscribe, go to the archives and home page at http://www.idugdb2-l.org/archives/db2-l.html. From that page select "Join or Leave the list". The IDUG DB2-L FAQ is at http://www.idugdb2-l.org. The IDUG List Admins can be reached at [login to unmask email] Find out the latest on IDUG conferences at http://conferences.idug.org/index.cfm

Carl Nelson

Re: REQUEST FOR - REXX CAF ROUTINE
(in response to David Seibert)
Thanks. The DSNTRACE showed 00F30034. I can resolve this.

Now for this next issue...
This is the code that I have for SQL codes.

SQLC = D2X(SQLCODE,8)
SQLC = X2C(SQLC)
SQLCA = 'SQLCA 'X2C(00000088)SQLC||X2C(0000)||COPIES(' ',78)
SQLCA = SQLCA||COPIES(X2C(00),24)COPIES(' ',16)
TIAR_MSG = X2C(0190)COPIES(' ',400)
TEXT_LEN = X2C(00000050)
ADDRESS ATTCHPGM 'DSNTIAR SQLCA TIAR_MSG TEXT_LEN'
SAY SUBSTR(TIAR_MSG,4,400)

It does not fill in all the blanks. It shows only this. Appears that my
code above is not complete. What am I missing in the above code?

DSNT408I SQLCODE = -922, ERROR: AUTHORIZATION FAILURE: ERROR. REASON
DSNT415I SQLERRP = SQL PROCEDURE DETECTING ERROR

I found some code in SDSNSAMP(DSN8BP3) but I'm not sure how to covert that
to REXX.

Thanks,
Carl Nelson





"Seibert, Dave"
<[login to unmask email] To: [login to unmask email]
PUWARE.COM> cc:
Sent by: DB2 Data Subject: Re: [DB2-L] REQUEST FOR - REXX CAF ROUTINE
Base Discussion
List
<[login to unmask email]
ORG>


01/19/2005 08:19
AM
Please respond to
DB2 Database
Discussion list
at IDUG






Hello Carl,

There should be a reason code accompanying the -924.
What is it?

In my experience, -924 errors have been environmental. In compiled
programs,
this has been from a bad linkedit. That's obviously not the case with your
Rexx code. It could be an incomplete install of the Rexx interface.
I think I may have seen -924 when the subsystem you're attempting
connection
to is not up or not up on your LPAR.

The reascon code should provide further debugging assistance. Did you take
James's suggestion about DSNTRACE?
Any help there?

Dave


-----Original Message-----
From: DB2 Data Base Discussion List [mailto:[login to unmask email] On Behalf
Of Carl Nelson
Sent: Tuesday, January 18, 2005 2:28 PM
To: [login to unmask email]
Subject: Re: [DB2-L] REQUEST FOR - REXX CAF ROUTINE


I need to run some SQL. I have been doing this successfully on my other
LPARs but ran into problems on an LPAR using CAF. I did not know if I
needed to change my call or if this was a problem with the REXX set up. The
manual made no distinction as to CAF or TSO. Does it make a difference?
Should this work for CAF?

SUBCOM DSNREXX
IF RC THEN DO
S_RC = RXSUBCOM('ADD','DSNREXX','DSNREXX')
END
ADDRESS DSNREXX
'CONNECT ' SUBSYS

Error messages:
DSNT408I SQLCODE = -924, ERROR: DB2 CONNECTION INTERNAL ERROR, , ,
DSNT415I SQLERRP = SQL PROCEDURE DETECTING ERROR
and
DSNT408I SQLCODE = -923, ERROR: CONNECTION NOT ESTABLISHED: DB2 , REASON ,
, TYPE , NAME
DSNT415I SQLERRP = SQL PROCEDURE DETECTING
ERROR


Thanks,
Carl Nelson





"Seibert, Dave"
<[login to unmask email] To:
[login to unmask email]
PUWARE.COM> cc:
Sent by: DB2 Data Subject: Re: [DB2-L]
REQUEST
FOR - REXX CAF ROUTINE
Base Discussion
List
<[login to unmask email]
ORG>


01/18/2005 11:30
AM
Please respond to
DB2 Database
Discussion list
at IDUG






Hey Carl,

What do you wish to do with Rexx?

You can probably do it via the DSNREXX interface that is now part of the
DB2
product. Info is in the SQL & Appl Pgming Guide.

Dave


-----Original Message-----
From: DB2 Data Base Discussion List [mailto:[login to unmask email] On Behalf
Of Carl Nelson
Sent: Tuesday, January 18, 2005 11:20 AM
To: [login to unmask email]
Subject: Re: [DB2-L] REQUEST FOR - REXX CAF ROUTINE


I can not find this in the DB2-L. Would some one send me an example of
REXX
calling DB2 via CAF or repost this.




On Fri, 11 May 2001 08:25:37 +0200, Max Scarpa <[login to unmask email]> wrote:

>Hi Roger
>
>I post in DB2-L documents a REXX exec with CAF (DSNALI) call to
>connect to a DB2 subsys to use IFI.
>
>Tale a look if this 'inutility' may be useful.
>
>Regards
>
>Max Scarpa
>
>DB2 sysprog (believe it)
>
>
>
>visit



I can not find this in the Documents. Would some one either re-post, tell
me how to find it in the Documents, or send it to me?

----------------------------------------------------------------------------


-----
Welcome to the IDUG DB2-L list. To unsubscribe, go to the archives and home
page at http://www.idugdb2-l.org/archives/db2-l.html. From that page select
"Join or Leave the list". The IDUG DB2-L FAQ is at http://www.idugdb2-l.org
. The IDUG List Admins can be reached at [login to unmask email]
Find out the latest on IDUG conferences at
http://conferences.idug.org/index.cfm



The contents of this e-mail are intended for the named addressee only. It
contains information that may be confidential. Unless you are the named
addressee or an authorized designee, you may not copy or use it, or
disclose
it to anyone else. If you received it in error please notify us immediately
and then destroy it.

----------------------------------------------------------------------------

-----

Welcome to the IDUG DB2-L list. To unsubscribe, go to the archives and home
page at http://www.idugdb2-l.org/archives/db2-l.html. From that page select
"Join or Leave the list". The IDUG DB2-L FAQ is at http://www.idugdb2-l.org
. The IDUG List Admins can be reached at [login to unmask email]
Find out the latest on IDUG conferences at
http://conferences.idug.org/index.cfm







CONFIDENTIALITY NOTICE: This e-mail message, including any attachments, is
for the sole use of the intended recipient(s) and may contain confidential
and privileged information or otherwise protected by law. Any unauthorized
review, use, disclosure or distribution is prohibited. If you are not the
intended recipient, please contact the sender by reply e-mail and destroy
all copies of the original message.

----------------------------------------------------------------------------

-----
Welcome to the IDUG DB2-L list. To unsubscribe, go to the archives and home
page at http://www.idugdb2-l.org/archives/db2-l.html. From that page select
"Join or Leave the list". The IDUG DB2-L FAQ is at http://www.idugdb2-l.org
.
The IDUG List Admins can be reached at [login to unmask email]
Find
out the latest on IDUG conferences at http://conferences.idug.org/index.cfm



The contents of this e-mail are intended for the named addressee only. It
contains information that may be confidential. Unless you are the named
addressee or an authorized designee, you may not copy or use it, or
disclose
it to anyone else. If you received it in error please notify us immediately
and then destroy it.

---------------------------------------------------------------------------------

Welcome to the IDUG DB2-L list. To unsubscribe, go to the archives and home
page at http://www.idugdb2-l.org/archives/db2-l.html. From that page select
"Join or Leave the list". The IDUG DB2-L FAQ is at http://www.idugdb2-l.org
. The IDUG List Admins can be reached at [login to unmask email]
Find out the latest on IDUG conferences at
http://conferences.idug.org/index.cfm







CONFIDENTIALITY NOTICE: This e-mail message, including any attachments,
is for the sole use of the intended recipient(s) and may contain confidential
and privileged information or otherwise protected by law. Any unauthorized
review, use, disclosure or distribution is prohibited. If you are not the
intended recipient, please contact the sender by reply e-mail and destroy
all copies of the original message.

---------------------------------------------------------------------------------
Welcome to the IDUG DB2-L list. To unsubscribe, go to the archives and home page at http://www.idugdb2-l.org/archives/db2-l.html. From that page select "Join or Leave the list". The IDUG DB2-L FAQ is at http://www.idugdb2-l.org. The IDUG List Admins can be reached at [login to unmask email] Find out the latest on IDUG conferences at http://conferences.idug.org/index.cfm

James Campbell

Re: REQUEST FOR - REXX CAF ROUTINE
(in response to Carl Nelson)
http://www.idugdb2-l.org/adminscripts/wa.exe?A2=ind0008A&L=DB2-L&P=R9404&I=-
3
with a minor error corrected in
http://www.idugdb2-l.org/adminscripts/wa.exe?A2=ind0307C&L=DB2-L&P=R6273&I=-
3

James Campbell

On Wed, 19 Jan 2005 14:24:55 -0500, Carl Nelson <[login to unmask email]>
wrote:

>Thanks. The DSNTRACE showed 00F30034. I can resolve this.
>
>Now for this next issue...
>This is the code that I have for SQL codes.
>
>SQLC = D2X(SQLCODE,8)
>SQLC = X2C(SQLC)
>SQLCA = 'SQLCA 'X2C(00000088)SQLC||X2C(0000)||COPIES(' ',78)
>SQLCA = SQLCA||COPIES(X2C(00),24)COPIES(' ',16)
>TIAR_MSG = X2C(0190)COPIES(' ',400)
>TEXT_LEN = X2C(00000050)
>ADDRESS ATTCHPGM 'DSNTIAR SQLCA TIAR_MSG TEXT_LEN'
>SAY SUBSTR(TIAR_MSG,4,400)
>
> It does not fill in all the blanks. It shows only this. Appears that my
>code above is not complete. What am I missing in the above code?
>
>DSNT408I SQLCODE = -922, ERROR: AUTHORIZATION FAILURE: ERROR. REASON
>DSNT415I SQLERRP = SQL PROCEDURE DETECTING ERROR
>
>I found some code in SDSNSAMP(DSN8BP3) but I'm not sure how to covert that
>to REXX.
>
>Thanks,
>Carl Nelson
>

---------------------------------------------------------------------------------
Welcome to the IDUG DB2-L list. To unsubscribe, go to the archives and home page at http://www.idugdb2-l.org/archives/db2-l.html. From that page select "Join or Leave the list". The IDUG DB2-L FAQ is at http://www.idugdb2-l.org. The IDUG List Admins can be reached at [login to unmask email] Find out the latest on IDUG conferences at http://conferences.idug.org/index.cfm