Previous Topic: TO_EXTERNAL Function—Convert Internal Date to External DateNext Topic: SET_FORMAT Function—Change External Date Format


TO_EXPLODED Function—Convert Internal Date to Exploded Format

Use the TO_EXPLODED function to convert a CA 1 internal date to an exploded format. The extracted date related data is stored in the designated area. EARLDEFS provides an area to store the information as P_EXP_DATA. P_EXP_TYPDAT is a field name in the P_EXP_DATA area.

DEF FUNCTION     (X 10) = NONE
DEF P_EXP_DATA   (X 64) = NONE

SET FUNCTION = 'TO_EXPLODED'
CALL CTSEDATE USING FUNCTION
                    P_EXP_DATA
                    EXPDT