Re: DOW vs DOU - matching files

[rbbaird@xxxxxxxxxxx (Rick Baird)]

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.

"but how does it know?.... How do I know it knows?"
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
* 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   *
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *