Re: How to move one file record format to another

Alan,

You can also do this:

*
FCustomerfile IF E K Disk Prefix('CUST.')
*
*
*
D CUST Ds Likerec(CustRec) Inz

When you do a chain or read on the customer file, the DS get populated.

Jim Minisce



----- Original Message ----
From: Alan Campin <alan0307d@xxxxxxxxx>
To: RPG programming on the IBM i / System i <rpg400-l@xxxxxxxxxxxx>
Sent: Wed, February 17, 2010 3:47:31 PM
Subject: Re: How to move one file record format to another

You need to put into a data structure which is qualified (LIKEREC) and then
use EVAL-CORR will move fields that are compatible.

On Wed, Feb 17, 2010 at 1:31 PM, Jack Tucky <jacktucky@xxxxxxxxx> wrote:

I recall there was a way to create a data structure to make one files
fields
to another using a data structure? I can't figure out how it's done.

Basically I have two files that have the same field, except a few are
different lengths. All signed/packed/character definitions match.

So we did this:

FFile1 uP E K DISK
f prefix(x_)
FFile2 if E K DISK

But then we have to eval each field to the other.

I remember that there is a way to setup a data structure so that all the
fields that are prefixed as X can automatically be put into the fields
without the prefix. Can someone show me how to do that? Thanks

Jack

--
This is the RPG programming on the IBM i / System i (RPG400-L) mailing list
To post a message email: RPG400-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/rpg400-l.