COBOL Manual for TNS and TNS/R Programs

Procedure Division Verbs
HP COBOL Manual for TNS and TNS/R Programs—522555-006
9-90
Conditional Form
Example 9-34 shows the equivalent delimited-scope IF statement with delimited-scope
statements marked.
Example 9-33. 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
ELSE
NEXT SENTENCE
ELSE
DISPLAY "0 RECORDS DELETED"
MOVE 0 TO FLAG
ELSE
NEXT SENTENCE
ELSE
MOVE 1 TO FLAG.
Example 9-34. Delimited-Scope IF Statement
IF EMPLOYEE-NUMBER NOT EQUAL TO SPACES
READ EMP-FILE RECORD
NOT INVALID KEY
PERFORM LIST-RECORD-OUT
DISPLAY "DELETE ? Y or N"
ACCEPT ANSWER
IF YES-ANSWER
DELETE EMP-FILE RECORD
NOT INVALID KEY
ADD 1 TO DELETE-COUNT
END-DELETE
ELSE
DISPLAY "0 RECORDS DELETED"
MOVE 0 TO FLAG
END-IF
END-READ
ELSE
MOVE 1 TO FLAG
END-IF
VST529.vsd