SIGN Function

[Didier Lachieze]

Not sure I understand why you are using SIGN() here as you are testing if it’s equal to 0 which occurs only is the parameters itself equals to 0.
So you can do: IF J==0 OR M==0 OR A==0 THEN …
And even more simple a single test will do the same thing: IF J*M*A==0 THEN … as J*M*A will be equal to zero if at least one of J, M or A is equal to zero.

So in a concise way:

Code:

EXPORT OKDATE(J,M,A)
BEGIN
  IFTE( J*M*A,PRINT("Date OK"),PRINT("Date ??") );
END;

If J*M*A is not zero (True condition) the first PRINT is executed, if it's zero (False condition) it's the second one.