Contdev

Purpose of this function

This function verifies the validity of the currency. A date is provided to manage when some currencies are no longer valid after a given date (for example, Euro switch).

V6 function

# In TRTDEV script
Subprog CONTDEV(CURRENCY_CODE,CURRENT_DATE)
Value Char CURRENCY_CODE
Value Date CURRENT_DATE
# Returns mkstat and GMESSAGE to handle the errors in the masks

Versions 7 and above native function

# In TRTDEV_SYRA script
Subprog CONTDEV(CURRENCY_CODE,CURRENT_DATE,MESSAGE,OK)
Value Char       CURRENCY_CODE
Value Date       CURRENT_DATE
Variable Char    MESSAGE
Variable Integer OK
# OK can return the following values : OK=0 (error), OK=1 (no error), OK=2 (warning)
# MESSAGE is returned instead of GMESSAGE if an error occurs