$ItsOpen

From m204wiki
Revision as of 13:19, 20 April 2013 by Alex (talk | contribs) (Automatically generated page update)
(diff) ← Older revision | Latest revision (diff) | Newer revision → (diff)
Jump to navigation Jump to search

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