Re: Stupid question

Booth,

Your sample is nearly identical to what I have. Difference is that
without the e in the external position, SEU won't allow ExtName. Says
keyword not allowed for a program described data structure. Put the
'e' there, and SEU is happy, compiler is happy. Just doesn't work
right.

John McKee

On Tue, May 1, 2012 at 2:17 PM, Booth Martin <booth@xxxxxxxxxxxx> wrote:

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

--
Booth Martin
802-461-5349
http://www.martinvt.com
--
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.