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

["James H. H. Lampert" <jamesl@xxxxxxxxxxxxxxxxx>]

On 4/22/20 2:56 PM, Justin Taylor wrote:
> 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);

Or in traditional coding style, something like this:

> FFOO       IF   E           K DISK                                         
> FBAR       IF   E           K DISK    EXTDESC('FOO') EXTFILE(*EXTDESC)
> F                                     PREFIX(B) RENAME(FREC:BREC)  

--
JHHL