Do we also have EVALUATE FALSE?

dyobik · New User Joined: 04 Nov 2006 Posts: 5

if we have EVALUATE TRUE do we also have EVALUATE FALSE?...just asking im only new in cobol...

thanks a lot..

Title changed from "evaluate.." to "Do we also have EVALUATE FALSE?" : Priyesh.

priyesh.agrawal · Posted: Tue Nov 07, 2006 9:35 am

karnataka · New User Joined: 15 Sep 2006 Posts: 20 Location: bangalore

hi dyobik

evaluate false is also syntactically correct.

01 A PIC 9 VALUE 2.

EVALUATE FALSE
WHEN A > 7 DISPLAY '1 WHEN SATISFIED'
WHEN A = 2 DISPLAY '2 WHEN SATISFIED'
WHEN OTHER DISPLAY 'NO CONDITION GOT SATISFIED'
END-EVALUATE.

in this case it will execute statement following 1st when .i.e, output is '1 WHEN SATISFIED'

thanks,