Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All
Print Page as PDF
Routine: ZISPQ

Package: Kernel

Routine: ZISPQ


Information

ZISPQ ;IRMFO-ALB/CJM - DEVICE HANDLER PRINT QUEUES;10/05/2011 ;08/01/2012

Source Information

Source file <ZISPQ.m>

Call Graph

Call Graph

Call Graph Total: 7

Package Total Call Graph
Kernel 6 O^%ZIS4  $$CHKNM^%ZISF  ($$OS,$$PRI)^%ZOSV  ($$FMADD,$$FMTE,$$NOW)^XLFDT  ($$INVERT,$$LJ,$$REPLACE,$$TRIM)^XLFSTR  ($$ADD,DELETE,UPD)^ZISFM  
VA FileMan 1 EN^DDIOL  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 6

Package Total Caller Graph
Kernel 6 %ZIS2  %ZIS6  %ZISC  XU PURGE PRINT QUEUE HFS FILES  ^%ZIS(3.52  ^DIC(19  

Entry Points

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

External References

Name Field # of Occurrence
O^%ZIS4 OPEN+18
$$CHKNM^%ZISF DIR+4
$$OS^%ZOSV QEXIST+11, OPEN+9, DIR+5, PRINT+9, FEXIST+2, FDELETE+1, DEQUEUE+1
$$PRI^%ZOSV DIR+3, NEWJOB+17, GETPQ+10, PURGE+11
EN^DDIOL ID+7
$$FMADD^XLFDT PURGE+7, PURGE+8, PURGE+9
$$FMTE^XLFDT ID+5
$$NOW^XLFDT NEWJOB+17, STATUS+15, STATUS+16, PURGE+3
$$INVERT^XLFSTR LPRINT+12
$$LJ^XLFSTR ID+4
$$REPLACE^XLFSTR REPLACE+3
$$TRIM^XLFSTR LPRINT+12
$$ADD^ZISFM NEWJOB+18
DELETE^ZISFM JDELETE+1
UPD^ZISFM NEWJOB+25, STATUS+17

Interaction Calls

Name Line Occurrences
Function Call: READ
  • Variable: RESULTS
  • Timeout: 2
  • Line Location: LQEXIST+4
Function Call: READ
  • Variable: RESULT
  • Timeout: 5
  • Line Location: LPRINT+12

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^%ZIS("lock" OPEN+17
^%ZIS(1 - [#3.5] GETPQ+10, GETPQ+11, STOPPED+2
^%ZIS(3.52 - [#3.52] STATUS+12, STATUS+16, PURGE+18, PURGE+19, PURGE+20, PURGE+28, PURGE+31, PURGE+33, PURGE+34, PURGE+36!
PURGE+42, PURGE+44, PURGE+45, PURGE+46, PURGE+48!, GETJOB+6
^%ZOSF("UCI" UCI+2
^VA(200 - [#200] ID+4
^XTV(8989.3 - [#8989.3] DIR+4

Label References

Name Line Occurrences
$$DIR NEWJOB+26, GETJOB+12
$$FEXIST OPEN+16, PURGE+24, PURGE+38
$$GETIEN STATUS+10, GETJOB+3
$$GETJOB PRINT+8, PURGE+22, PURGE+36, PURGE+48
$$GETPQ QEXIST+9, NEWJOB+14
$$LDEQUEUE DEQUEUE+2
$$LFEXIST FEXIST+3
$$LPRINT PRINT+10
$$LQEXIST QEXIST+12
$$NEWJOB OPEN+14
$$PRINT CLOSE+9
$$REPLACE LQEXIST+3, LPRINT+4, LFEXIST+2, LFDELETE+2, LDEQUEUE+2
$$STATUS CLOSE+4
$$STOPPED PURGE+29, PURGE+43
$$UCI NEWJOB+24, GETIEN+1
$$VDEQUEUE DEQUEUE+3
$$VFEXIST FEXIST+4
$$VPRINT PRINT+11
$$VQEXIST QEXIST+13
FDELETE OPEN+16, PURGE+38
JDELETE PURGE+50
LFDELETE FDELETE+2
STATUS OPEN+19, CLOSE+11, PURGE+24, PURGE+38
VFDELETE FDELETE+3

Naked Globals

Name Field # of Occurrence
^(0 ID+2, ID+3

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> %E OPEN+14
>> %ZIS OPEN+5
>> %ZIS( PURGE+13, PURGE+52
>> %ZIS("IOPAR" OPEN+6!
>> %ZIS("IOUPAR" OPEN+6!
>> %ZISB OPEN+5
>> %ZISLOCK OPEN+17*
>> %ZISOPAR OPEN+10*, OPEN+12*
>> %ZISTO OPEN+7*
>> %ZISUPAR OPEN+13*
>> %ZTIME OPEN+8*
CMD VQEXIST+3~, VQEXIST+4*, VQEXIST+5*, VQEXIST+6, LQEXIST+1~, LQEXIST+3*, LQEXIST+4, LPRINT+1~, LPRINT+3*, LPRINT+4*
, LPRINT+6, VPRINT+2~, VPRINT+4*, VPRINT+5*, VPRINT+6, VPRINT+13*, VPRINT+15, VFEXIST+1~, VFEXIST+2*, VFEXIST+3*
, VFEXIST+4, LFEXIST+1~, LFEXIST+2*, LFEXIST+3, VFDELETE+1~, VFDELETE+3*, VFDELETE+4, LFDELETE+1~, LFDELETE+2*, LFDELETE+3
, LDEQUEUE+1~, LDEQUEUE+2*, LDEQUEUE+3
CODE DIR~, DIR+3*, DIR+4
DATA NEWJOB+10~, NEWJOB+18, NEWJOB+25, STATUS+8~, STATUS+17
DATA( NEWJOB+17*, NEWJOB+22*, NEWJOB+24*, NEWJOB+26, STATUS+13*, STATUS+14*, STATUS+15*, STATUS+16*
DATE ID+1~, ID+3*, ID+5*, ID+6
DEVICE QEXIST~, QEXIST+9, NEWJOB~, NEWJOB+11, NEWJOB+14, NEWJOB+17, GETPQ~, GETPQ+6, GETPQ+10, GETPQ+11
PURGE+2~, PURGE+17*, PURGE+18*, PURGE+19, PURGE+20, PURGE+27*, PURGE+28*, PURGE+29, PURGE+31, PURGE+33
PURGE+34, PURGE+36, PURGE+41*, PURGE+42*, PURGE+43, PURGE+44, PURGE+45, PURGE+46, PURGE+48, STOPPED~
, STOPPED+2
DIR DIR+2~, DIR+4*, DIR+6*, DIR+8*, DIR+9*, DIR+10, NEWJOB+10~, PURGE+2~, PURGE+11*, PURGE+13
PURGE+18, PURGE+19, PURGE+20, PURGE+28, PURGE+31, PURGE+33, PURGE+34, PURGE+36, PURGE+42, PURGE+44
PURGE+45, PURGE+46, PURGE+48, PURGE+52, GETJOB+1~, GETJOB+11*, GETJOB+12*, GETJOB+13
DUZ OPEN+14, NEWJOB~, NEWJOB+17
EOF LQEXIST+1~, LQEXIST+2*, LQEXIST+6*, LPRINT+1~, LPRINT+5*, LPRINT+13*
ERROR NEWJOB+18, NEWJOB+25, STATUS+8~, STATUS+17
FILE PRINT~, PRINT+7, PRINT+10, PRINT+11, LPRINT~, LPRINT+3, LPRINT+10, VPRINT~, VPRINT+13, GETJOB+1~
, GETJOB+10*, GETJOB+13*, GETJOB+14, FEXIST~, FEXIST+3, FEXIST+4, VFEXIST~, VFEXIST+2, LFEXIST~, LFEXIST+2
, FDELETE~, FDELETE+2, FDELETE+3, VFDELETE~, VFDELETE+2*, VFDELETE+3, LFDELETE~, LFDELETE+2, GETIEN~, GETIEN+1
I NEWJOB+10~
ID ID+1~, ID+6*, ID+7
IEN STATUS+8~, STATUS+10*, STATUS+11, STATUS+12, STATUS+16, STATUS+17, PURGE+2~, PURGE+20*, PURGE+21, PURGE+34*
PURGE+35, PURGE+36, PURGE+46*, PURGE+47, PURGE+48, PURGE+50, GETJOB+1~, GETJOB+2*, GETJOB+3*, GETJOB+4
, GETJOB+5, GETJOB+6, JDELETE~, JDELETE+1
IO OPEN+14*, OPEN+15, OPEN+16, OPEN+17, OPEN+19, STATUS~, STATUS+9, STATUS+10, CLOSE~, CLOSE+4
, CLOSE+9, CLOSE+11
>> IOP OPEN+4
JOB NEWJOB+10~, NEWJOB+18*, NEWJOB+19, NEWJOB+24, NEWJOB+25, PRINT+6~, PRINT+7*, PRINT+8, PURGE+21~*, PURGE+22
PURGE+35~*, PURGE+36, PURGE+47~*, PURGE+48, GETJOB~, GETJOB+2
JOB("FILE" PURGE+24, PURGE+38, GETJOB+14*
JOB("ID" GETJOB+9*
JOB("IEN" GETJOB+5*
JOB("QUEUE" PRINT+10, PRINT+11, GETJOB+8*
JOBID STATUS~, STATUS+13, CLOSE+2~, CLOSE+9, CLOSE+11, PRINT~, PRINT+10, PRINT+11, LPRINT~, LPRINT+2*
, LPRINT+12*, VPRINT~, VPRINT+3*, VPRINT+16*, VPRINT+17, VPRINT+18, DEQUEUE~, DEQUEUE+2, DEQUEUE+3, VDEQUEUE~
, VDEQUEUE+1, LDEQUEUE~, LDEQUEUE+2
NAME LPRINT+9~, LPRINT+10*, LPRINT+12, ID+1~, ID+2*, ID+4*, ID+6
NODE GETJOB+1~, GETJOB+6*, GETJOB+7, GETJOB+8, GETJOB+9, GETJOB+10, GETJOB+11
NOPASS VPRINT+2~, VPRINT+8*, VPRINT+10
NOW PURGE+2~, PURGE+3*, PURGE+7, PURGE+8, PURGE+9
OS QEXIST+8~, QEXIST+11*, QEXIST+12, QEXIST+13, PRINT+6~, PRINT+9*, PRINT+10, PRINT+11, FEXIST+2~*, FEXIST+3
, FEXIST+4, FDELETE+1~*, FDELETE+2, FDELETE+3, DEQUEUE+1~*, DEQUEUE+2, DEQUEUE+3
PASS VPRINT+2~, VPRINT+10*, VPRINT+13
>> POP OPEN+5, OPEN+19, NEWJOB+11*, NEWJOB+15*
PQ QEXIST+8~, QEXIST+9*, QEXIST+10, QEXIST+12, QEXIST+13, NEWJOB+10~, NEWJOB+14*, NEWJOB+15, NEWJOB+17, GETPQ+7~
, GETPQ+10*, GETPQ+11*, GETPQ+14*, GETPQ+15*, GETPQ+16*, GETPQ+18
Q VQEXIST~, VQEXIST+4, LQEXIST~, LQEXIST+3, LPRINT~, LPRINT+3, VPRINT~, VPRINT+4, VPRINT+13
QUEUE DEQUEUE~, DEQUEUE+2, DEQUEUE+3, VDEQUEUE~, VDEQUEUE+1, LDEQUEUE~, LDEQUEUE+2
REPLACE REPLACE+1~, REPLACE+3
REPLACE( REPLACE+2*
RESULT LPRINT+1~, LPRINT+7*, LPRINT+8, LPRINT+12*
RESULTS LQEXIST+1~, LQEXIST+4*, LQEXIST+5
RET VQEXIST+3~, VQEXIST+7*, VQEXIST+9, LQEXIST+1~, LQEXIST+5*, LQEXIST+7, LPRINT+1~, LPRINT+2*, LPRINT+11*, LPRINT+14
, VPRINT+2~, VPRINT+3*, STOPPED+1~, STOPPED+2*, STOPPED+3, VFEXIST+1~, VFEXIST+5*, VFEXIST+7
STATUS STATUS~, STATUS+12, STATUS+14, STATUS+15, STATUS+16, STATUS+18, CLOSE+2~, CLOSE+4*, CLOSE+7, CLOSE+9*
, CLOSE+10*, CLOSE+11, PURGE+2~, PURGE+16*, PURGE+19, PURGE+20, PURGE+30*, PURGE+31*, PURGE+33, PURGE+34
PURGE+36, PURGE+44*, PURGE+45, PURGE+46, PURGE+48
STRING REPLACE~, REPLACE+3
SUB1 REPLACE~, REPLACE+2
SUB2 REPLACE~, REPLACE+2
T1 PURGE+2~, PURGE+7*, PURGE+19
T2 PURGE+2~, PURGE+8*, PURGE+19, PURGE+33
T3 PURGE+2~, PURGE+9*, PURGE+45
TIME PURGE+2~, PURGE+19*, PURGE+20, PURGE+32*, PURGE+33*, PURGE+34, PURGE+36, PURGE+45*, PURGE+46, PURGE+48
Y UCI+1~, UCI+3
>> ZTREQ PURGE+4*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All