%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
(C) Copyright IBM Corporation 1992, 2006. All Rights Reserved.