RE: Skip reading locked record to next record -- RPG400-L

If you don't want any error processing, this is pretty easy.  The biggest
problem is that the only way to reset the %EOF on the file is with another
successful read.

Key     setll           file
        Dou             %eof(file)
Key     reade(e)        file
        If              not %eof(file) and not %error
        (logic here)
        endif
        enddo

This is standard technique in our system (Bruce J. in LA uses it).


Reeve Fritchman
Transportation Technology Group, Inc.
4915 S. Westshore Boulevard
Tampa, Florida  33611
reeve@transtechgroup.com (e-mail)
reeve@ltl400.com (e-mail)
813-831-8574 (voice)
800-NEED-LTL (voice)
813-832-6391 (fax)


Here's Guthrie (otherwise known as the "Yellow Peril"), the yellow
lab/golden retriever mix I'm raising for www.CanineCompanions.org.
This is Jake, my Norwich Terrier.  He's 3 year old and is an agility dog.
Here's Blake, Jake's littermate.  She's a certified therapy dog.
Finally, the canine insanity three-pack...


 -----Original Message-----
From:   owner-rpg400-l@midrange.com [mailto:owner-rpg400-l@midrange.com]  On
Behalf Of DRittenberg@pacerintl.com
Sent:   Friday, July 06, 2001 1:39 PM
To:     RPG400-L@midrange.com
Subject:        Re: Skip reading locked record to next record


In the below routine, what if the first record read is locked?



                    "William Corbett"
                    <corbett@asresour        To:     <rpg400-l@midrange.com>
                    ces.com>                 cc:
                    Sent by:                 Subject:     Re: Skip reading
locked record
                    owner-rpg400-l@mi        to next record
                    drange.com


                    07/06/01 09:07 AM
                    Please respond to
                    RPG400-L






And what if the record is locked by a user leaving their screen signed on?


Ok, Ok,  This SHOULD be the code, to account for EOF
This can't loop forever.  My first post would have looped forever, ON AN
EOF, not waiting.
If a user walks away from the record lock, this will just skip it.

C                     READ RZUSSPV                3433

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

C                     MOVE *ON       *INLR



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

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