以下の例で EXTRACT-DATE-TIME 組み込み関数の使用法を示します。
COMPUTE integer-1 = FUNCTION EXTRACT-DATE-TIME (date-3 MONTHS). COMPUTE integer-1 = FUNCTION EXTRACT-DATE-TIME (date-3 '%m'). MOVE FUNCTION EXTRACT-DATE-TIME (date-2 '%m/%d') to alphanum-1.
+------------------------------End of IBM 拡張-------------------------------+