Hi Shane
Try the following
Any one - please correct me where I am wrong on this
Declare both files,
dcl-f Infile1 disk(*ext) usage(*input);
dcl-f Infile2 disk(*ext) usage(*input);
Then
dcl-ds InRec LikeRec(Infile1r)
Then for the read/chain/find use into InRec
But I believe Inrec is qualified - so you will have to qualify each field withon InRec
Inrec.fiedA
Inrec.fieldB
Etc.
Alan Shore
E-mail : ASHORE@xxxxxxxx
Phone [O] : (631) 200-5019
Phone [C] : (631) 880-8640
'If you're going through hell, keep going.'
Winston Churchill
-----Original Message-----
From: RPG400-L [mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of SReeves@xxxxxxxxxxxxxxxxxx
Sent: Tuesday, September 26, 2017 9:11 AM
To: rpg400-l@xxxxxxxxxxxx
Subject: Full Free and Input specs
I have a file that has multiple records; basically combining two other files together, each of which have different field names for the same things. This file is a part of our ERP, so it isn't something I made or can change, however we often have to reference it in our programs.
Normally we would use the input specs to rename the fields of one of the records to match the other record. Such as.
IRECORDB
I BFIELD1 AFIELD1
I BFIELD2 AFIELD2
This allows us to chain the file and find/retrieve information from either record without having to check each separately.
I'm trying to get more of our programs done in full free format, and from what I'm reading their is no 'input' specs in free and they should not be used. So I'm trying to see if there is way to accomplish the same thing without the 'I' specs.
Thanks
Shane Reeves
--
This is the RPG programming on the IBM i (AS/400 and iSeries) (RPG400-L) mailing list To post a message email: RPG400-L@xxxxxxxxxxxx To subscribe, unsubscribe, or change list options,
visit:
https://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives at
https://archive.midrange.com/rpg400-l.
Please contact support@xxxxxxxxxxxx for any subscription related questions.
Help support midrange.com by shopping at amazon.com with our affiliate link:
http://amzn.to/2dEadiD
midrange.com
