[Tiny-cobol-users] Evaluate statement

[Jason D. <dr...@ca...>]

I have the following code.

02  WA-RUN-TIME.
        03  WA-TIME-HOUR                PIC 99.
        03  WA-TIME-MIN                 PIC 99.

ACCEPT WA-RUN-TIME FROM TIME.

EVALUATE WA-TIME-HOUR
        WHEN  > 12
             SUBTRACT 12 FROM WA-TIME-HOUR
             MOVE "PM" TO RH-TIME-PERIOD
        WHEN = 12
             MOVE "PM" TO RH-TIME-PERIOD
        WHEN  < 12
             MOVE "AM" TO RH-TIME-PERIOD
        WHEN = 00
             MOVE "AM" TO RH-TIME-PERIOD
             MOVE 12 TO WA-TIME-HOUR
END-EVALUATE.

Everytime I try to compile this code I get a parse error on the evaluate
statement.  Then I get unknown or wrong statement errors for each line
of the evaluate.  Can anyone please tell me what is wrong with this
code?

The orignal code was the following.  I found an example in the tiny
cobol examples so I modified the following to work like the example.
Neither is working.  Is the following code still good or will I have to
use the above modified code?

EVALUATE TRUE
        WHEN WA-TIME-HOUR > 12
             SUBTRACT 12 FROM WA-TIME-HOUR
             MOVE "PM" TO RH-TIME-PERIOD
        WHEN WA-TIME-HOUR = 12
             MOVE "PM" TO RH-TIME-PERIOD
        WHEN WA-TIME-HOUR < 12
             MOVE "AM" TO RH-TIME-PERIOD
        WHEN WA-TIME-HOUR = 00
             MOVE "AM" TO RH-TIME-PERIOD
             MOVE 12 TO WA-TIME-HOUR.


Jason