#23 Bugs in EVALUATE

closed
nobody
None
5
2003-04-04
2003-03-16
Hudson Reis
No

Hi,

This is the bug that I found in EVALUATE verb.

Thanks
Hudson

* Bug 1.
The compiler show errors when use nested evaluates.

procedure division.
display "Type some value:" line 10 position
10
accept ws-Valor line 10 position 27
evaluate true
evaluate ws-Tecla
when ws-Enter
display "enter"
when other
display "other"
end-evaluate
when ws-Esc
perform display-1
when ws-Enter
perform display-2
when other
display "nobody value was
requested"
end-evaluate

Example programs: evaluate00.cob

Discussion

  • Hudson Reis
    Hudson Reis
    2003-03-16

    evaluate example bugs

     
    Attachments
  • Bernard Giroud
    Bernard Giroud
    2003-04-04

    • status: open --> closed
     
  • Bernard Giroud
    Bernard Giroud
    2003-04-04

    Logged In: YES
    user_id=1011

    The first statement in an evaluate can only occur after the
    first WHEN: EVALUATE true EVALUATE ... is wrong.
    Must be: EVALUATE item WHEN true EVALUATE ...