Spooler Plus Programmer's Guide

Sample Print Process
Spooler Plus Programmer’s Guide—522293-003
A-3
FORWARD;
PROC close^dev (device);
INT .device;
FORWARD;
PROC start^job (device, data^file^name, job^num, location, formname,
reportname, flags, params, dev^width, page^size);
INT .device,
.data^file^name,
job^num,
.location,
.formname,
.reportname,
flags,
params,
dev^width,
page^size;
FORWARD;
PROC init^job;
FORWARD;
PROC stop^job (device, error);
INT .device,
error;
FORWARD;
PROC req^stop^job (device);
INT .device;
FORWARD;
PROC resume^job (device);
INT .device;
FORWARD;
PROC suspend^job (device);
INT .device;
FORWARD;
PROC align^form (device);
INT .device;
FORWARD;
PROC skip^to^page (skip^num, device);
INT skip^num,
.device;
FORWARD;
PROC skip^page (skip^num, device);
INT skip^num,
.device;
FORWARD;
PROC send^status (device);
INT .device;
FORWARD;
PROC main^loop;
FORWARD;
! *===================================================================*
!- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
! procedure name: OPENFILE
! parameters: FNAME - name of the file to open
! FNUM - file number returned to the calling routine
! FLAGS - open flags
! description: This procedure is the same as the Guardian file-
! system procedure "OPEN", plus a check of the returned
! condition code. Returns a Guardian file-system error
! number if condition code < 0.
!- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
INT PROC openfile (fname, fnum, flags) VARIABLE;
INT .fname,
.fnum,
flags;
BEGIN