Routine: ZTMKU

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

Customize PDF page

Package: Kernel

Routine: ZTMKU

Information

Source Information

Entry Points

Interaction Calls