Re: DOW vs DOU - matching files

[Neil Palmer <npalmer@xxxxxxxxxxx>]

Rick Baird wrote:
> 
> Kahn, David wrote:
> >
> > Here's a standard problem in data processing. We need to match 2 files which
> > are read in ascending sequence by matching key and do not have duplicate
> > field names. We need to have processing for unmatched records from FILEA,
> ....
> 
> OOOOOhhhhhhhh Boy, am I gonna get flack for this......<G>
> 
> FFILEA   IP AE           K     DISK
> FFILEB   IS AE           K     DISK
> 
> IRECA      01
> I                                              KEYA1     M1
> I                                              KEYA2     M2
> IRECB      02
> I                                              KEYB1     M1
> I                                              KEYB2     M2
> 
> C                     SELEC
> 
> C           *INMR     WHEQ *ON
> C           *IN02     ANDEQ*ON
> C                     EXSR PRCAB
> 
> C           *INMR     WHEQ *OFF
> C           *IN01     ANDEQ*ON
> C                     EXSR PRCA
> 
> C           *INMR     WHEQ *OFF
> C           *IN02     ANDEQ*ON
> C                     EXSR PRCB
> C                     ENDSL
> 
> C           PRCA      BEGSR
>  *          <.... Process unmatched A ....>
> C                     ENDSR
>  *
> C           PRCB      BEGSR
>  *          <.... Process unmatched B ....>
> C                     ENDSR
>  *
> C           PRCAB     BEGSR
>  *          <.... Process matched A,B ....>
> C                     ENDSR
>  *
> 
> I know, it isn't a DOW.   Just thought I'd have a little fun.
> Also, this wouldn't work if both files were to be updated.  but a few
> minor changes and it could work.

Hey - I like it.  Nice, short, to the point, and EASY to understand.
AND - it must be structured code because I don't see a GOTO !   ;-)


-- 
... Neil Palmer                                      AS/400~~~~~      
... NxTrend Technology - Canada      ____________          ___  ~     
... Markham,  Ontario,  Canada       |OOOOOOOOOO| ________  o|__||=   
... Phone: (905) 731-9000 x238       |__________|_|______|_|______)   
... url:http://www.nxtrend.com        oo      oo   oo  oo   OOOo=o\   
... mailto:npalmer@nxtrend.com     ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
* This is the Midrange System Mailing List!  To submit a new message,   *
* send your mail to "MIDRANGE-L@midrange.com".  To unsubscribe from     *
* this list send email to MAJORDOMO@midrange.com and specify            *
* 'unsubscribe MIDRANGE-L' in the body of your message.  Questions      *
* should be directed to the list owner / operator: david@midrange.com   *
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *