RE: Embedded SQL codes

I always use 
SQLCOD   DOWEQ   0
(no errors)

-----Original Message-----
From: Gahlaut, Arvind [mailto:AGAHLA@henryschein.com]
Sent: Thursday, March 29, 2001 12:01 PM
To: 'RPG400-L@midrange.com'
Subject: RE: Embedded SQL codes


Try this Link
          http://publib.boulder.ibm.com/pubs/html/as400/online/v4r3eng.htm

and search for SQL



-----Original Message-----
From: Bartell, Aaron L. (TC) [mailto:ALBartell@taylorcorp.com]
Sent: Thursday, March 29, 2001 2:31 PM
To: 'RPG400-L@midrange.com'
Subject: Embedded SQL codes


I have an RPG pgm that has SQL in it and I am currently trying to find what
I need to check for the SQL code that gets returned after I do a read.  For
example:

C/EXEC SQL

C+ FETCH RELATIVE :LastRRN FROM C1 INTO :STATUS, :SND_ID, :SND_TYPE,

C+ :SND_BATCH, :SND_NUM_RC, :SND_NUM_DC, :SND_DATE, :SND_TIME, :REC_ID,

C+ :REC_DATE, :REC_TIME, :CurRRN

C/END-EXEC


C                   dow       (SQLCOD <> 100)

C/EXEC SQL                                                             
C+ FETCH NEXT FROM C1 INTO :STATUS, :SND_ID, :SND_TYPE, :SND_BATCH,    
C+ :SND_NUM_RC, :SND_NUM_DC, :SND_DATE, :SND_TIME, :REC_ID, :REC_DATE, 
C+ :REC_TIME, :CurRRN                                                  
C/END-EXEC                                                             
 *                                                                     
C                   ENDDO             

I got the above code from somebody else and am wondering where I can find a
list of possible SQL codes.  Anybody know?

Aaron Bartell                                 
+---
| This is the RPG/400 Mailing List!
| To submit a new message, send your mail to RPG400-L@midrange.com.
| To subscribe to this list send email to RPG400-L-SUB@midrange.com.
| To unsubscribe from this list send email to RPG400-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator:
david@midrange.com
+---
+---
| This is the RPG/400 Mailing List!
| To submit a new message, send your mail to RPG400-L@midrange.com.
| To subscribe to this list send email to RPG400-L-SUB@midrange.com.
| To unsubscribe from this list send email to RPG400-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator:
david@midrange.com
+---


Confidentiality Notice:

The information contained and/or attached to this electronic mail is 
intended only for the person(s) or entity(ies) to which it is addressed and 
may contain confidential and/or legally privileged material.  Any use 
whatsoever of this information by persons other than the intended recipient 
is prohibited.  If you received this in error, please contact the sender 
and delete the material from your computer. 


+---
| This is the RPG/400 Mailing List!
| To submit a new message, send your mail to RPG400-L@midrange.com.
| To subscribe to this list send email to RPG400-L-SUB@midrange.com.
| To unsubscribe from this list send email to RPG400-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---