The following examples show how the TEST-DATE-TIME intrinsic function can be used:
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.