RE: Update or delete without prior input operation

You also have too many Read statements.

C     DVNDNO        CHAIN     PAYABLES       
C                   DOW       NOT %EOF       
C                   IF        DREFNO = PREFNO
C                   DELETE    PAYABLES       
C                   UPDATE    PAYABLES       
C                   ELSE                     
C     DVNDNO        READE     PAYABLES       
C                   ENDIF                    
C                   ENDDO                    
Have a great day.

Ed Murphy
Silverlake Support ex 176017
Jack Henry & Associates
663 West Highway 60
Monett, MO  65708
Phone: 800.299.4222  
Fax:     417.235.8886
Email:  emurphy@xxxxxxxxxxxxx 
 


-----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?