Tek-Tips is the largest IT community on the Internet today!
Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!
-
Congratulations gkittelson on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!
ELSE END-IF 2
- Thread starter claudeb
- Start date
-
1
- #2
-
1
- #3
example of a selection. The corresponding IF and END-IF are on the same column.
Code:
IF SEX = "FEMALE"
IF INCOME > 50000
IF INCOME > 100000
DISPLAY "FEMALE AND INCOME > 100000"
ELSE
DISPLAY "FEMALE AND INCOME > 50000"
END-IF
IF NUMBER-OF-KIDS = 0
DISPLAY " AND SHE HAS NO KIDS!"
END-IF
ELSE
DISPLAY "FEMALE NOT SELECTED"
END-IF
ELSE
PRINT "---> NOT FEMALE"
END-IF- Thread starter
- #4
Hi Claud,
You didn't give us a "ferinstance" so I face the possibility of telling you something you already know. My apologies in advance; but here goes:
The general form is
Hope this helps, Jack.
You didn't give us a "ferinstance" so I face the possibility of telling you something you already know. My apologies in advance; but here goes:
The general form is
Code:
IF cond1
stmts
ELSE
stmts
END-IF
where,
cond1 - can be any arithmetic or logical comparison, or a condition name (88 level);
stmts - can be any single or group of valid COBOL stmts, including other IF stmts.
Remember periods (.) cannot appear within an IF stmt. When using END-IF they should be avoided, although they can be useful in some circumstances.
If using nested IF stmts be sure that each IF has been terminated by its associated END-IF (work from the inside out).
Crox's post is a good example of a complex IF stmt, covering most, if not all of what you can do in one.
Another aspect of complex condition testing is mixing IFs and EVALUATEs. I find it helps to make the code a bit more "readable":
EVALUATE TRUE ALSO TRUE
WHEN AGE-IS-UNDER-30 ALSO SEX-IS-MALE
IF INCOME > 50000
PERFORM 1000-SPAM-HIM
END-IF
WHEN STATE = NJ ALSO NO-SPAM-SET
PERFORM 1000-SPAM-HIM 100 TIMES
END-EVALUATEHope this helps, Jack.
- Thread starter
- #6
Hi Claude,
Sorry, you probably didn't get to this part yet; I hope I haven't given away the plot.
An EVAL can be used as a replacement for an IF stmt. It's supposed to present complex conditional solutions in a more "readable" form.
they can be coded:
TRANSLATION: Enroll all women greater than 200 lbs between the ages of 18 and 25 in the football program.
The OR situation:
EVAL TRUE ALSO TRUE
WHEN WS-AGE < 18 ALSO WS-AGE > 25
WHEN WS-WT < 200 ALSO ANY
WHEN NOT MALE ALSO ANY
PERFORM 2000-EXPELL
END-EVAL
TRANSLATION: Expell all females under 200 lbs and not between 18 and 25.
Note that each condition is tested in turn; each case is rejected as soon as it fails a condition.
That should give you a little insight into the EVAL. It's not a complete treatment, but it's a start.
Jack
Sorry, you probably didn't get to this part yet; I hope I haven't given away the plot.
An EVAL can be used as a replacement for an IF stmt. It's supposed to present complex conditional solutions in a more "readable" form.
they can be coded:
Code:
EVAL data-name
EVAL TRUE
EVAL FALSE
EVAL data-name ALSO TRUE ALSO FALSE.....
or in any combination thereof
The EVAL (use the full word) is followed by one or more WHEN stmts followed by an END-EVAL. The ALSO is treated as a logical AND; the OR I'll show later. Let's take that last EVAL:
EVAL WS-AGE ALSO TRUE ALSO FALSE
WHEN 18 THRU 25 ALSO WS-WT > 200 ALSO MALE
PERFORM 1000-ENROLL-IN-FBALL-PGM
END-EVALTRANSLATION: Enroll all women greater than 200 lbs between the ages of 18 and 25 in the football program.
The OR situation:
EVAL TRUE ALSO TRUE
WHEN WS-AGE < 18 ALSO WS-AGE > 25
WHEN WS-WT < 200 ALSO ANY
WHEN NOT MALE ALSO ANY
PERFORM 2000-EXPELL
END-EVAL
TRANSLATION: Expell all females under 200 lbs and not between 18 and 25.
Note that each condition is tested in turn; each case is rejected as soon as it fails a condition.
That should give you a little insight into the EVAL. It's not a complete treatment, but it's a start.
Jack
- Status
Similar threads
