Define two data structures with the EXTNAME key word:

D wFileA DS EXTNAME(Format1)
D wFileB DS EXTNAME(Format2)

C* If chain is successful,
C if wFileA = wFileB
C* delete record from file 2.

There is no need to load either DS. That is done automatically

On 5/1/2012 11:16 AM, John McKee wrote:
I posted this (I think - never get emails from posting) to the RPG
list. Never received a reply.

I have two files. Different names, formats, and field names.

One is produced early in the day.

I need to remove records from the second file that are identical to
those in the first file. Thus, second file only has new and changed

I am stuck on how to set up a comparison of the entire record from
each file. I know I have done this, many years ago, but my brain is
just too foggy. I just don't want to have an IF with 90+ field

Logic is simple - read file 2, attempt to chain to file 1. No chain -
a new record. If chain is successful, compare the two records. If
same, delete record from file 2.

I can't directly compare the record formats. How do I define a single
field over each record?

I tried I-Specs - File name followed by single field name..

Dumb question. Thanks for a nudge.

John McKee

This thread ...


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

This mailing list archive is Copyright 1997-2020 by 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].