Re: RPG Cycle

Using the cycle with just a primary file is easy.  Using it with a primary
and a secondary file with MR is somewhat more difficult, especially when you
want to do updates as well.  But when you start using more than one
secondary file with MR, things start to get really confusing.  In your
example an invoice record with a matching detail record, but without a
matching header, would slip through: *INMR is on because of the match in
DETAIL.

Joep Beckeringh


----- Original Message -----
From: <tomh@simas.com>
To: <rpg400-l@midrange.com>
Sent: Friday, February 18, 2000 3:25 AM
Subject: Re: RPG Cycle


> I've not tested this... It uses the cycle for all I/O, and to end the
> program when all files have been processed completely.
>
> FHEADER    IP  E        K DISK
> FDETAIL       IS  E        K DISK
> FINVOICE     IS  E        K DISK
>
> IHEADER    NS  01
> I                                               HORDER    L2M1
> IDETAIL        NS  02
> I                                               DORDER    L2M1
> I                                               DLINE           L1
> IINVOICE      NS  03
> I                                               IORDER   L2M1
> I                                               ILINE          L1
>
> C  NMR 03         EXSR IORPHAN
> C      IORPHAN   BEGSR
> C*   Put code to handle orphaned invoices here
> C                              ENDSR


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