RE: Update or delete without prior input operation

If you check this in debug I'm sure you'll see that the error is
occurring on the UPDATE statement & not the DELETE....after the DELETE
is executed there IS no record locked by an input operation... 


Thanks,
Tommy Holden


-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of Douglas W. Palme
Sent: Wednesday, May 10, 2006 1:21 PM
To: rpg400-l@xxxxxxxxxxxx
Subject: Update or delete without prior input operation

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?