EXECUTE "SET-THOUS ."
EXECUTE "SET-DEC ,"
EXECUTE "DATE.FORMAT"
*CONTROLE DATE
PRINT DATE()
PRINT ICONV(DATE(),"D4/")
PRINT INT(ICONV(DATE(),"D4/"))
PRINT TIMEDATE()
PRINT ICONV(TIMEDATE(),"D4/")
PRINT INT(ICONV(TIMEDATE(),"D4/"))
STOP
