サイトのロゴ opensource COBOL Programmer’s Guide

前へ/目次/次へ

6.1.7. 特殊レジスタ

opensource COBOLには、他のCOBOL方言と同様に、データ部で実際に定義しなくても、プログラマが自動的に使用できる多数のデータ項目が含まれている。COBOLでは、レジスタや特殊レジスタなどの項目を参照する。opensource COBOLプログラムで使用できる特殊レジスタは次のとおりである。

表6-15-特殊レジスタ

レジスタ名 暗黙のCOBOL PIC/USAGE句14 使用方法
LINAGE-COUNTER BINARY-LONG SIGNED このレジスタのオカレンスは、LINAGE句を持つSELECTで指定された各ファイルに存在する(5.1を参照)。FDにLINAGE句があるファイルが複数ある場合、このレジスタへの明示的な参照には修飾が必要である(「OFファイル名」を使用)。
このレジスタの値は、ページ本体内の現在の論理行番号になる(LINAGE句が論理ページを構成する方法については5.1を参照)。
このレジスタの内容は変更してはいけない。
NUMBER-OF-CALL-PARAMETERS BINARY-LONG SIGNED このレジスタには、サブプログラムに渡される引数の数が含まれている。メインプログラムで参照されると、その値はゼロになる。
同じデータを取得する別の方法については、8.3.1.9のC$NARG組み込みサブルーチンのドキュメントを参照。
RETURN-CODE BINARY-LONG SIGNED このレジスタは、数値データ項目を提供する。サブルーチンは、それCALLしたプログラムに制御を戻す前に値をMOVEしたり、メインプログラムがオペレーティングシステムに制御を返す前に値をMOVEしたりすることができる。
ほとんどの組み込みサブルーチン(8.3)が、このレジスタを使用して値を返す。
これらの値は―規則により―RETURN-CODE値を設定したプログラムが実行しようとしていたプロセスの成功(通常は値0)または失敗(通常は0以外の値)を示すために使用される。
SORT-RETURN BINARY-LONG SIGNED このレジスタは、RELEASE文またはRETURN文の成功または失敗のステータスを示すために使用される。成功の場合は値0が返り、値16が返ってきた場合は失敗を示す。RETURN文の「AT END」状態は、失敗とは見なされない。
WHEN-COMPILED See “Usage” このレジスタには、プログラムがコンパイルされた日時が「mm/dd/yyhh.mm.ss」の形式で含まれている。返ってくるのは2桁の年のみであることに注意すること。

14 PICTURE句またはUSAGE句の仕様の説明については5.3を参照。

ページトップへ