RE: Update or delete without prior input operation -- RPG400-L

 The READE operation retrieves the next sequential record from a full
procedural file (identified by an F in position 18 of the file
description specifications) if the key of the record matches the search
argument. If the key of the record does not match the search argument,
an EOF condition occurs, and the record is not returned to the program.
An EOF condition also applies when end of file occurs. 

The search argument, search-arg, identifies the record to be retrieved.
The search-arg operand is optional in traditional syntax but is required
in free-form syntax. search-arg can be: 

That's directly from IBM  
http://publib.boulder.ibm.com/iseries/v5r2/ic2924/books/c092508430.htm#H
DRZZREADE


Thanks,
Tommy Holden


-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of
Michael_Schutte@xxxxxxxxxxxx
Sent: Wednesday, May 10, 2006 1:32 PM
To: RPG programming on the AS400 / iSeries
Subject: RE: Update or delete without prior input operation

Question...  Don't you need to use a KEY to use the READE?  What's it
reading equal to?

If I'm wrong about the above, I know that once you delete the record,
you
no longer have a lock on the file to be able to update it.  You are
deleting then updating immediately after thus causing the program.

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.