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

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