COBOL Manual for TNS and TNS/R Programs

Procedure Division
HP COBOL Manual for TNS and TNS/R Programs—522555-006
8-3
Procedure Division Components and Syntax
section
is described in Sections.
Topics:
•
Statements
•
Sentences
•
Paragraphs
•
Sections
•
Procedures
•
Declaratives Portion
Example 8-1. Procedure Division
PROCEDURE DIVISION.
DRIVER SECTION.
DRIVE.
PERFORM 100-INITIALIZATION
PERFORM 200-PROCESS-REQUESTS UNTIL JOB-IS-DONE
PERFORM 300-TERMINATION.
100-INITIALIZATION SECTION.
OPEN-FILES.
OPEN INPUT MESSAGE-IN
OPEN OUTPUT MESSAGE-OUT
OPEN INPUT BASE-FILE.
FINISH-UP-INIT.
MOVE "READY" TO WATCH-WORD.
...
200-PROCESS-REQUESTS SECTION.
READ-DOLLAR-RECEIVE.
READ MESSAGE-IN
...
PROCESS-INPUT-DATA.
...
300-TERMINATION SECTION.
CLOSE-AND-QUIT.
CLOSE MESSAGE-IN
MESSAGE-OUT
BASE-FILE
STOP RUN.