Re: Update or delete without prior input operation

I'd guess it's because your UPDATE is right after a DELETE.

BTW, with that code are you skipping the first matching record?  First it 
chains (which reads a record), then it reade's another record as soon as 
the loop starts.  Or am I misunderstanding how that works?  Normally I 
just do a SETLL, READE prior to the loop, and then another READE just 
before the ENDDO.



Michael Jacobsen
System Programmer, IT
First Financial Bank, NA
(812)  238-6319

rpg400-l-bounces@xxxxxxxxxxxx wrote on 05/10/2006 02:20:53 PM:

> I am having a bit of a problem this morning with the following code:
> 
> C     DVNDNO        CHAIN     PAYABLES 
> C                   DOW       NOT %EOF 
> C                   READE     PAYABLES 
> C                   IF        DREFNO = PREFNO
> C                   DELETE    PAYABLES 
> C                   UPDATE    PAYABLES 
> C                   ELSE 
> C                   READE     PAYABLES 
> C                   ENDIF 
> C                   ENDDO 
> 
> I am chaining to the file with no problem and I need to stay within the 
key
> (which is why I am using the reade), I am checking for a specific refno 
and
> if I find it I need to delete it, but the system is complaining that I 
have
> not performed an input operation....I would have thought the reade 
performed
> that, what is the proper way to handle this?
> 
> 
> -- 
> 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.
>