× The internal search function is temporarily non-functional. The current search engine is no longer viable and we are researching alternatives.
As a stop gap measure, we are using Google's custom search engine service.
If you know of an easy to use, open source, search engine ... please contact support@midrange.com.


  • Subject: Re: DOW vs DOU - matching files
  • From: Neil Palmer <npalmer@xxxxxxxxxxx>
  • Date: Tue, 03 Jun 1997 20:39:42 -0400
  • Organization: NxTrend Technology - Canada

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   *
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *


As an Amazon Associate we earn from qualifying purchases.

This thread ...

Replies:

Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

This mailing list archive is Copyright 1997-2024 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].

Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.