COBOL Manual for TNS and TNS/R Programs

Printer and Spooler Output
HP COBOL Manual for TNS and TNS/R Programs—522555-006
30-10
Spooling Program Output
Level-3 Spooling
Level-3 spooling causes the compiler to block output and minimizes the number of
interactions with the spooler. There are two ways to get level-3 spooling:
•
The same way you get level-2 spooling, except that when you open the output file
with the COBOL85^SPECIAL^OPEN or COBOL_SPECIAL_OPEN_ routine, you
give the parameter level-3 a nonzero value.
•
Instead of using HP COBOL output statements on the file, use ENTER statements
to call the Guardian environment routines listed in Table 30-1.
Example 30-2. Level-2 Spooling
SELECT SPOOLER-FILE
ASSIGN TO "$S"
ORGANIZATION IS SEQUENTIAL
ACCESS MODE IS SEQUENTIAL
FILE STATUS IS SPOOLER-FILE-STAT.
...
FD SPOOLER-FILE
RECORD IS VARYING FROM 80 TO 132 CHARACTERS.
01 SPOOLER-SHORT-LINE PIC X(80).
01 SPOOLER-LONG-LINE PIC X(132).
WORKING-STORAGE SECTION.
01 SPOOLER-FILE-STAT PIC XX.
01 LOCATION-NAME PIC X(16) VALUE "#MYSTUF".
01 REPORT-NAME PIC X(16) VALUE "PRIVATE PROPERTY".
* Flag for HOLDAFTER (32), PRIORITY 2 (+2 = 34)
01 FLAGS PIC S9(4) VALUE 34.
01 ERROR-CODE PIC S9(4).
...
PROCEDURE DIVISION.
...
ENTER TAL "COBOL85^SPECIAL^OPEN"
USING SPOOLER-FILE
1
OMITTED
OMITTED
OMITTED
0
LOCATION-NAME
OMITTED
REPORT-NAME
OMITTED
OMITTED
FLAGS
GIVING ERROR-CODE
...
WRITE SPOOLER-SHORT-LINE
...