Re: Error Handling in SQLRPGLE Programs

[BrgttHsr@xxxxxxx]

--
[ Picked text/plain from multipart/alternative ]
Hi Bob,

SQLCOD 1-99 are warnings
SQLCOD < 0   are SQL-Errors.

If I want to display a SQL-Error-Message, I use the following trick:
All SQL-Messages are in the QSQLMSG Message-File
The Message-Id of an SQL-Error is SQL + absolute value of SQLCOD.
(SQLCOD -302 --> 'SQL0302')

On the other hand I wouldn't use WHENEVER, i prefere a simple IF in my
RPG-Program:

C                   Do       *HiVal

C/EXEC SQL
C+ Fetch SqlSKR into :DS_SQLSK
c/END-EXEC

C                   if        SQLCOD      = 100
C                   leave
C                   endif

C                   if        SQLCOD      < 0
C                   eval      MsgId      = 'CPF9898'
C                   eval      MsgTxt    = RtvSqlMsg(SQLCOD)
C                   exsr     SndPgmMsg
C                   leave
C                   endif

I hope that helps

Birgitta Hauser