Spooler Plus Programmer's Guide

Sample Perusal Process
Spooler Plus Programmer’s Guide—522293-003
B-3
BEGIN
INT msgcode;
STRUCT default;
BEGIN
INT volume[0:3],
subvolume[0:3];
END;
STRUCT infile;
BEGIN
INT volume[0:3],
subvolume[0:3],
dname [0:3];
END;
STRUCT outfile;
BEGIN
INT volume[0:3],
subvolume[0:3],
dname [0:3];
END;
STRING param [0:24];
END;
?page
! Global declarations
INT .termname [0:11] := [ 12 * [" "] ], ! contains the name of
! the user's terminal
.recname [0:11] := "$RECEIVE ", ! for reading Startup
! message
.supername [0:11] := "$SPLS ", ! file name of
! supervisor
.datafile[0:11], ! file name of collector's
! data file
termnum, ! file number for terminal
recnum, ! file number for $RECEIVE
supernum, ! file number for supervisor
datanum, ! file number for collector's data file
userid, ! executor's user ID
current^job, ! number of the current job
list^job, ! number of the job currently ready for
! listing
.message[0:63], ! these arrays are used by the
.jobbuff[0:559], ! print procedures to get a
.dline[0:449]; ! job's data
INT .iline [0:39] := 40 * [" "];
STRING .line := @iline '<<' 1; ! this is the string address of iline.
! The following lines show the external declarations used in this
! program. The actual source command has not been listed for brevity.
! The command itself is shown in the comment lines that follow.
!source $system.system.extdecs( spoolerequest, printinfo, printread,
! printstart, printreadcommand, fileinfo, numout, close, numin,
! spoolercommand, spoolerstatus, open, write, read, writeread,
! creatoraccessid, stop, myterm)
?nolist
?source $system.system.extdecs( spoolerequest, printinfo, printread,
? printstart, printreadcommand, fileinfo, numout, close, numin,