$ItsOpen: Difference between revisions
Jump to navigation
Jump to search
m (needed a length) |
|||
| Line 19: | Line 19: | ||
<b>Example</b> | <b>Example</b> | ||
<p class="code">BEGIN | <p class="code">BEGIN | ||
%FILE IS STRING | %FILE IS STRING LEN 8 | ||
%FILE = $READ('ENTER THE FILENAME') | %FILE = $READ('ENTER THE FILENAME') | ||
IF $ITSOPEN(%FILE) THEN | IF $ITSOPEN(%FILE) THEN | ||
Revision as of 21:14, 5 November 2015
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 LEN 8 %FILE = $READ('ENTER THE FILENAME') IF $ITSOPEN(%FILE) THEN PRINT %FILE ' IS OPEN' ELSE PRINT %FILE ' IS NOT OPEN' END