Previous Topic: 'ADD_DAYS'Next Topic: 'SET_FORMAT'


'TO_EXTERNAL'

The 'TO_EXTERNAL' function converts a CA TLMS internal date to a 10-byte character external date, according to the date format supplied.

With Version 5.5, most of the requirements for 'TO_EXTERNAL' were replaced by the PRINTEXIT CTSPDATE which automatically finds and converts dates in the print line. All dates with a PIC 'ZZ99/999 ' which is the default for database are converted. Adding this PIC to your data eliminates the need for this call.

DEF DATE_FMT     (X 10) = 'MMMDD YYYY'
DEF FUNCTION     (X 80) = NONE
DEF PRINT_DATE   (X 10) = NONE 'EXPDT' 'DATE'

SET FUNCTION = 'TO_EXTERNAL'
CALL CTSEDATE USING FUNCTION
                    PRINT_DATE
                    EXPDT
                    DATE_FMT