Re: RPG Cycle

[tomh@xxxxxxxxx]

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





fkolmann@revlon.com.au
02/17/00 06:21 PM

 
        To:     RPG400-L@midrange.com
        cc: 
        Subject:        Re: RPG Cycle



OK.  Still the RPG cycle is 'supposed'  do handle all READS WRITES UPDATEs 

in hidden
manner.
The fact that the file IO in NOT specifically coded for is what confuses 
most
beginners.
Anyhow recently I had this case,
Order Header File (Keyed by Order number)
Order Detail File  (Keyed by Order Number,  Line Number)
Invoice Detail File (Keyed by Order Number , Line Number)
I asked a programmer to use Control breaks and MR to find
mismatched Headers and also mismatches between the Order Lines and Invoice 

Lines,
we had a problem using MR to find orphaned Invoice Detail Lines, we had to 

write
programs
the first using the Header as a primary file, the second used the Detail 
as 
the
Primary file.
Perhaps you have a suggestion how we can do this with one program.



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