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

Procedure Division Verbs
HP COBOL Manual for TNS/E Programs—520347-003
9-149
Unconditional PERFORM
An in-line PERFORM statement can contain delimited-scope statements (such as a
delimited-scope READ or IF statements) because they count as imperative statements.
Example 9-47. Unconditional PERFORM Statement With One Paragraph
IF REPORT-A
PERFORM DO-REPORT-A
END-IF
Example 9-48. Unconditional PERFORM Statement With Several Paragraphs
IF REPORTS-TO-DO
PERFORM DO-REPORTS THRU DO-REPORTS-EXIT.
IF MUST-EXIT
...
DO-REPORTS.
...
(several paragraphs to create the reports)
...
DO-REPORTS-EXIT.
EXIT.
Example 9-49. In-Line PERFORM Statement With Delimited-Scope Statements
PERFORM UNTIL END-IX
READ IX-FILE RECORD
AT END
SET END-IX TO TRUE
NOT AT END
IF IX-NUMBER > 0
READ MASTR-FILE RECORD KEY IS IX
INVALID KEY DISPLAY "Bad IX value: " IX
STOP RUN
END-READ
END-IF
MOVE MASTER-NAME TO CUST-NAME
...
END-READ
END-PERFORM