View source for $ItsOpen

<p>The $ITSOPEN function lets you determine whether a file is open. $ITSOPEN only checks files, not groups of files. The return codes are: </p>
<table>
<tr class="head">
<th align="right">0</th>
<th>the file is not open</th>
</tr>
<tr>
<td align="right">1</td>
<td>the file is open </td>
</tr>
</table>
<b>Syntax</b>
<p>The format for the $ITSOPEN function is:</p>
<p class="code">$ITSOPEN({[FILE] name [AT location]

 | [PERM | TEMP] [GROUP] name})
</p>
<p>where name (optional) is a %variable or a literal name of the file or group. You <var class="term">must</var> enter the filename in uppercase. A file synonym name can also be used. If you do not enter a location (specifying a null argument), <var class="product">Model&nbsp;204</var> uses the reference context (at compile time) of the statement which calls the function.</p>
<b>Example</b>
<p class="code">BEGIN
%FILE IS STRING
%FILE = $READ('ENTER THE FILENAME')
IF $ITSOPEN(%FILE) THEN
     PRINT %FILE ' IS OPEN'
ELSE 
     PRINT %FILE ' IS NOT OPEN'
END
</p>
[[Category:SOUL $functions]]