IBM Extension
IBM Extension
DB-FORMAT-NAME 特殊レジスター
入出力ステートメントの実行後、FORMATFILE または DATABASE ファイルについては、DB-FORMAT-NAME 特殊レジスターが次の規則に従って修正されます。
- READ、WRITE、REWRITE、START、または DELETE 操作が正常に完了した後、I-O 操作で使用されるレコード形式名は、暗黙に特殊レジスターへ移動されます。
- 入出力操作が正常に行われなかった後、DB-FORMAT-NAME には、最後に正常に行われた入出力操作に使用されたレコード形式名が入ります。
- DB-FORMAT-NAME は、最も外側のプログラムにおいて、PICTURE X(10) および GLOBAL として暗黙に定義されます。
英数字の引数が認められている場合はいつでも、DB-FORMAT-NAME 特殊レジスターを関数内で指定できます。
End of IBM Extension