I use "Side Effect" programming for this. I can use the System Command
call and pass it "LISTEQ FILENAME >$NULL". Then I test the CIERR code I
get back. Zero means a valid File Equate exists.

If I need to know what the LISTEQ is, I can redirect the LISTEQ to a
temp save file, open that, and read records until the record with
FILENAME occurs.

And the reason I have to do it this way, is that the languages I have to
use currently are Basic/3000 and Powerhouse Quiz.

Terry O'Brien wrote:
>
> Dear HP3000L participants:
>
> Here's a pop quiz for the MPEiX hot shots:
>
> How does a program determine if a file equate is present and what the file
> equate is?
>
> For example, Prog1 wants to create a file named "MYFILE".  It would like to
> detect if the filename is file equated and what the file equation is set to
> before it attempts to open the file or create the file.
>
> The obvious answer of LISTEQ to a file with a little parsing magic is
> aesthetically distasteful if a more elegant solution is at hand.
>
> And the option of attempting to create the file and checking FLABELINFO
> after the fact is also undesirable.
>
> Any great ideas out there and note that the HP RC has already told us that
> it's not available through an intrinsic call.
>
> Many thanks for your public or private replies.
>
> Terry O'Brien
> Dynamic Information Systems