%OPEN (ファイル・オープン条件の戻し)

%OPEN(file_name)

%OPEN は、指定されたファイルがオープンされている場合に '1' を戻します。 ファイルが「オープン」されていると考えられるのは、初期化時に RPG プログラム によって、あるいは OPEN 命令によってオープンされ、それ以後クローズされていない場合です。ファイルが外部標識によって条件付けられ、外部標識がプログラム初期化時にオフで あった場合、ファイルはクローズされていると見なされ、%OPEN は '0' を戻します。

詳細については、ファイル命令または 組み込み関数を参照してください。

図 212. %OPEN の例
 *..1....+....2....+....3....+....4....+....5....+....6....+....7...+....
F*Filename+IPEASFRlen+LKlen+AIDevice+.Keywords+++++++++++++++++++++++++
 * The printer file is opened in the calculation specifications
FQSYSPRT   O    F  132        PRINTER USROPN

 /FREE
    // Open the file if it is not already open
    if not %open (QSYSPRT);
       open QSYSPRT;
    endif;
 /END-FREE