|
http://publib.boulder.ibm.com/infocenter/iseries/v5r3/topic/rzala/rzalac cl.htm#cc Thanks, Tommy Holden -----Original Message----- From: rpg400-l-bounces@xxxxxxxxxxxx [mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of Douglas W. Palme Sent: Wednesday, October 26, 2005 2:48 PM To: RPG programming on the AS400 / iSeries Subject: RE: embedded sql Where can I get a listing of what the various codes mean Matt? On Wed, 26 Oct 2005 13:39:59 -0600, Tyler, Matt wrote > No it means you attempted to put data into a field that is shorter > than the actual data length from the data base. Use SUBSTR() in the > query or make the host field bigger. This is a warning only, the > record was still passed to your program from the database. > > Thank you, > Matt Tyler > WinCo Foods, LLC > mattt@xxxxxxxxxxxxxx > > -----Original Message----- > From: rpg400-l-bounces@xxxxxxxxxxxx > [mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of Douglas W. Palme > Sent: Wednesday, October 26, 2005 1:35 PM > To: RPG programming on the AS400 / iSeries > Subject: RE: embedded sql > > When I run the query in interactive mode it runs fine and returns the > correct number of results....however after the fourth record is read > in the program it generates an sqlstt code of '01004' which appears to > be some kind of sort error. Here is the code: > > C NOCATEGORY BEGSR > > C/EXEC SQL > C+ DECLARE NOCAT CURSOR > C+ FOR SELECT > C+ ILNSOLDTO, > C+ ICMNAME, > C+ ILNSLSMN, > C+ SUM(ILNEPRICE), > C+ SUM(ILNEUAVCST), > C+ SUM(ILNEPRICE) - SUM(ILNEUAVCST) AS MARGIN > C+ FROM CLASSCATLF > C+ WHERE > C+ ILNINVDATE >= :DSDATE AND > C+ ILNINVDATE <= :DEDATE AND > C+ ITMCLASS = :DCLASS > C+ GROUP BY > C+ ILNSLSMN, ILNSOLDTO, ICMNAME > C+ ORDER BY > C+ ILNSLSMN, > C+ MARGIN DESC > C/END-EXEC > > C/EXEC SQL > C+ OPEN NOCAT > C/END-EXEC > C WRITE HEADINGS > C DOW sqlstt = SQLSTATEOK > C/EXEC SQL > C+ > C+ FETCH NOCAT > C+ INTO :DCUSTNO, :DNAME, :DSLS, :DSALES, :DCOST, :DMARGIN > C/END-EXEC > C IF *IN99 = *ON > ... > > On Wed, 26 Oct 2005 10:20:24 -0500, Holden Tommy wrote > > You can check the SQLCOD or the SQLSTT values to determine if the > > statement was successful or not. > > > > SQLCOD=*zeros = success > > SQLCOD=100 = end of cursor(EOF) > > > > For SQLSTT values you can find most of them at > > http://wiki.midrange.com/index.php/SQLSTATE_Constants > > > > Thanks, > > Tommy Holden > > > > -----Original Message----- > > From: rpg400-l-bounces@xxxxxxxxxxxx > > [mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of Douglas W. Palme > > Sent: Wednesday, October 26, 2005 10:09 AM > > To: RPG Group > > Subject: embedded sql > > > > When using embedded SQL in RPG, I need to know when there are no > > more records to process from the query, I know that I can use a > > count(*) statement but that seems completely inefficient. > > > > Is there not an SQL variable that I can use to determine that the > SELECT > > INTO statement has no more records to process? > > > > I checked the embedded SQL programming guide but did not find > > anything relevant to RPG > > > > If you bought it, it was hauled by a truck - somewhere, sometime. > > > > -- > > This is the RPG programming on the AS400 / iSeries (RPG400-L) > > mailing list To post a message email: RPG400-L@xxxxxxxxxxxx To > > subscribe, unsubscribe, or change list options, > > visit: http://lists.midrange.com/mailman/listinfo/rpg400-l > > or email: RPG400-L-request@xxxxxxxxxxxx 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@xxxxxxxxxxxx To > > subscribe, unsubscribe, or change list options, visit: > > http://lists.midrange.com/mailman/listinfo/rpg400-l or email: > > RPG400- L-request@xxxxxxxxxxxx Before posting, please take a moment > > to review the archives at http://archive.midrange.com/rpg400-l. > > If you bought it, it was hauled by a truck - somewhere, sometime. > > -- > > This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing > list To post a message email: RPG400-L@xxxxxxxxxxxx To subscribe, > unsubscribe, or change list options, > visit: http://lists.midrange.com/mailman/listinfo/rpg400-l > or email: RPG400-L-request@xxxxxxxxxxxx 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@xxxxxxxxxxxx To subscribe, > unsubscribe, or change list options, visit: > http://lists.midrange.com/mailman/listinfo/rpg400-l or email: RPG400- > L-request@xxxxxxxxxxxx Before posting, please take a moment to review > the archives at http://archive.midrange.com/rpg400-l. If you bought it, it was hauled by a truck - somewhere, sometime. -- This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing list To post a message email: RPG400-L@xxxxxxxxxxxx To subscribe, unsubscribe, or change list options, visit: http://lists.midrange.com/mailman/listinfo/rpg400-l or email: RPG400-L-request@xxxxxxxxxxxx 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-2024 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.
midrange.com
