John,
Have you tried using external data structures? Each DS will contain the external file's field names and be populated when you read the file. Comparing the data structures to one another will do a full record comparison.
D structure1 E DS extname(FILE1)
D structure2 E DS extname(FILE2)
/free
// You do the things you need to do to get the records.
If (structure2 = structure1);
Delete FILE1RCD;
endif;
// Do what you need to.
/end-free
Gary Monnier
-----Original Message-----
From: midrange-l-bounces@xxxxxxxxxxxx [mailto:midrange-l-bounces@xxxxxxxxxxxx] On Behalf Of John McKee
Sent: Tuesday, May 01, 2012 9:16 AM
To: Midrange Systems Technical Discussion
Subject: Stupid question
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 records.
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 comparisons.
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 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,
visit:
http://lists.midrange.com/mailman/listinfo/midrange-l
or email: MIDRANGE-L-request@xxxxxxxxxxxx Before posting, please take a moment to review the archives at
http://archive.midrange.com/midrange-l.
midrange.com
