年号4桁処理対応について教えてください。

NetCOBOLのよくあるご質問を検索できます。

年号4桁処理対応について教えてください。西暦を2桁ではなく4桁で取得したいのですが、どうすればよいですか？　今までは、ACCEPT 文を使用していました。

CURRENT-DATE関数を使って西暦の4桁を取り込んでください。
小入出力機能のACCEPT文を使った日付入力では、西暦の下2桁しか取得できませんが、組み込み関数のCURRENT-DATE関数を利用すれば、4桁の西暦を得ることができます。
CURRENT-DATE関数の詳細については、COBOL文法書およびCOBOL使用手引書を参照してください。