RE: Having the same file open twice in an RPG program

QUALIFIED is an alternative to RENAME & PREFIX.

Dcl-f FOO disk usage(*input) keyed ;
Dcl-f FOO1 disk usage(*input) keyed extFile('FOO') extDesc('FOO') QUALIFIED;


Using LIKEFILE is fun too.

Dcl-f FOO Keyed Block(*No);
Dcl-f FOO1 Likefile(FOO);


Personally I'd go with SQL or Have the files in Subprocedures, depending on what needed to be done.


Chris Hiebert
Senior Programmer/Analyst
Disclaimer: Any views or opinions presented are solely those of the author and do not necessarily represent those of the company.


-----Original Message-----
From: RPG400-L <rpg400-l-bounces@xxxxxxxxxxxxxxxxxx> On Behalf Of Justin Taylor
Sent: Wednesday, April 22, 2020 3:57 PM
To: RPG programming on IBM i <rpg400-l@xxxxxxxxxxxxxxxxxx>
Subject: RE: Having the same file open twice in an RPG program

Something like this work?

Dcl-f FOO disk usage(*input) keyed ;
Dcl-f FOO1 disk usage(*input) keyed extFile('FOO') extDesc('FOO') rename(FOOREC:FOO1REC);




-----Original Message-----
From: James H. H. Lampert [mailto:jamesl@xxxxxxxxxxxxxxxxx]
Sent: Wednesday, April 22, 2020 1:09 PM
To: RPG programming on the IBM i / System i <rpg400-l@xxxxxxxxxxxxxxxxxx>
Subject: Having the same file open twice in an RPG program

I have a situation, with a header file, FOO, and a line-item file, BAR, in which I need to have both files open twice in the same program. It seems that there are some 92000 cases in which the same header appears twice, and (presumably) each has an identical set of line-item records.

As it happens, I can (and indeed, *must*) have two different logicals open on FOO, in order to be positioned to both of the mutually redundant headers.

But for each of those pairs, I also need to run through the line items, in order to compare the line items of one to the line items of the other.

I can't recall ever being able to have the same file open twice in an RPG program, other than by having two different LFs on the same PF.

Is there something I'm not aware of?

--
JHHL