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 を使用してからデータ名を参照しても、同じ結果が得られます。