%OPEN(file_name)
%OPEN は、指定されたファイルがオープンされている場合に '1' を戻します。 ファイルが「オープンしている」と考えられるのは、初期化時に RPG モジュール によって、あるいは OPEN 命令によってオープンされ、その後クローズされていない場合です。ファイルが外部標識によって条件付けられ、 外部標識がモジュール初期化時にオフであった場合、ファイルはクローズしていると見なされ、%OPEN は '0' を戻します。
詳細については、ファイル命令または 組み込み関数を参照してください。
*..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