Re: Update or delete without prior input operation

Douglas - you have received a number of responses to your question.
Scott was correct with the combination of CHAIN and %EOF. (This is
something that  ALWAYS makes me sit and think)
Another way to code what you are looking for is:-

C     DVNDNO        SETLL     PAYABLES
C                   DOW       NOT %FOUND
C     DVNDNO        DELETE    PAYABLES
C                   ENDDO



Alan Shore

NBTY, Inc
(631) 244-2000 ext. 5019
AShore@xxxxxxxx



                                                                       
             "Douglas W.                                               
             Palme"                                                    
             <dpalme@xxxxxxxxx                                          To
             om>                       <rpg400-l@xxxxxxxxxxxx>         
             Sent by:                                                   cc
             rpg400-l-bounces@                                         
             midrange.com                                          Subject
                                       Update or delete without prior  
                                       input operation                 
             05/10/2006 02:20                                          
             PM                                                        
                                                                       
                                                                       
             Please respond to                                         
              RPG programming                                          
              on the AS400 /                                           
                  iSeries                                              
             <rpg400-l@midrang                                         
                  e.com>                                               
                                                                       
                                                                       




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.