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 scriptSubprog CONTDEV(CURRENCY_CODE,CURRENT_DATE)Value Char CURRENCY_CODEValue Date CURRENT_DATE# Returns mkstat and GMESSAGE to handle the errors in the masks

Versions 7 and above native function

# In TRTDEV_SYRA scriptSubprog CONTDEV(CURRENCY_CODE,CURRENT_DATE,MESSAGE,OK)Value CharCURRENCY_CODEValue DateCURRENT_DATEVariable Char MESSAGEVariable 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