Re: Externally Described files & RPG IV

Stone, Brad V (TC) wrote:
> 
> Define the two files (I'm guessing a physical and logical, or two
> different logicals) but rename the format name on the F Spec like this:
> 
>  FARFILE1   UF   E           K DISK
>  FARFILE2   IF   E           K DISK    RENAME(RARFILE:RARFILE2)
> 
> You can only have one format name the same.  Use the
> RENAME(origformat:newformt) keyword to rename any others.  Don't forget
> to refer to the correct format if doing a DELETE, UPDATE, or WRITE.
> Also remember that if you read from one file, then from another, if you
> don't rename or prefix the fields the data from the first read will be
> overwritten with the second read.  You can use the PREFIX(x) keyword to
> prefix files.  (Where x is the prefix).
> 
> Bradley V. Stone

Thanks Bradley but it is the same file - I need to read it using setLL &
directly. Rename & prefix work where you are using the same record
format but this is actually the same file.

OVRDBF File(ARFILE) TOFILE(ARFILE1)

FARFILE    IF ...
FARFILE1   IF ... RENAME(REC:REC1)

John Hall
+---
| This is the Midrange System Mailing List!
| To submit a new message, send your mail to MIDRANGE-L@midrange.com.
| To subscribe to this list send email to MIDRANGE-L-SUB@midrange.com.
| To unsubscribe from this list send email to MIDRANGE-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---