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 |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All
Print Page as PDF
Routine: %ZTM

Package: Kernel

Routine: %ZTM


Information

%ZTM ;SEA/RDS-TaskMan: Manager, Part 1 (Main Loop) ;10/02/08 09:00

Source Information

Source file <ZTM.m>

Call Graph

Call Graph

Call Graph Total: 9

Package Total Call Graph
Kernel 9 $$ACTJ^%ZOSV  REQP^%ZTLOAD3  HALT^%ZTM0  ^%ZTM1  XLINK^%ZTM2  LINK^%ZTM3  (DAY,HOUR,INHIBIT,PARAMS,REQUIR,UPDATE)^%ZTM5  ($$STOPWT,BALANCE,CHECK)^%ZTM6  
TOUCH^XUSCNT  

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: 25

Package Total Caller Graph
Kernel 25 %ZTLOAD2  %ZTLOAD3  %ZTM0  %ZTM2  %ZTM4  %ZTM5  %ZTMS0  %ZTMS2  
%ZTMS5  %ZTMS7  XUSRB4  XUTMG19  XUTMHR  XUTMK  XUTMKA  XUTMQ0  
XUTMQ1  XUTMQ2  XUTMR  XUTMTZ  XUTMUSE  ZTMON  ZTMON1  ZTMON2  
ZTMOVE  

Entry Points

Name Comments DBIA/ICR reference
LOOP ;Taskman's Main Loop
CHECK ;LOOP--Check Status And Update Loop Data
STATUS(ST,MSG) ;Record TM status
TLOCK(M) ;Lock/unlock the SCHQ node
SCHQ ;LOOP--Check Schedule List
S1
S2
SEND ;Send Task To Submanager
SCHX ;Clear all locks
IDLE ;LOOP--DEV Node Maintenance; Backup JOB Commands
IDLE1 ;only proceed with idle work if 60 seconds since last check
I1 ;clear out old DEV nodes
I2 ;job new submanagers cross-volume for each unfinished C list
MON ;Set Next %ZTMON each Hour
NEWJOB(ZTUCI,ZTDVOL,ZTNODE) ;Start a new Job
DIFF(N,O,T) ;Diff in sec.
OOS(BV) ;Check if Box-Volume is Out Of Service, Return 1 if OOS.
H3(%) ;Convert $H to seconds.
H0(%) ;Covert from seconds to $H
SUBOK() ;Check if sub's are starting, return 1 if OK
NEWSUB() ;See if we need a new submanager
TSKSTAT(CODE,MSG) ; Update task's status
DETACH ;Do slow work in background job
I5 ;Clean up %ZTSCH
I6 ;Check on persistent jobs, Locks can take time, Called from %ZTM0 at start.

External References

Name Field # of Occurrence
$$ACTJ^%ZOSV CHECK+31, NEWJOB+1
REQP^%ZTLOAD3 I6+3
HALT^%ZTM0 CHECK+3
^%ZTM1 S2+7
XLINK^%ZTM2 SEND+2
LINK^%ZTM3 CHECK+13
DAY^%ZTM5 MON+1
HOUR^%ZTM5 MON+4
INHIBIT^%ZTM5 CHECK+9, CHECK+10
PARAMS^%ZTM5 DETACH+1
REQUIR^%ZTM5 CHECK+11
UPDATE^%ZTM5 CHECK+7
$$STOPWT^%ZTM6 CHECK+24
BALANCE^%ZTM6 CHECK+20
CHECK^%ZTM6 CHECK+29
TOUCH^XUSCNT IDLE1+3

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^%ZIS(14.5 - [#14.5] CHECK+10
^%ZIS(14.6 - [#14.6] I2+9
^%ZIS(14.7 - [#14.7] OOS+2
^%ZTSCH( S1, S1+1!, S2, S2+1, S2+4!, I5+1, I5+4*!
^%ZTSCH("C" CHECK+23, SEND+11*, I2+1, I2+3, I2+4, I2+6, I2+8*
^%ZTSCH("DEV" I1+2, I1+3, I1+4!
^%ZTSCH("IDLE" IDLE+11, IDLE1+1, IDLE1+2*
^%ZTSCH("JOB" SEND+7*, IDLE+8
^%ZTSCH("JOBQ" SEND+4, SEND+13
^%ZTSCH("LINK" CHECK+13, I2+7
^%ZTSCH("RUN" CHECK+4*
^%ZTSCH("SCHQ" TLOCK+1, TLOCK+2, I5+2, I5+5
^%ZTSCH("STATUS" STATUS+5*
^%ZTSCH("STOP" CHECK+3, IDLE+4
^%ZTSCH("SUB" SUBOK+1, SUBOK+2*, SUBOK+3, SUBOK+4, NEWSUB+2, NEWSUB+3, NEWSUB+4
^%ZTSCH("TASK" I6+1, I6+2, I6+3, I6+4!, I6+5
^%ZTSCH("UPDATE" CHECK+7
^%ZTSCH("WAIT" CHECK+5
^%ZTSK - [#14.4] S2+3, S2+5, S2+6, S2+8, SEND+13, TSKSTAT+1*

Label References

Name Line Occurrences
$$DIFF CHECK+13, IDLE1+1, I1+4
$$H3 CHECK+4, SCHQ+1, I5+4
$$NEWSUB SEND+15, IDLE+6
$$OOS SEND+15, I2+7
$$TLOCK SCHQ+2
CHECK LOOP+2, CHECK+5, CHECK+8, CHECK+9, CHECK+11, CHECK+16
I1 IDLE1+4
I2 IDLE1+4
I5 DETACH+2
I6 DETACH+2
IDLE LOOP+2
IDLE1 IDLE+11
LOOP LOOP+3
MON IDLE+2
NEWJOB CHECK+23, SEND+15, IDLE+6, IDLE+9, I2+10
S1 S1+1, S2
S2 S2+3
SCHQ LOOP+2
SCHX SEND+2
STATUS CHECK+5, CHECK+8, CHECK+9, CHECK+11, CHECK+21, CHECK+27, CHECK+29, NEWJOB+3
TLOCK S1, S2+4
TSKSTAT S2+5, S2+6, SEND+6, SEND+9

Naked Globals

Name Field # of Occurrence
^( I5+4
^("LINK" CHECK+13

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% OOS+1~, OOS+2*, OOS+3, H3~, H3+1, H0~, H0+1
>> %ZTCHK LOOP+1*, LOOP+2, CHECK+2, SCHQ+1*, SEND+1*
>> %ZTFALL LOOP+3*
>> %ZTIME CHECK+4*, CHECK+18, CHECK+19, STATUS+4, STATUS+6, SCHQ+1*, S1, IDLE+2, IDLE1+1, IDLE1+2
, I1+4
%ZTIO I1+1~*, I1+2*, I1+3, I1+4
>> %ZTJOB NEWJOB+5
>> %ZTLKTM TLOCK+1, IDLE+11, I5+2, I6+2
>> %ZTLOOP LOOP+2*, CHECK+2
>> %ZTMON S2+10, MON+2*, MON+3
>> %ZTMON( S2+10*, MON+2*
>> %ZTMON("DAY" MON+1
>> %ZTMON("NEXT" IDLE+2, MON+3*
>> %ZTNLG CHECK+9
>> %ZTNODE SEND+5
>> %ZTPAIR CHECK+3, CHECK+23, STATUS+5, IDLE+4, IDLE+11, SUBOK+1, SUBOK+2, SUBOK+3, SUBOK+4, NEWSUB+2
, NEWSUB+3, NEWSUB+4
>> %ZTPFLG("BAL" CHECK+16
>> %ZTPFLG("BI" CHECK+19, CHECK+24
>> %ZTPFLG("JLC" CHECK+30*, CHECK+31
>> %ZTPFLG("LBT" CHECK+18, CHECK+19*
>> %ZTPFLG("MINSUB" NEWSUB+5
>> %ZTPFLG("Status" STATUS+4, STATUS+6*
>> %ZTPFLG("StatusM" STATUS+3, STATUS+6*
>> %ZTPFLG("XUSCNT" IDLE1+3
>> %ZTREJCT S2+8
>> %ZTRUN LOOP+1*, CHECK+27, CHECK+28, CHECK+31*, NEWJOB+1*, NEWJOB+3
>> %ZTSLO NEWJOB+5
>> %ZTUCI CHECK+23, IDLE+6, IDLE+9
>> %ZTVLI CHECK+8
>> %ZTVMJ CHECK+31, NEWJOB+1
>> %ZTVOL CHECK+10, CHECK+23, SEND+2, IDLE+6, IDLE+9
%ZTVS I6+7!
BV OOS~, OOS+1, OOS+2
C IDLE+1~, IDLE+8*, IDLE+9*
CODE TSKSTAT~, TSKSTAT+1
F STATUS+1~, STATUS+3*, STATUS+4
IO SCHQ+1*, SEND+7, SEND+11
M TLOCK~, TLOCK+1
MSG STATUS~, STATUS+3, STATUS+5, STATUS+6, TSKSTAT~, TSKSTAT+1
N DIFF~, DIFF+1, DIFF+2
O DIFF~, DIFF+1, DIFF+2
R IDLE+1~, IDLE+8*, IDLE+9*
ST STATUS~, STATUS+5
SUBS NEWSUB+1~, NEWSUB+3*, NEWSUB+5
T CHECK+24~*, IDLE+1~, IDLE+8*, IDLE+9, DIFF~, DIFF+1, SUBOK+1~*, SUBOK+3, NEWSUB+1~, NEWSUB+2*
, NEWSUB+4
U S2+6, OOS+3, TSKSTAT+1
X I1+1~, I1+3*, I1+4, I2+6*, I2+7, I2+8, I5+3~, I5+4*
Y I2+2~
>> ZTCVOL IDLE+3*
>> ZTDTH SCHQ+1*, S1*, S1+1, S2, S2+1, S2+4, SEND+7, SEND+11, I5+1*, I5+4
ZTDVOL SEND+2, SEND+10, SEND+15, I2+5*, I2+7, I2+9, I2+10, NEWJOB~, NEWJOB+4*
>> ZTJOBIT SEND+2
ZTNODE SEND+5, SEND+10, SEND+15, I2+2~, I2+5*, I2+10, NEWJOB~, NEWJOB+4*
>> ZTOVERLD CHECK+16, CHECK+17*, CHECK+20
>> ZTPAIR CHECK+4*, SEND+1*, SEND+10*, SEND+11, SEND+15
>> ZTREC IDLE+3*
ZTREP SCHX+1!
>> ZTREQUIR CHECK+11
ZTSK SCHQ+1*, S1*, S2*, S2+1, S2+3, S2+4, S2+5, S2+6, S2+8, SEND+7
, SEND+11, SEND+13, TSKSTAT+1, I5+3~, I5+4*, I6+1*, I6+2, I6+3, I6+4, I6+5
>> ZTST S2+1*
ZTUCI SEND+15, I2+2~, I2+9*, I2+10, NEWJOB~, NEWJOB+4*
ZTVOL I2+2~, I2+3*, I2+4, I2+5, I2+6, I2+7, I2+8
>> ZTYPE SEND+5, SEND+15
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All