Re: Skip reading locked record to next record

And what if the record is locked by a user leaving their screen signed on? This
could loop for hours and hours, and kill your machine in the process! If the
file had a unique key what you could do is, read the file with NO lock, to
retrieve the key of the record ni question. Then chain to the file with this
key, and if the record is locked SETGT on the key, and go back to the initial
read with NO lock. Without a unique key this method would need some tweaking.
If order didn't matter you could use the same approach but use the RRN to
reposition.




William Corbett <corbett@asresources.com>@INTERNET@midrange.com> on 06/07/2001
13:35:52
Please respond to RPG400-L <RPG400-L@midrange.com>@INTERNET
Sent by: owner-rpg400-l <owner-rpg400-l@midrange.com>
To: rpg400-l <rpg400-l@midrange.com>@INTERNET
cc:

Subject: Re: Skip reading locked record to next record

Dougl,
How about wrapping the Read in a DOW "Locked" loop

Like:
C                     READ RZUSSPV                3433

C           *IN33     DOWEQ*OFF
C                     MOVE 'LTL'     SPAPPL
C                     UPDATRZUSSPV
 * skip locked recs
C                     MOVE *ON       *IN34
C           *IN34     DOWEQ*ON
C                     READ RZUSSPV                3433
C                     ENDDO
*-----------
C                     ENDDO

C                     MOVE *ON       *INLR

Response to:
I am having a problem of skip reading the locked
record usring RPG III programming and read the next
sequential record. Anyone can help ?

  The belowed is the example :
- --------------------------------------------------
FZUSSPV  UF  E           K        DISK
C                     READ RZUSSPV                3433

C           *IN33    DOWEQ'0'
C                     MOVE 'LTL'     SPAPPL
C                     UPDATRZUSSPV
C                     READ RZUSSPV                3433
C                     ENDDO
C                     MOVE '1'       *INLR

- ----------------------------------------------------

Question :
If indicator 34 is ON , how to I skip the locked
record and read the next sequential record ?

Thank you.

AS/Resources, Inc.
William A.(Tony) Corbett
IBM Certified Specialist - AS/400 Developer
http://www.asresources.com
corbett@asresources.com
404-784-4737


+---
| This is the RPG/400 Mailing List!
| To submit a new message, send your mail to RPG400-L@midrange.com.
| To subscribe to this list send email to RPG400-L-SUB@midrange.com.
| To unsubscribe from this list send email to RPG400-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---


+---
| This is the RPG/400 Mailing List!
| To submit a new message, send your mail to RPG400-L@midrange.com.
| To subscribe to this list send email to RPG400-L-SUB@midrange.com.
| To unsubscribe from this list send email to RPG400-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---