Routine: XUTMTZ

Information

XUTMTZ ;SEA/RDS - Taskman: Toolkit: Test Utilities (General) ;10/01/97 15:11 [ 04/02/2003 8:29 AM ]

Source file <XUTMTZ.m>

Package	Total	Call Graph
Kernel	4	(,HOME)^%ZIS (,$$PCLEAR,$$PSET,$$S)^%ZTLOAD $$DIFF^%ZTM $$HTE^XLFDT
VA Fileman	1	^%DT

Name	Comments	DBIA/ICR reference
LOAD	;Load up Queue jobs
HANG	;;Wait five minutes then quit
OWN	;;Hold a device until told to release it
Q	;entry--queue a test task
WATCH	;DON'T QUEUE--watch tasks as they are scheduled and unscheduled
ERROR	;;Test Taskman's Error Handling
STOP	;;Test Stop Code
STOP2	;;Test ZTSTOP code
MULTPL	;test task--Test running multiple managers on different nodes of VAXcluster
LD2
PTASK	;;See if persistent status works.
QOWN	;entry--queue an own task
LOOKUP	;WATCH--get data to show
DELAY	;;Record delay in start
BASIC	;;Basic Test With Hang
QUICK	;;Quick Test To Exercise Submanager
SIZE	;TOOL--SIZE OF ROUTINES

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"This call will allow you to start a large number of tasks for",!,"TaskMan to run." Line Location: LOAD+1
Function Call: READ	Prompt: "Enter the number of jobs to start: " Formatting: ! Timeout: DTIME Variable: JOBS Line Location: LOAD+2
Function Call: WRITE	Prompt: !,"use '^' for no device." Line Location: LOAD+3
Function Call: WRITE	Prompt: !,"Not valid" Line Location: LD2+3
Function Call: WRITE	Prompt: !,"==============================================================" Line Location: LD2+4
Function Call: WRITE	Prompt: !,"New Batch: ",$H,"...",$J,!,"Tasks: " Line Location: LD2+5
Function Call: WRITE	Prompt: ZTSK,", " Line Location: LD2+6
Function Call: WRITE	Prompt: !,"..............................................................." Line Location: LD2+7
Function Call: WRITE	Prompt: "." Line Location: BASIC+2
Function Call: WRITE	Prompt: !,"..............................................................." Line Location: MULTPL+2
Function Call: WRITE	Prompt: !,ZTSK,": ",$H,"...",$J Line Location: MULTPL+3
Function Call: WRITE	Prompt: 9 Line Location: STOP2+1
Function Call: READ	Timeout: 1 Variable: X Line Location: WATCH+2
Function Call: WRITE	Prompt: !,"Update: ",ZTU,?15,"Queued: ",ZTS,?30,"Late: ",ZTO,?40,"New: ",ZTN,?50,"Subs: ",ZTSU,?60,"Free Subs: ",ZTF Line Location: WATCH+2
Routine Call	%ZIS Line Location: LD2+8
Routine Call	%ZIS Line Location: LOAD+4

Name	Line Occurrences (* Changed, ! Killed)
^%ZOSF("RSEL"	SIZE+1
^%ZTSCH(	LOOKUP+3
^%ZTSCH("RUN"	LOOKUP+1
^%ZTSCH("SUB"	LOOKUP+6
^%ZTSCH("TASK"	LOOKUP+5, PTASK+1, PTASK+2*, PTASK+3
^%ZTSK - [#14.4]	LOOKUP+4, OWN+1, DELAY+1
^TMP("XUTMTZ"	LOAD+3!, LD2+8, ERROR+1, BASIC+1, BASIC+3, STOP+1, STOP+3, STOP+4, MULTPL+1, MULTPL+4 , DELAY+2
^TMP($J	SIZE+1, SIZE+2!

Name	Line Occurrences
LD2	LD2+1, LD2+3
LOOKUP	WATCH+2

Name	Field # of Occurrence
>> %DT	LOAD+5*
>> %DT("B"	LOAD+5*
>> %ZIS	LOAD+4*
>> A	OWN+1*
>> CNT	PTASK+1*, PTASK+2
DTIME	LOAD+2, LD2
>> FRANK	QUICK+1*
>> I	LD2+2*
IO	BASIC+2, DELAY+2
>> IONOFF	BASIC+2*
>> JOBS	LOAD+2*, LD2+6
>> POP	LOAD+4
>> QUASI	LD2+6*
>> RTN	LD2*, LD2+1, LD2+6
>> TASKIO	LOAD+4*, LD2+6
U	BASIC+1
>> X	LD2+2, STOP2+1, STOP2+2, WATCH+2, PTASK+3, PTASK+5*
>> XUDTH	LOAD+5*, LD2+6
>> Y	LOAD+5, DELAY+1*, DELAY+2, DELAY+3
>> ZT	SIZE+1, STOP2+1, WATCH+2, LOOKUP+3, LOOKUP+5*
>> ZT1	SIZE+1, LOOKUP+3, LOOKUP+5*
>> ZT2	LOOKUP+3*
ZTCPU	LOAD+3!
>> ZTDESC	LD2+6, BASIC+1, QOWN+1, Q+1*
>> ZTDTH	LD2+6, QOWN+1, Q+1*
>> ZTF	WATCH+2, LOOKUP+6*
>> ZTH	LOOKUP+1, LOOKUP+2, LOOKUP+3
ZTIO	LOAD+3!, LD2+6, QOWN+1, Q+1*
>> ZTN	WATCH+2, LOOKUP+4, DELAY+1, DELAY+2
>> ZTO	WATCH+2, LOOKUP+3, DELAY+1, DELAY+2
>> ZTR	LOOKUP+1*, LOOKUP+2
>> ZTRTN	LD2+6, QOWN+1, Q+1*
>> ZTS	WATCH+2, LOOKUP+3*
>> ZTSAVE("ZTREQ"	QOWN+1, Q+1
>> ZTSK	LD2+6, ERROR+1, BASIC+1, STOP+1, MULTPL+3, WATCH+1, LOOKUP+4, OWN+1, DELAY+1, DELAY+2 , PTASK+1, PTASK+2, PTASK+3, PTASK+5
>> ZTSTOP	STOP+3, STOP2+2
>> ZTSU	WATCH+2, LOOKUP+5, LOOKUP+6
>> ZTU	WATCH+2, LOOKUP+1, LOOKUP+2
ZTUCI	LOAD+3!

Name	Field # of Occurrence
$T(	LD2+2
$T(@RTN	LD2+3, LD2+6