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