以下の例で TEST-DATE-TIME 組み込み関数の使用法を示します。
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 拡張-------------------------------+