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.
This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing
list To post a message email: MIDRANGE-L@xxxxxxxxxxxx To subscribe,
unsubscribe, or change list options,
or email: MIDRANGE-L-request@xxxxxxxxxxxx Before posting, please take
a moment to review the archives at