$ItsOpen

The $ITSOPEN function lets you determine whether a file is open. $ITSOPEN only checks files, not groups of files. The return codes are:

0	the file is not open
1	the file is open

Syntax

The format for the $ITSOPEN function is:

$ITSOPEN({[FILE] name [AT location] | [PERM | TEMP] [GROUP] name})

where name (optional) is a %variable or a literal name of the file or group. You must enter the filename in uppercase. A file synonym name can also be used. If you do not enter a location (specifying a null argument), Model 204 uses the reference context (at compile time) of the statement which calls the function.

Example

BEGIN %FILE IS STRING %FILE = $READ('ENTER THE FILENAME') IF $ITSOPEN(%FILE) THEN PRINT %FILE ' IS OPEN' ELSE PRINT %FILE ' IS NOT OPEN' END