C$Century

2000 年問題に対処するように COBOL プログラムを更新します。
注: When calling this routine, ensure you are using the 1024 calling convention.

このライブラリ ルーチンは、現在の年の最初の 2 桁を取得します。

構文:

CALL "C$Century" USING value-buffer

パラメーター:

value-buffer
符号なし数値表示 (NSU) 形式または英数字表示 (ANS) 形式の 2 バイトのデータ項目。

出力パラメーター:

value-buffer
現在の年の最初の 2 桁。

説明:

標準の COBOL コマンド ACCEPT data-name FROM DATE YYYYMMDD を使用してからデータ名を参照しても、同じ結果が得られます。