Rational Developer for System z
COBOL for Windows バージョン 7.5 プログラミング・ガイド


例: 世紀ウィンドウ

次の例は、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-ReturnedDate-Due-Back より小さい (前である) ため、プログラムはFine-Member (会員へ延滞金を科す) 段落を実行しません。 (プログラムは、時間通りに DVD が戻されたかどうかを検査します。)


ご利用条件 | フィードバック

Copyright IBM Corporation 1996, 2008.
このインフォメーション・センターでは Eclipse テクノロジーが採用されています。(http://www.eclipse.org)