SIGN Function

[DrD]

First, please include the program, (so that we can copy/paste it into our conn kit). You can do that by using the hash tag on the right side of the message editor toolbar.

Second, your image cuts off the conditional action on the IF THEN ELSE END; branch. I'll take a guess at that ...

Third, as shown, you are missing an END; statement that terminates the conditional structure.

Fourth, you don't need the "LOCAL" definition, since you have declared the variables on entry, in the program calling structure. OKDATE(J,M,A) .... However, you are using reserved variables. You should read about them in the guides, to fully understand this reservation.

Fixing ONLY the syntax error in the image, (it might be there but just not shown is a missing "End;"), here is the result:

Code:


EXPORT OKDATE(J,M,A)
BEGIN
  LOCAL J,M,A;

  IF SIGN(J) OR SIGN(M) OR SIGN(A) == 0 THEN
    PRINT("DATE ??");
  ELSE
    PRINT("DATE OK");
  END;
  
END;

You might want to work through the rest of the program, yourself; but feel free to ask, if you want further suggestions.
HINT:
You can insert/remove DEBUG; or KILL; statements along the way, to check the consequence of a procedure.
You can make use of those reserved variables on the command line, to check the results from statements, or procedures.
You can clear the terminal screen by first using a PRINT(); if you want to start with a blank screen.
You can use comment markers, "//" commenting out commands to temporarily remove them, if need be: // LOCAL J,M,A; for example.


-Dale-