R: [Tiny-cobol-users] Evaluate statement

[Mario L. R. <ma...@ka...>]

-----Messaggio originale-----
Da: Jason Dravet [mailto:dr...@ca...]
Inviato: venerd=EC 28 giugno 2002 2.08
A: tin...@li...
Oggetto: [Tiny-cobol-users] Evaluate statement


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 =3D 12
             MOVE "PM" TO RH-TIME-PERIOD
        WHEN  < 12
             MOVE "AM" TO RH-TIME-PERIOD
        WHEN =3D 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 =3D 12
             MOVE "PM" TO RH-TIME-PERIOD
        WHEN WA-TIME-HOUR < 12
             MOVE "AM" TO RH-TIME-PERIOD
        WHEN WA-TIME-HOUR =3D 00
             MOVE "AM" TO RH-TIME-PERIOD
             MOVE 12 TO WA-TIME-HOUR.


Jason



-------------------------------------------------------
This sf.net email is sponsored by:ThinkGeek
Welcome to geek heaven.
http://thinkgeek.com/sf
_______________________________________________
Tin...@li...
https://lists.sourceforge.net/lists/listinfo/tiny-cobol-users


I think the right code is below:
 EVALUATE WA-TIME-HOUR
         WHEN 13 THRU 24
              SUBTRACT 12 FROM WA-TIME-HOUR
              MOVE "PM" TO RH-TIME-PERIOD
         WHEN 12
              MOVE "PM" TO RH-TIME-PERIOD
         WHEN 01 THRU 12
              MOVE "AM" TO RH-TIME-PERIOD
         WHEN 00
              MOVE "AM" TO RH-TIME-PERIOD
              MOVE 12 TO WA-TIME-HOUR
 END-EVALUATE.


Try and tell me if ok (or not).

Regards
   Mario Lodi Rizzini