ILE COBOL 解説書

以下の例で 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 拡張-------------------------------+


[ ページのトップ | 前ページ | 次ページ | 目次 | 索引 ]