以下の例で 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.