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

Package: Kernel

Routine: ZTMKU


Information

ZTMKU ;SEA/RDS-Taskman: Option, ZTMWAIT/RUN/STOP ;01/05/09 16:07

Source Information

Source file <ZTMKU.m>

Entry Points

Name Comments DBIA/ICR reference
MENU ;
RUN ;Remove Task Managers From WAIT State
UPDATE ;Have Managers Do an parameter Update
WAIT ;Put Task Managers In WAIT State
STOP ;Shut Down Task Managers
SSUB(NODE) ;Stop sub-managers
SMAN(NODE) ;stop managers
SS(MD,GR,NODE) ;Set/clear STOP nodes.
WS(MD,GR) ;Set/Clear Wait state
GROUP(CALL) ;Do CALL for each node, use NODE as the parameter
OPT(MD) ;Disable/Enable option prosessing
ASKACT ;Ask if active Tasks should be signaled to stop.
STPACT ;Set the STOP flag for all ACTIVE Tasks.
QSUB
QUERY ;Query Status Of A Task Manager
NODES ;Return Task Manager Status Nodes
LIVE ;Return Whether A Task Manager Is Live
TABLE ;Display Task Manager Table
CLEAN ;Cleanup Status Node
PURGE ;Purge the TASK list of running tasks.
ZTM ;Return Number Of Live Task Managers
UP(X) ;Convert to Uppercase
T ;Print Informal-format Conversion Of $H-format Date ; Input: %ZTT, DT.

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"TaskMan removed from 'WAIT STATE'.",!
  • Line Location: RUN+1
Function Call: WRITE
  • Prompt: !,"Managers will update parameters.",!
  • Line Location: UPDATE+2
Function Call: WRITE
  • Prompt: !,"TaskMan now in 'WAIT STATE'",$C(7)
  • Line Location: WAIT+1
Function Call: READ
  • Formatting: !!
  • Prompt: "Are you sure you want to stop TaskMan? NO// "
  • Variable: ZTX
  • Timeout: $S($D(DTIME)#2:DTIME,1:60)
  • Line Location: STOP+2
Function Call: WRITE
  • Prompt: !,"Answer YES to shut down all Task Managers on current the volume set."
  • Line Location: STOP+2
Function Call: WRITE
  • Prompt: !,"TaskMan NOT shut down."
  • Line Location: STOP+3
Function Call: WRITE
  • Prompt: !,"Shutting down TaskMan."
  • Line Location: STOP+4
Function Call: READ
  • Formatting: !!
  • Prompt: "Should active jobs be signaled to stop? NO// "
  • Variable: ZTX
  • Timeout: $G(DTIME,60)
  • Line Location: ASKACT+2
Function Call: WRITE
  • Prompt: !,"Answer YES to set the STOP flag for active tasks.",!,"Tasks need to call $$S^%ZTLOAD to get the signal."
  • Line Location: ASKACT+2
Function Call: WRITE
  • Prompt: !,"Tasks NOT signaled to shut down."
  • Line Location: ASKACT+3
Function Call: WRITE
  • Prompt: !!,"Signaling active Tasks to STOP."
  • Line Location: ASKACT+4
Function Call: WRITE
  • Prompt: !,"Done."
  • Line Location: ASKACT+5
Function Call: WRITE
  • Prompt: !,"TASK: ",ZTI," Stop status: ",ZT2
  • Line Location: STPACT+3
Function Call: READ
  • Formatting: !!
  • Prompt: "Should active submanagers shut down after finishing their current tasks? NO// "
  • Variable: ZTX
  • Timeout: $S($D(DTIME)#2:DTIME,1:60)
  • Line Location: QSUB+1
Function Call: WRITE
  • Prompt: !,"Please answer YES or NO."
  • Line Location: QSUB+1
Function Call: WRITE
  • Prompt: !,"Okay!",!
  • Line Location: QSUB+2
Function Call: WRITE
  • Prompt: !,"JOB NUMBER",?15,"STATUS",?25,"DESCRIPTION",?55,"LAST UPDATED",?75,"LIVE"
  • Line Location: TABLE+1
Function Call: WRITE
  • Prompt: !,"----------",?15,"------",?25,"-----------",?55,"------------",?75,"----"
  • Line Location: TABLE+2
Function Call: WRITE
  • Prompt: !,%ZTY(%ZTI),?15,$P(%ZTY,U,2),?25,$P(%ZTY,U,3),?55
  • Line Location: TABLE+4
Function Call: WRITE
  • Prompt: ?75,$S(%ZTY:"YES",1:"NO")
  • Line Location: TABLE+4
Function Call: WRITE
  • Prompt: !?6,"Total:",$J(%ZTZ,3),!?6,"Live :",$J(%ZTZ1,3)
  • Line Location: TABLE+5
Function Call: WRITE
  • Prompt: !,"Done!",!
  • Line Location: CLEAN+1
Function Call: WRITE
  • Prompt: !,"Done!",!
  • Line Location: PURGE+3
Function Call: WRITE
  • Prompt: $S(DT=X:"TODAY",DT+1=X:"TOMORROW",1:$E(X,4,5)_"/"_$E(X,6,7)_"/"_$E(X,2,3))_" AT "
  • Line Location: T+1
Function Call: WRITE
  • Prompt: $E(%H+100,2,3)_":"_$E(X#60+100,2,3)
  • Line Location: T+1
Info |  Source |  Entry Points |  Interaction Calls