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