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

On 2021-09-22 1:12 p.m., Peter Dow 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.

It works fine to concatenate packed decimal fields. The concatenated field seems to become a zoned decimal field. My RPG/400 can handle the concacenated field with no problem, even if I rename it on an I spec.

Here's physical file CONCATPF:
A R REC
A CC 2P 0
A YY 2P 0
A MM 2P 0
A DD 2P 0

Here's logical file CONCATLF:
A R REC PFILE(CONCATPF)
A DATE CONCAT(CC YY MM DD)
A K *NONE

Here's my RPG/400 program. (ewww)
FCONCATLFIF E DISK
IREC
I DATE NEWDAT
C READ REC 10
C DSPLY NEWDAT
C SETON LR

I added a record to the physical file with values 20 21 09 24.

My RPG program dispalys 20210924 for NEWDAT.