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

%OPEN(file_name)

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

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

図 1. %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