The following examples show how the TEST-DATE-TIME intrinsic function can be used:
IF FUNCTION TEST-DATE-TIME (date-3 DATE) = B'1'
MOVE FUNCTION TEST-DATE-TIME (date-3 DATE '%y/%m') TO boolean-1.
IF FUNCTION TEST-DATE-TIME (time-1 TIME) = B'0'
MOVE FUNCTION TEST-DATE-TIME (time-2 TIME '%H:%M') TO boolean-2.
+----------------------------End of IBM Extension----------------------------+
(C) Copyright IBM Corporation 1992, 2006. All Rights Reserved.