Spooler Plus Programmer's Guide

Using the Spooler Interface Procedures
Spooler Plus Programmer’s Guide—522293-003
2-15
COBOL Spooling—Levels 2 and 3
Example 2-4. Example of Spooling From COBOL (page 1 of 2)
IDENTIFICATION DIVISION.
PROGRAM-ID. SPOOLER.
ENVIRONMENT DIVISION.
CONFIGURATION SECTION.
SOURCE-COMPUTER. HP.
OBJECT-COMPUTER. HP.
SPECIAL-NAMES. FILE "$SYSTEM.SYSTEM.CBL85UTL" IS CBL85UTL.
INPUT-OUTPUT SECTION.
FILE-CONTROL.
SELECT IN-FILE
ASSIGN TO "SPOOLEE"
FILE STATUS IS FILE-STAT.
SELECT OUT-FILE
ASSIGN TO "$S"
FILE STATUS IS FILE-STAT.
DATA DIVISION.
FILE SECTION.
FD IN-FILE
RECORD CONTAINS 1 TO 80 CHARACTERS,
LABEL RECORDS ARE OMITTED.
01 IN-REC PIC X(80).
FD OUT-FILE
LABEL RECORDS ARE OMITTED.
01 OUT-REC PIC X(132).
WORKING-STORAGE SECTION.
01 FILE-STAT.
05 FILE-STAT-1 PIC X.
88 IN-FILE-EOF VALUE "1".
05 FILE-STAT-2 PIC X.
01 FLAGS PIC 9(4) COMP VALUE 99.
* 99 = 64 (HOLD)
* +32 (HOLDAFTER)
* + 3 (PRIORITY 3)
01 ERROR-CODE PIC 9(4).
01 LOCATION.
03 GROUP-NAME PIC X(8) VALUE "#LP ".
03 LOCATION-NAME PIC X(8) VALUE SPACES.
01 FORM-NAME PIC X(16) VALUE "PREPRINTED".
01 REPORT-NAME PIC X(16) VALUE "NAME OF REPORT".
01 SPOOLER-OPEN PIC S9(4) COMP VALUE 1.
01 LEVEL-2 PIC S9(4) COMP VALUE 0.
01 LEVEL-3 PIC S9(4) COMP VALUE 1.