I just resolved the problem with some guidance from support line, which is or is not a problem. The 7030 error is misleading.
There are 2 concatenated fields in the file. The fields were not used in the program, but the program returned message QRG7030. It appears that because the fields were not used in the program, the compiler saw the fields were not used so it excluded the fields, but somewhere it decided the fields were not defined.
I added 2 lines to the program add 0 concat_field1 and concat_field2 and the problem was resolved.
Thanks
Darryl Freinkel
A4G
Telephone: 770.321.8562 Mobile: 678.355.8562
-----Original Message-----
From: RPG400-L <rpg400-l-bounces@xxxxxxxxxxxxxxxxxx> On Behalf Of Barbara Morris
Sent: Friday, September 24, 2021 4:00 PM
To: rpg400-l@xxxxxxxxxxxxxxxxxx
Subject: 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.
--
Barbara
--
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
midrange.com
