RE: Input Secondary

This one has a primary, no matching records.  I have to replace the internal 
primary with a new external join logical (no, not joined on the secondary 
file).   


The whole program is less than 40 lines of code and already I want to run away 
from it screaming.  What kind of sick, sadistic, twisted mind ever came up with 
RPGII in the first place?  :-)
 


-----Original Message-----
    From: "Jeff Crosby"<jlcrosby@xxxxxxxxxxxxxxxx>
    Sent: 12/5/05 2:18:25 PM
    To: "'RPG programming on the AS400 / iSeries'"<rpg400-l@xxxxxxxxxxxx>
    Subject: RE: Input Secondary
    
    > 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....
    
    It's been a while, but here goes . . .
    
    Is there a primary file?
    
    Does it use matching records?  If so, that means it will read primary/all
    secondary files 'simultaneously' and they must be sorted in order.
    
    If no matching records, it will read all records from the primary, then all
    records from the first secondary file defined, then all records from the
    next secondary file defined, etc, until the primary and all secondary files
    reach EOF, then LR gets set on.
    
    Quite frankly, I have only ever used a secondary file when there was a
    primary and matching records.  I have never used a secondary file without
    matching records.  And I haven't written a new one of those in at least 15
    years.
    
    -- 
    Jeff Crosby
    Dilgard Frozen Foods, Inc.
    P.O. Box 13369
    Ft. Wayne, IN 46868-3369
    260-422-7531
    
    The opinions expressed are my own and not necessarily the opinion of my
    company.  Unless I say so.
    
    
    -- 
    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.