ZISPQ ;IRMFO-ALB/CJM - DEVICE HANDLER PRINT QUEUES;10/05/2011 ;08/01/2012
Source file <ZISPQ.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| QEXIST(DEVICE) | ;
|
|
| OPEN | ;called from PQ^%ZIS6
|
|
| DIR(CODE) | ;get directory for printer queues, a subdirectory of host file directory
|
|
| NEWJOB(DEVICE,DUZ) | ;
|
|
| STATUS(IO,STATUS,JOBID) | ;Set the status of the PRINT QUEUE JOB
|
|
| CLOSE(IO) | ;Called from ^%ZISC. Closes the host file and passes it to the print queue
|
|
| VQEXIST(Q) | ; Tests if queue exists on this node - VMS
|
|
| LQEXIST(Q) | ; Tests if queue exists - LINUX
|
|
| PRINT(FILE,JOBID) | ;Submits the file to be printed.
|
|
| LPRINT(FILE,Q,JOBID) | ;
|
|
| VPRINT(FILE,Q,JOBID) | ; VMS Print
|
|
| GETPQ(DEVICE) | ;
|
|
| REPLACE(STRING,SUB1,SUB2) | ;
|
|
| ID | ;identifier logic on the PRINT QUEUES JOB file
|
|
| PURGE | ;Purge of PRINT JOB QUEUES (file #3.52) and old host files that were queued. Also updates status on a regular basis.
|
|
| GETJOB(JOB) | ;returns job info (file 3.52). Input JOB=ien OR the name of the host file, returns .JOB array with job's fields
|
|
| STOPPED(DEVICE) | ;was purging suspended for this device?
|
|
| FEXIST(FILE) | ;returns 1 if the file exists, 0 otherwise
|
|
| VFEXIST(FILE) | ;checks file's existance - VMS
|
|
| LFEXIST(FILE) | ;checks file's existance - Linux,Unix
|
|
| FDELETE(FILE) | ;delete file
|
|
| VFDELETE(FILE) | ;delete file - VMS
|
|
| LFDELETE(FILE) | ;delete file - Linux,Unix
|
|
| JDELETE(IEN) | ;delete the job, file #3.52
|
|
| DEQUEUE(JOBID,QUEUE) | ;Remove a job from a queue
|
|
| VDEQUEUE(JOBID,QUEUE) | ;Remove a job from a queue - VMS
|
|
| LDEQUEUE(JOBID,QUEUE) | ;Remove a job from a queue - Linux, Unix
|
|
| UCI() | ;return the UCI
|
|
| GETIEN(FILE) | ;given the file name, parses out the ien and returns it
|
| Name | Line Occurrences |
|---|---|
| Function Call: READ |
|
| Function Call: READ |
|
