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

I have an internal app that "renames" fields by using SQL to add the new
column to the table (ALTER TABLE), copying the old column to the new
column, and then dropping the old column (ALTER TABLE again). Access paths
over the old column will be lost and you'll have to recreate them but
access paths over other columns will be preserved. Occasionally I don't
drop the old column; having it simplifies program changes--I can add
additional logic if necessary and then drop the old column later.

The original reason I developed this app was to automate changing CYYMMDD
dates and HHMM(ss) times into *ISO dates and times. The "copy from the old
column to the new column" process uses stored procedures for the date and
time conversions.

-xavier

On Wed, Sep 22, 2021 at 10:12 AM Peter Dow <petercdow@xxxxxxxxx> wrote:

I hear you.

Are all those fields character fields, zoned decimal, or packed
decimal? If packed decimal, I'd think concatenating would be a problem.

The record name in the logical is OEFRTF, but on your I-spec you have
OEFRTF1. Did you rename it in the F-spec or something?
--
*Peter Dow* /
Dow Software Services, Inc.
909 793-9050
petercdow@xxxxxxxxx <mailto:petercdow@xxxxxxxxx>
pdow@xxxxxxxxxxxxxx <mailto:pdow@xxxxxxxxxxxxxx> /

On 9/22/2021 9: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

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

Please contact support@xxxxxxxxxxxxxxxxxxxx for any subscription related
questions.

Help support midrange.com by shopping at amazon.com with our affiliate
link: https://amazon.midrange.com