Spooler Programmer's Guide

Using the Spooler Interface Procedures
Spooler Programmer’s Guide—522287-002
2-16
COBOL Spooling—Levels 2 and 3
PROCEDURE DIVISION.
DECLARATIVES.
UA-IN-FILE SECTION.
USE AFTER ERROR PROCEDURE ON IN-FILE.
UA-IN-FILE-PROC.
IF NOT IN-FILE-EOF DISPLAY "IN-FILE ERROR=" FILE-STAT.
UA-OUT-FILE SECTION.
USE AFTER ERROR PROCEDURE ON OUT-FILE.
UA-OUT-FILE-PROC.
IF NOT IN-FILE-EOF DISPLAY "OUT-FILE ERROR=" FILE-STAT.
END DECLARATIVES.
MAIN SECTION.
BEGIN-PROGRAM.
PERFORM A-INIT
PERFORM B-DO-IT UNTIL IN-FILE-EOF
PERFORM C-EOJ
STOP RUN.
A-INIT.
OPEN INPUT IN-FILE
ENTER "COBOL85^SPECIAL^OPEN" OF CBL85UTL
USING OUT-FILE
SPOOLER-OPEN
OMITTED
OMITTED
OMITTED
LEVEL-2
LOCATION
FORM-NAME
REPORT-NAME
OMITTED
OMITTED
FLAGS
GIVING ERROR-CODE
IF ERROR-CODE NOT = 0
DISPLAY "COBOL85^SPECIAL^OPEN ERROR=" ERROR-CODE
STOP RUN
END-IF
.
B-DO-IT.
READ IN-FILE
NOT AT END WRITE OUT-REC FROM IN-REC
END-READ
.
C-EOJ.
CLOSE IN-FILE
OUT-FILE
.
Example 2-4. Example of Spooling From COBOL (page 2 of 2)