Re: RPG Cycle

[Jim Langston <jlangston@xxxxxxxxxxxxxxxx>]

One way I did this one time...  Open the header as primary.
In *InzSr read the first record of each of the header and detail files.

Now, in the main line, you have a record from the cycle, check the
value of the Order Detail ord #.  Is the order number less than the header
order number?  If so, it's an orphan, report it.  Is it equal?  Then it's
fine, read the next Order Detail, and repeat until the order number of the
Order Detail is greater than the current order number of the header.

Do the same thing for the Invoice Detail file.

At *LR, cycle through the rest of the Order Detail and Invoice Details
and report them as orphans.

Regards,

Jim Langston

fkolmann@revlon.com.au wrote:

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