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
|
Copyright © 2014 CA.
All rights reserved.
|
|