IBM Extension
IBM Extension

WHEN-COMPILED 特殊レジスター

この特殊レジスターには、コンパイルの開始日付が入ります。 このレジスターは、次の暗黙定義および形式を持つ英数字データから構成されます。
01     WHEN-COMPILED GLOBAL PICTURE X(16) USAGE DISPLAY
形式
MM/DD/YYhh.mm.ss (MONTH/DAY/YEARhour.minute.second)

例えば、コンパイルが 1994 年 12 月 15 日の午後 2 時 4 分に開始された場合には、WHEN-COMPILED に値 12/15/9414.04.00 が入ります。

ジョブ関連コマンド (CHGJOB など) の DATSEP または TIMSEP パラメーターは、WHEN-COMPILED 特殊レジスター内で使用される日付区切りまたは時刻分離文字を指定します。 DATFMT パラメーターは、WHEN-COMPILED 特殊レジスター内で使用される日付形式を指定します。

これは MOVE ステートメントの送信項目についてのみ有効です。

特殊レジスターのデータは、送り出しデータ項目として使用されているときにのみ参照変更できます。

ネストされたプログラムでは、この特殊レジスターは最外部のプログラム内で暗黙に定義されます。
注: 日付および時刻の組み込み関数 WHEN-COMPILED を使用して、コンパイル日付および時刻をアクセスすることもできます (WHEN-COMPILEDを参照してください)。 この関数は 4 桁の年の値をサポートし、追加情報を提供します。
End of IBM Extension
End of IBM Extension