SIGN Function

[DrD]

Well, you've bumped into an interesting situation there ...
There is a missing semicolon on the PRINT("Date ??") <==
BUT, the compiler doesn't pick up the syntax error. <BUG discovered>.

Another approach, just for fun:

Code:


EXPORT OKDATE(J,M,A)
BEGIN
  IFTE( (SIGN(J) OR SIGN(M) OR SIGN(A))==0,PRINT("Date ??"), PRINT("Date OK") );
END;

-Dale-