Re: How to move one file record format to another

[Jim Minisce <jminisce@xxxxxxxxx>]

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.