ILE COBOL Language Reference

Examples

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----------------------------+


[ Top of Page | Previous Page | Next Page | Table of Contents | Index ]