Re: Skip reading locked record to next record

["William Corbett" <corbett@xxxxxxxxxxxxxxx>]

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