Good News Everybody!
The new search engine is LIVE!
Please report any problems to david (at) midrange.com.
|
midrange.com
What level of OS are you and what is the level of your DB group PTF?
Perhaps it is something that has been fixed by existing PTFs.
Bob
Bob Slaney/Atlanta/IBM@IBMUS (Lotus Notes)
Internet id: rjslaney@us.ibm.com
Tieline 445-7374 Direct (770)835-7374
FAX tie 445-7579 Direct (770)835-7579
AMS Americas Learning Development
iSeries Courseware Developer
IBM Corp.
3200 Windy Hill Road
Atlanta, GA 30339
WG07C13
"Chevalier, Rick"
<Rick.Chevalier@ameri To: "'RPG programming
on the AS400 / iSeries'" <rpg400-l@midrange.com>
credit.com> cc:
Sent by: Subject: RE: SQL Whenver
rpg400-l-bounces@midr
ange.com
01/13/2003 11:28 AM
Please respond to RPG
programming on the
AS400 / iSeries
Mark,
I just added these lines of code to an existing SQLRPGLE program and it
compiled fine.
* Check for error
c/Exec SQL
c+ Whenever SQLError goto ErrTag
c/End-Exec
.
.
.
c ErrTag Tag
According to the SQL reference manual a colon prior to the tag name in the
whenever statement is optional.
I really don't see a difference in my code and yours. Sorry. It does look
like the error is somewhere else though.
Rick
-----Original Message-----
From: MWalter@hanoverwire.com [mailto:MWalter@hanoverwire.com]
Sent: Monday, January 13, 2003 8:50 AM
To: rpg400-l@midrange.com
Subject: SQL Whenver
Hello all,
Could someone let me in on the secret of using WHENEVER SQLERROR in a RPGLE
subprocedure. I have the following code:
c/exec sql
c+ WHENEVER SQLERROR GOTO ERRHNDLR
c/end-exec
.... Stuff that builds a data structure
c c ERRHNDLR TAG
c c eval errorId = 'HWC0215'
c eval datacount = 0
c return *null
When I try to compile I get a RNF7030 on the ERRHNDLR and an RNF7043
(Target is not a label) error.
Thanks,
Mark
Mark Walter
Sr. Programmer/Analyst
Hanover Wire Cloth a div of CCX, Inc.
mwalter@hanoverwire.com
http://www.hanoverwire.com
717.637.3795 Ext.3040
/"\
\ /
X
/ \
_______________________________________________
This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing list
To post a message email: RPG400-L@midrange.com
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo.cgi/rpg400-l
or email: RPG400-L-request@midrange.com
Before posting, please take a moment to review the archives
at http://archive.midrange.com/rpg400-l.
_______________________________________________
This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing list
To post a message email: RPG400-L@midrange.com
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo.cgi/rpg400-l
or email: RPG400-L-request@midrange.com
Before posting, please take a moment to review the archives
at http://archive.midrange.com/rpg400-l.
As an Amazon Associate we earn from qualifying purchases.
This mailing list archive is Copyright 1997-2026 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].
Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.
