Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls
Print Page as PDF
Routine: ZTMON2

Package: Kernel

Routine: ZTMON2


Information

ZTMON2 ;SEA/RDS-TaskMan: Option, ZTMON, Part 1 (Main Loop) ;2/19/08 13:36

Source Information

Source file <ZTMON2.m>

Entry Points

Name Comments DBIA/ICR reference
ENV ;Main Entry Point For Taskman Status Monitor
RUN ;Evaluate RUN-Node
STATUS ;Evaluate Status List
SCHQ ;Evaluate Schedule List
CONT ;Continued
OVERDUE(X1) ;Write how overdue the oldest task is
JOB ;Evaluate Job List
C ;Evaluate Cross CPU list
TASK ;Evaluate Task List
SUB ;Look for idle submanagers
DONE ;Prompt to Quit Or Continue
H3(%) ;Convert $H to seconds.
CALL(RTN) ;Check for called routine
LIST ;Check for tasks in stat 3.
STIME(%H) ;Status time

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: ENV+4
Function Call: WRITE
  • Prompt: @IOF,!,"Checking Taskman."
  • Line Location: RUN+1
Function Call: WRITE
  • Prompt: ?20,"Current $H=",ZTH," (",$$HTE^%ZTLOAD7(ZTH),")"
  • Line Location: RUN+5
Function Call: WRITE
  • Prompt: !,?22,"RUN NODE=",$S(ZTR]"":ZTR,1:"<Undefined>")
  • Line Location: RUN+6
Function Call: WRITE
  • Prompt: " (",$$HTE^%ZTLOAD7(ZTR),")"
  • Line Location: RUN+6
Function Call: WRITE
  • Prompt: !,"Taskman is ",$S(ZTY:"current.",ZTR]"":"late by "_(ZTD-15)_" seconds."_$C(7),$D(^%ZTSCH("STATUS")):"shutting down.",1:"not running."_$C(7))
  • Line Location: RUN+7
Function Call: WRITE
  • Prompt: !,"Did not get a LOCK on ^%ZTSCH(""LOAD"")"
  • Line Location: STATUS+2
Function Call: WRITE
  • Prompt: !,"Checking the Status List:",!," Taskman $J status",?22,"time",?33,"weight node"
  • Line Location: STATUS+5
Function Call: WRITE
  • Prompt: !?2,ZT1
  • Line Location: STATUS+7
Function Call: WRITE
  • Prompt: ?13,$P(%,U,2),?22,$$STIME($P(%,U))
  • Line Location: STATUS+7
Function Call: WRITE
  • Prompt: ?32," ",$J($P(ZTC(ZT1),U,2),4)
  • Condition for execution: $D(ZTC(ZT1))
  • Line Location: STATUS+7
Function Call: WRITE
  • Prompt: ?39," ",$P(%,U,3)
  • Line Location: STATUS+7
Function Call: WRITE
  • Prompt: !?5,"The Status List is ",$S(ZTY:"temporarily ",1:""),"empty."
  • Line Location: STATUS+9
Function Call: WRITE
  • Prompt: !!,"Checking the Schedule List:"
  • Line Location: SCHQ+1
Function Call: WRITE
  • Prompt: !?5,"Taskman has ",$S('ZTC:"no",1:ZTC)," task",$S(ZTC'=1:"s",1:"")," scheduled."
  • Line Location: SCHQ+8
Function Call: WRITE
  • Prompt: *7
  • Condition for execution: ZTCO>10
  • Line Location: SCHQ+10
Function Call: WRITE
  • Prompt: !!,"Checking the Job List:"
  • Line Location: JOB+1
Function Call: WRITE
  • Prompt: !," Did not get the 'JOBQ' lock."
  • Line Location: JOB+4
Function Call: WRITE
  • Prompt: $C(7)
  • Condition for execution: ZTC>20
  • Line Location: JOB+7
Function Call: WRITE
  • Prompt: !?5,"For ",ZT1," there ",$S(ZTCO=1:"is ",1:"are "),ZTCO," tasks. "
  • Line Location: C+5
Function Call: WRITE
  • Prompt: !!,"Checking the Task List:"
  • Line Location: TASK+1
Function Call: WRITE
  • Prompt: !?5,"There ",$S(ZTC=0:"are no tasks",ZTC=1:"is 1 task",1:"are "_ZTC_" tasks")," currently running."
  • Line Location: TASK+3
Function Call: WRITE
  • Prompt: !!,"Sub-manager wait detail:"
  • Line Location: SUB+2
Function Call: WRITE
  • Prompt: !,"Node: ",%N
  • Line Location: SUB+5
Function Call: WRITE
  • Prompt: !,?5,"Job: ",ZT1
  • Line Location: SUB+10
Function Call: WRITE
  • Prompt: " Didn't hold the lock, Removed from table."
  • Line Location: SUB+14
Function Call: WRITE
  • Prompt: " Last timestamp >30 sec old, Removed."
  • Line Location: SUB+17
Function Call: WRITE
  • Prompt: " ",ZT2-ZT3," ",$S($L(ZT5):" Status: "_ZT5,1:" Looks good.")
  • Line Location: SUB+18
Function Call: WRITE
  • Prompt: " ",$S(+ZT4:"Wait",1:"Run")
  • Line Location: SUB+21
Function Call: WRITE
  • Prompt: !?10,"SUB-MANAGERS ARE NOT STARTING."
  • Line Location: SUB+22
Function Call: WRITE
  • Prompt: !!,"Enter monitor action: UPDATE// "
  • Line Location: DONE+1
Function Call: READ
  • Variable: ZTR
  • Timeout: $S($D(DTIME)#2:DTIME,1:60)
  • Line Location: DONE+2
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: DONE+4
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: DONE+5
Function Call: WRITE
  • Prompt: !!
  • Line Location: DONE+6
Function Call: WRITE
  • Prompt: !!,"OK"
  • Line Location: DONE+7
Function Call: WRITE
  • Prompt: !!?5,"Enter <RETURN> to update the monitor screen."
  • Line Location: DONE+11
Function Call: WRITE
  • Prompt: !?5,"Enter ^ to exit the monitor."
  • Line Location: DONE+12
Function Call: WRITE
  • Prompt: !?5,"Enter E to inspect the TaskMan Error file."
  • Line Location: DONE+13
Function Call: WRITE
  • Prompt: !?5,"Enter L to see task's in JOB pending status"
  • Line Location: DONE+14
Function Call: WRITE
  • Prompt: !?5,"Enter P to see Taskman parameters"
  • Line Location: DONE+15
Function Call: WRITE
  • Prompt: !?5,"Enter S to see a system status listing."
  • Line Location: DONE+16
Function Call: WRITE
  • Prompt: !?5,"Enter D to cause Taskman to ReRead it parameters."
  • Line Location: DONE+17
Function Call: WRITE
  • Prompt: !?5,"Enter ? to see this message."
  • Line Location: DONE+18
Function Call: WRITE
  • Prompt: !?5,"Enter ?? to inspect the tasks in the monitor's lists."
  • Line Location: DONE+19
Function Call: WRITE
  • Prompt: !,"In the wrong account."
  • Line Location: CALL+2
Function Call: WRITE
  • Prompt: "Done",!
  • Line Location: LIST+5
Info |  Source |  Entry Points |  Interaction Calls