次の例では、ウィンドウ化日付フィールドが拡張日付フィールドと比較されます。
77 Todays-Date Pic X(8) Date Format yyyyxxxx.
01 Loan-Record.
05 Date-Due-Back Pic X(6) Date Format yyxxxx.
. . .
If Date-Due-Back > Todays-Date Then . . .
Date-Due-Back には世紀ウィンドウが適用されます。Todays-Date に DATE FORMAT 文節を指定して、それを拡張日付フィールドとして定義しなければなりません。そうしないと、そのフィールドは非日付フィールドとして扱われ、その結果、そのフィールドは年の桁数が Date-Due-Back と同じであるものと見なされます。コンパイラーは 1900-1999 の仮定による世紀ウィンドウを適用するため、矛盾した比較が作成されます。