COBOL Manual for TNS and TNS/R Programs

Printer and Spooler Output
HP COBOL Manual for TNS and TNS/R Programs—522555-006
30-17
Using SPOOLCOM
For two jobs, SPOOLCOM requires more keystrokes than PERUSE, but suppose you
wanted to delete all your jobs created on or before January 11. The SPOOLCOM
command for that is:
JOB (OWNER, DATE THRU JAN 11 1997), DELETE!
Similarly, you can delete all jobs whose current location is #ANON by using the
command:
JOB (OWNER, LOC #ANON), DELETE!
You can delete all jobs whose current state is HOLD by using the command:
JOB (OWNER, STATE HOLD), DELETE!
If you want the spooler to print one copy each job in a certain set but direct them to
another user at another spooler location, and delete those jobs after they are printed,
you can give the command:
JOB (OWNER, LOC #ANON), HOLD, REPORT DEVELOP LEE, HOLDAFTER OFF, LOC #PRT.A,
START
DEV
The SPOOLCOM command DEV is useful for discovering what devices are configured
for your spooler, and for skipping pages on a spooler job. If you give SPOOLCOM a
simple DEV command with no parameters, you get a report like this:
DEVICE STATE FLAGS PROC FORM
$LP1 JOB 159 H $SPLP
$LP2 WAITING ET $SPLP RED
$SPECL.#TYPE1 WAITING H !T $SPLP
$SPECL.#TYPE2 WAITING H ! $SPLP
\ARIES.$S WAITING H $SPLX
\VIRGO.$S WAITING H $SPLX
This report shows:
•
Two print devices, $LP1 (which is printing job 159) and $LP2 (which is free, but
has a form name established, so the spooler routes only jobs with the form name
RED to $LP2)
•
Two print processes, $SPLP and $SPLX
•
A device named $SPECL that apparently performs at least two distinct services
(selected by the specification #TYPE1 or #TYPE2, which the $SPECL process
obtains from its open message), which is free
•
The spooler is configured to enable you to send jobs to spooler collectors on two
other systems—\ARIES and \VIRGO, which are free.
Suppose you have a 100-page report in the spooler and you want to print its last 3
pages on $LP1. First, use either PERUSE or the SPOOLCOM JOB command to get
the job printing on $LP1. Then use this form of the DEV command:
DEV $LP1, SKIPTO 98