RE: SQL Whenver

["Tucker Gerry" <Gerry.Tucker@xxxxxxxxxxxxxxx>]

You need to place a colon before the label ERRHNDLR in you SQL statement, i.e:

c/exec sql
c+ WHENEVER SQLERROR GOTO :ERRHNDLR
c/end-exec

Regards,
 
Gerry Tucker
Senior Analyst Programmer
Technicolor Distribution Services
Wembley, U.K.

"All my life I wanted to be somebody.
Now I see that I should have been more specific."





>-----Original Message-----
>From: MWalter@hanoverwire.com [mailto:MWalter@hanoverwire.com]
>Sent: 13 January 2003 14:50
>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.
>