Re: RPG Cycle

When I suspect there are orphaned recordrs I use SQL:

Select * from detail where key is not in (select key from master)

Once the tables (files) are clean, I add Referencial Interity to keep
them that way.
_____________________________________________________________________________
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.
> 
> pcunnane@learningco.com wrote:
> 
> >      It quickly becomes a hair-splitting excercise, but splitting hairs is
> >      sometimes the most effective way to understand something in detail.
> >
> >      When you create an RPG program, the compiler inserts the cycle code.
> >      It's always there.  If you don't have a primary file, chunks of the
> >      cycle don't get executed (such as primary input, total output), but
> >      they are still there.  When the mainline of your code executes, it is
> >      the first cycle of the detail time calculations.  To prevent your
<snip>
-- 
  Raul A. Jager W.
Asuncion - Paraguay
+---
| 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
+---