COBOL Manual for TNS and TNS/R Programs

Procedure Division Verbs
HP COBOL Manual for TNS and TNS/R Programs—522555-006
9-89
Conditional Form
Example 9-29 and Example 9-30 are equivalent.
Example 9-31 and Example 9-32 are equivalent.
Example 9-27. Simple Conditional IF Statement
IF JULIAN-DAYS IS GREATER THAN 59,
ADD LEAP-YEAR TO JULIAN-DAYS.
Example 9-28. Delimited-Scope IF Statement
IF JULIAN-DAYS IS GREATER THAN 59
ADD LEAP-YEAR TO JULIAN-DAYS
END-IF
Example 9-29. Simple Conditional IF ELSE Statement
IF TALLY GREATER THAN 0 MOVE 0 TO TALLY
MOVE 3 TO MSG-INDEX
PERFORM PRINT-ERROR-ROUTINE
ELSE MOVE 1 TO FLAG.
Example 9-30. Delimited-Scope IF ELSE Statement
IF TALLY GREATER THAN 0 MOVE 0 TO TALLY
MOVE 3 TO MSG-INDEX
PERFORM PRINT-ERROR-ROUTINE
ELSE MOVE 1 TO FLAG
END-IF
Example 9-31. IF ELSE Statement Nested Within PERFORM Statement
PERFORM DIV-IT VARYING I FROM 1 BY 1 UNTIL I > N
...
DIV-IT.
MOVE INF TO Q (I)
IF D (I) > 0 DIVIDE X (I) BY D (I) GIVING Q (I).
Example 9-32. Delimited-Scope IF ELSE Statement Nested Within PERFORM
Statement
PERFORM VARYING I FROM 1 BY 1 UNTIL I > N
IF D (I) > 0 THEN DIVIDE X (I) BY D (I) GIVING Q(I)
ELSE MOVE INF TO Q (I)
END-IF
END-PERFORM