Spooler Programmer's Guide

Using the Spooler Interface Procedures
Spooler Programmer’s Guide—522287-002
2-6
Summary of Spooling From an Application Program
Example 2-1. Annotated Example of Level-1 Spooling (page 1 of 2)
! This program is an example of level-1 spooling. It consists of 3
! procedures: error, getline, and root, and it calls the
! Guardian procedures OPEN, CLOSE, WRITE, and STOP.
! error --this procedure handles I/O errors. It performs the
! necessary steps for recovery or it aborts the program.
! sperror --this procedure handles Spooler errors. It performs the
! necessary steps for recovery or it aborts the program. It has
! a single INT parameter that is the error code returned from a
! Spooler Interface Procedure.
! getline --this procedure returns a line of data for spooling.
! It is an INT procedure that returns a zero (FALSE) value when
! it has no data to spool. It has two parameters: line and
! length. line is a reference to a 40-word (80-byte) array.
! The array is filled with the line of data to be spooled.
! length is a reference to an INT that is set to the number of
! bytes to be written from line.
! root --this is the main procedure. It performs all the file
! management to the collector and calls the other procedures in
! the program as needed.
?nolist
INT counter := 0;
?SOURCE $SYSTEM.SYSTEM.EXTDECS(OPEN, CLOSE, WRITE, STOP)
PROC error;
BEGIN
CALL STOP;
END;
INT PROC getline( line, length);
INT .line,
.length;