COBOL Manual for TNS/E Programs (H06.08+, J06.03+)

Example 96 Simple Conditional IF Statement
IF JULIAN-DAYS IS GREATER THAN 59,
ADD LEAP-YEAR TO JULIAN-DAYS.
Example 97 Delimited-Scope IF Statement
IF JULIAN-DAYS IS GREATER THAN 59
ADD LEAP-YEAR TO JULIAN-DAYS
END-IF
Example 98 and Example 99 are equivalent.
Example 98 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 99 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 100 and Example 101 are equivalent.
Example 100 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 101 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
Example 102 Nested Conditional IF Statements
IF EMPLOYEE-NUMBER NOT EQUAL TO SPACES
PERFORM READ-ROUTINE
* Must perform out of line
* to do INVALID KEY test
IF NO-ERROR
PERFORM LIST-RECORD-OUT
DISPLAY "DELETE ? Y or N"
ACCEPT ANSWER
IF YES-ANSWER
PERFORM DELETE-MASTER
* Must perform out of line
* to do INVALID KEY test
IF NO-DELETE-ERROR
ADD 1 TO DELETE-COUNT
IF 341