RE: Input Secondary

An interesting use of IP/IS that I used to see (in fact, just prior to
Y2K) was to have an options file be the IP file, and the 'main' date
file be IS. A read would be done from the IP file to get the 1 option
record, and then the program would process the IS file till EOF. Back
before the READ opcode...

> -------- Original Message --------
> Subject: Re: Input Secondary
> From: Jerry Adams <jerry@xxxxxxxxxxxxxxx>
> Date: Tue, December 06, 2005 8:21 am
> To: RPG programming on the AS400 / iSeries <rpg400-l@xxxxxxxxxxxx>
> 
> Shannon,
> 
> You're lucky in a way; I still have to maintain RPG II programs.  On the 
> other hand a couple of points:
> 
> 
> 1.  Secondary files and matching records are not limited to RPG II.  You 
> can still use both in RPG IV.
> 
> 
> 2.  Any version of RPG gives one reason to thank God they have the 
> cycle.  In a past life I had to write a COBOL program to, in essence, do 
> matching records - with level control breaks.  Wanna compare nightmares?
> 
> 
> 
>       * Jerry C. Adams
> *iSeries Programmer/Analyst
> B&W Wholesale Distributors, Inc.* *
> voice
>       615.893.8633x152
> fax
>       615.995.1201
> email
>       jerry@xxxxxxxxxxxxxxx <mailto:jerry@xxxxxxxxxxxxxxx>
> 
> 
> 
> Shannon O'Donnell wrote:
> 
> >Thank you, everyone!  I've learned more about input secondary files now than 
> >I ever wanted to know!  And I got down on my knees and thanked God that I 
> >don't ever have to program in RPG II anymore!
> >
> >
> >-----Original Message-----
> >    From: "Mark Allen"<allenmar@xxxxxxxxx>
> >    Sent: 12/5/05 2:31:18 PM
> >    To: "RPG programming on the AS400 / iSeries"<rpg400-l@xxxxxxxxxxxx>
> >    Subject: Re: Input Secondary
> >      Multi-file Processing with No Match Fields  When no match fields are 
> > used in multi-file processing, records are selected from one file at a 
> > time. When the records from one file are all processed, the records from 
> > the next file are selected. The files are selected in this order:       
> >       Primary file, if specified   
> >       Secondary files in the order in which they are described on the file 
> > description specifications. 
> >    
> >       
> >    
> >    
> >    Shannon O'Donnell <sodonnell@xxxxxxxxxxxxxxxxx> wrote:  I just came 
> > across an old clunker that uses an Inpit Secondary file. I have not seen 
> > one of these in about 17 years. Can someone who might have used one more 
> > recently give me a Readers Digest overview of how/why this is used? I coukd 
> > look it up of course, but if someone knows off the top of their head....
> >    
> >    
> >    TIA!
> >    
> >    -- 
> >    This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing 
> > list
> >    To post a message email: RPG400-L@xxxxxxxxxxxx
> >    To subscribe, unsubscribe, or change list options,
> >    visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
> >    or email: RPG400-L-request@xxxxxxxxxxxx
> >    Before posting, please take a moment to review the archives
> >    at http://archive.midrange.com/rpg400-l.
> >    
> >    
> >    
> >                     
> >    ---------------------------------
> >    Yahoo! Shopping
> >     Find Great Deals on Gifts at Yahoo! Shopping 
> >    -- 
> >    This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing 
> > list
> >    To post a message email: RPG400-L@xxxxxxxxxxxx
> >    To subscribe, unsubscribe, or change list options,
> >    visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
> >    or email: RPG400-L-request@xxxxxxxxxxxx
> >    Before posting, please take a moment to review the archives
> >    at http://archive.midrange.com/rpg400-l.
> >    
> >    
> >    
> >    
> >
> >  
> >
> 
> -- 
> This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing list
> To post a message email: RPG400-L@xxxxxxxxxxxx
> To subscribe, unsubscribe, or change list options,
> visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
> or email: RPG400-L-request@xxxxxxxxxxxx
> Before posting, please take a moment to review the archives
> at http://archive.midrange.com/rpg400-l.