Re: How do I rename a file's fields in RPG/400.

[Frank Kolmann <Frank.Kolmann@xxxxxxxxx>]

Did you try to rename the fields in the LF itself using the REMAME keyword?

Frank Kolmann


On 23/09/2021 2:42 am, dfreinkel@xxxxxxxxxxxxxxxxx wrote:
> I am not allowed to convert to ILE. Don't ask why. Some managers don't know
> the benefits.
>
>
> Darryl Freinkel
> A4G
> Telephone: 770.321.8562 Mobile: 678.355.8562
>
>       IOEFRTF1
> 5042
>       I              FTECC                           DSECC
> 5042
>       I              FTEYY                           DSEYY
> 5042
>       I              FTEMM                           DSEMM
> 5042
>       I              FTEDD                           DSEDD
> 5042
>       I              FTTCC                           DSTCC
> 5042
>       I              FTTYY                           DSTYY
> 5042
>       I              FTTMM                           DSTMM
> 5042
>       I              FTTDD                           DSTDD
> 5042
>       I              FTFPCT                          DSFPCT
> 5042
>       I              FTFPRF                          DSFPRF
> 5042
>       I              FTTRMO                          DSTRMO
> 5042
>       I              FTTRMF                          DSTRMF
> 5042
>       I              FTTRMI                          DSTRMI
> 5042
>       I              FTPUD1                          DSPUD1
> 5042
>       I              FTPUD2                          DSPUD2
> 5042
>       I              FTCODE                          DSCODE
> 5042
>       I              FTMIN$                          DSMIN$
> 5042
>       I              FTTHR1                          DSTHR1
> 5042
>       I              FTTHR2                          DSTHR2
> 5042
>       I              FTFPC2                          DSFPC2
> 5042
>       I              FTTHR3                          DSTHR3
> 5042
>       I              FTFPC3                          DSFPC3
> 5042
>       I              FTFFRT                          DSFFRT
> 5042
>       I              FTDATE                          DSDATE
> 5042
>       I              FTDATT                          DSDATT
> 5042
> 5042 I* 5042
>
>
>       A          R OEFRTF                    TEXT('Freight Policy Master
> file')
>       A                                      PFILE(OEFRTP)
>       A*
>       A            FTEMM
>       A            FTEDD
>       A            FTECC
>       A            FTEYY
>       A            FTTMM
>       A            FTTDD
>       A            FTTCC
>       A            FTTYY
>       A            FTFPCT
>       A            FTFPRF
>       A            FTTRMO
>       A            FTTRMF
>       A            FTTRMI
>       A            FTPUD1
>       A            FTPUD2
>       A            FTCODE
>       A            FTMIN$
>       A            FTTHR1
>       A            FTTHR2
>       A            FTFPC2
>       A            FTTHR3
>       A            FTFPC3
>       A            FTFFRT
>       A*
>       A            FTDATE                    CONCAT(FTECC FTEYY FTEMM FTEDD)
>       A                                      TEXT('Effective Date YYYYMMDD')
>       A                                      COLHDG('Effective' 'Date')
>       A                                      ALIAS(EFFECTIVE_DATE)
>       A*
>       A            FTDATT                    CONCAT(FTTCC FTTYY FTTMM FTTDD)
>       A                                      TEXT('End YYYYMMDD')
>       A                                      COLHDG('End' 'Date')
>       A                                      ALIAS(END_DATE)
>       A*
>       A          K FTCODE
>       A          K FTDATE