RE: Question on SQL and date fields

Lynda,

I'm not 100% sure but I believe the fetch doesn't move beyond the record in 
error.  When you come back through the DO loop it's positioned at the same 
place.

Rick

-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of Lynda Eland
Sent: Tuesday, May 30, 2006 2:45 PM
To: rpg400-l@xxxxxxxxxxxx
Subject: Question on SQL and date fields

I have an embedded SQL Subfile program that it sending a
SQLCOD of -181. This is the value in date, time or timestamp
field not valid error. It loads the 1st page but then sends a
no records found on subsequent pages. Depending where I put
in a check to look for -181 it just keeps reprocessing the
last record it read or only just doesn't go past the first page.
  
  c/Exec Sql                                                 
         
c+                  FETCH RELATIVE :w@ReadBkwd FROM T1 INTO :@@CmDfsp
c/End-Exec                                                           
 * If FETCH RELATIVE goes beyond BOF, reset SQLCOD to Zero           
c                   If        SQLCOD = 100                           
c                             Or SQLCOD = -181                       
c                   Eval      SQLCOD = *Zeros                        
c                   EndIf                                            
  Here is only lists the 1st page.
  
  c                   Do        w@ReadFrwd                   
c/Exec Sql                                                 
c+                  FETCH T1 INTO :@@CmDfsp                
c/End-Exec                                                 
c                   If        SQLCOD = *Zeros              
c                             Or SQLCOD = -181             
c                   ExSr      $MoveWrtS1                   
c                   ElseIf    SQLCOD = 100                 
c                   Eval      In34SflEnd = *On             
c                   Leave                                  
c                   EndIf                                  
c                   EndDo                                  
  Here just keeps repeating the same last record over and over.
  Any help would be greatly appreciated.
  Thanks,
  Lynda 

      
---------------------------------
Blab-away for as little as 1¢/min. Make  PC-to-Phone Calls
using Yahoo! Messenger with Voice.
--
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.

Privileged and Confidential.  This e-mail, and any attachments there to, is 
intended only for use by the addressee(s) named herein and may contain 
privileged or confidential information.  If you have received this e-mail in 
error, please notify me immediately by a return e-mail and delete this e-mail.  
You are hereby notified that any dissemination, distribution or copying of this 
e-mail and/or any attachments thereto, is strictly prohibited.