Re: Skip reading locked record to next record

[STEVEN.J.RYAN@xxxxxxxxxxxx]

This is the easiest way

C                     READ RZUSSPV                3433

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








Dougl Jap <tlleow@yahoo.com> on 06/07/2001 14:41:23

Please respond to RPG400-L@midrange.com

To:   RPG400-L@midrange.com
cc:    (bcc: STEVEN J RYAN/DIAU)

Subject:  Skip reading locked record to next record




  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.




__________________________________________________
Do You Yahoo!?
Get personalized email addresses from Yahoo! Mail
http://personal.mail.yahoo.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
+---