RE: Update or delete without prior input operation

Also, immediately after the READE, you need to checking for end of file
again (assuming you are wanting to read a new record after chaining first).

Michael Schutte



                                                                           
             "Holden Tommy"                                                
             <Tommy.Holden@hca                                             
             healthcare.com>                                            To 
             Sent by:                  "RPG programming on the AS400 /     
             rpg400-l-bounces@         iSeries" <rpg400-l@xxxxxxxxxxxx>    
             midrange.com                                               cc 
                                                                           
                                                                   Subject 
             05/10/2006 02:25          RE: Update or delete without prior  
             PM                        input operation                     
                                                                           
                                                                           
             Please respond to                                             
              RPG programming                                              
              on the AS400 /                                               
                  iSeries                                                  
             <rpg400-l@midrang                                             
                  e.com>                                                   
                                                                           
                                                                           




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?


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