Evaluate statement, when-clause in conjunction with and

UmeySan · Posted: Mon Jul 16, 2012 6:49 pm

Hello gent's

Me and my mate have a littel discussion about evaluate statement.

In his opinion one could use "and" to conbine to fields in a when clause.
Example:

EVALUATE TRUE
WHEN TFLD01-OK AND TFLD02-OK PERFORM A10-EXEC-STARTUP
WHEN TFLD01-OK AND TFLD02-NO PERFORM A10-EXEC-STARTUP
WHEN TFLD01-NO AND TFLD02-NO PERFORM A10-EXEC-STARTUP
WHEN TFLD01-NO AND TFLD02-OK PERFORM A10-EXEC-STARTUP
WHEN OTHER CONTINUE
END-EVALUATE

I be really convinced that this does not work. I just tested it via XPEDITER. The first time, when both fields meet the requirement, everything runs fine. After that nothing works any more, no matter whether the rule is true or not.

But he's still disbelieving cause i could not explain in detail the rason why.

Could anyone explain the rason ???

Thanks in advance

Peter cobolskolan · Posted: Mon Jul 16, 2012 7:27 pm

Robert Sample · Posted: Mon Jul 16, 2012 7:32 pm

Easy enough to check:

dbzTHEdinosauer · Posted: Mon Jul 16, 2012 7:43 pm

without knowing what
TFLD01-OK
TFLD01-NO
TFLD02-OK
TFLD02-NO
represent,
can not give you an answer.

short answer though is that you can use "and" in a WHEN clause.

Bill Woodger · Posted: Mon Jul 16, 2012 7:48 pm

dbz got me beat. It's in the manual. A condition can be a compound, sorry, combined condition.

For the example not to be working, I'm afraid there is an error in the code, not the with the way EVALUATE works.

I hope for your sake it was only a small wager. A bottle of Red, not a Case...

UmeySan · Posted: Mon Jul 16, 2012 8:08 pm

Thank's guys !

Just to make shure, using the ALSO-clause is not the name of the game.

@ Peter cobolskolan: Ok, that's the way i would code that.

@Robert Sample: The thing is, is the use of combining fields in a when-clause using "and" or "or" legal or not.

In all the manuals you could not find something about the use of "and" or "or" in Evaluate-Statement.

Bill Woodger · Posted: Mon Jul 16, 2012 8:17 pm

...did you read mine? It is in the manual. May not be so explicit as giving examples, but it is all there. The condition can just be the same as any condition in an IF or whatever. AND, OR, whatever.

The ALSO could be used in combination with the combined conditions. Could be, but not sure I'd do it.

The ALSO segregates and matches for the EVALUATE rules. It would be, as Peter showed, possible to do the same with the ALSO ALSO.

Phrzby Phil · Posted: Mon Jul 16, 2012 8:26 pm

Why test in Expeditor rather than just run the code?

UmeySan · Posted: Mon Jul 16, 2012 8:54 pm

Thanks all !!!

I'll be reformed !!!

After my last post, i tried several exampels and it worked well.
I never saw a code line using the "and" in a when-clause before.

Seams that i had been along time away from Cobol, just using Assembler for the last 10 years.

@ Dick & Bill:
Ok, the condition can just be the same as any condition in an IF or whatever. AND, OR, whatever. That makes it clear.
A condition can be a combined condition.

And yes, it was a small wager, relative small. A dinner at McDonalds now after work.

@ Phrzby Phil:
Cause i can customize fields and the programm-flow as i need without editing and compiling.

So thank's for the quick response again.

dbzTHEdinosauer · 6.1.6.13 Combined conditions

UmeySan,

to follow-up on Bill's post:

within the EVALUATE discussion under 6.2.13.2 Determining values
the 4th point discussing Expression-1/Expression-2
provides a link to 6.1.6 Conditional expressions
which speaks of

UmeySan · Posted: Mon Jul 16, 2012 10:41 pm

Hi Dick !

Thank's a lot for this extraordinarydetailed description.