次の例は、DATE FORMAT 文節を使用し、プログラムを変更して自動日付ウィンドウ操作の機能を使用する方法を (太字で) 示しています。
CBL LIB,QUOTE,NOOPT,DATEPROC(FLAG),YEARWINDOW(-60)
. . .
01 Loan-Record.
05 Member-Number Pic X(8).
05 DVD-ID Pic X(8).
05 Date-Due-Back Pic X(6) Date Format yyxxxx.
05 Date-Returned Pic X(6) Date Format yyxxxx.
. . .
If Date-Returned > Date-Due-Back Then
Perform Fine-Member.
PROCEDURE DIVISION には変更を加えていません。2 つの日付フィールドに DATE FORMAT 文節を追加した意味は、コンパイラーがそれらをウィンドウ化日付フィールドとして認識し、したがって、IF ステートメントを処理するときには世紀ウィンドウを適用するということです。例えば、Date-Due-Back (返却予定日) が 080102 (2008 年 1 月 2 日) で、Date-Returned (返却日) が 071231 (2007 年 12 月 31 日) である場合は、Date-Returned が Date-Due-Back より小さい (前である) ため、プログラムはFine-Member (会員へ延滞金を科す) 段落を実行しません。 (プログラムは、時間通りに DVD が戻されたかどうかを検査します。)