Reports › Producing Customized Reports Using CA Common Services for z/OS EARL Service › CTSEDATE Date Function Calls › 'FROM_EXTERNAL'

'FROM_EXTERNAL'

The 'FROM_EXTERNAL' function converts an external date in your z/OS EARL Service program, that is, SET MYDATE = '1996/07/23', to a CA TLMS compatible internal date. This date could then be used for comparisons, arithmetic and other operations with other CA TLMS internal date fields.

Note: To use the 'FROM_EXTERNAL' function, you must first issue the 'SET_FORMAT' function to indicate the format of your external date. Either Julian or the preferred date may be used. The default is Julian.

DEF MY_INT_DATE    (P 7.0) = NONE
DEF MY_EXT_DATE     (X 10) = NONE
DEF DATE_FMT        (X 10) = NONE

SET DATE_FMT = 'YYYY/MM/DD'
SET FUNCTION = 'SET_FORMAT'

CALL CTSEDATE USING FUNCTION
                    DATE_FMT

SET FUNCTION = 'FROM _EXTERNAL'
CALL CTSEDATE USING FUNCTION
                     MY_INT_DATE
                     MY_EXT_DATE