例
以下の例で TEST-DATE-TIME 組み込み関数の使用法を示します。
WORKING-STORAGE SECTION.
01 mydate1 PIC X(8) VALUE '07312013'.
PROCEDURE DIVISION.
IF FUNCTION TEST-DATE-TIME (mydate1 DATE '%d%m%Y') = B'1'
DISPLAY 'Valid Date'
END-IF.
以下の例で TEST-DATE-TIME 組み込み関数の使用法を示します。
WORKING-STORAGE SECTION.
01 mydate1 PIC X(8) VALUE '07312013'.
PROCEDURE DIVISION.
IF FUNCTION TEST-DATE-TIME (mydate1 DATE '%d%m%Y') = B'1'
DISPLAY 'Valid Date'
END-IF.