Routine: ZOSV2VXD

Select the objects that you wish to see in the downloaded PDF

Information

%ZOSV2 ; SFISC/JC - Capacity Mgmt - Performance Data ;06/27/96 10:17

Name	Comments	DBIA/ICR reference
DB	;Collect volume set information for this environment
START
S0
S1
S2
S3	;
DONE
EXIT
DISK	; Set up XUCM ARRAY
MAPGET	;
ERR
NOERR
NOTOK
OK
SPECL
TYPCHK
NEWTYP
RTHSTOP	;(TASKMAN-RUN IN MGR@0001) STOP RTHIST/MOVE OUT DATA/PURGE RTH
RTH	;(TASKMAN) INITIATE NEW RTHIST DATA COLLECTIONS FOR THE DAY
LOOP	;WAIT UNTIL LAST SESSION COMPLETES
TRAP	;Give process time to die off
RT	;
TRNLNM(%)	;TRANSLATE A VAX LOGICAL
OS()	;
PRV()	;current privs

Name	Line Occurrences
Function Call: WRITE	Prompt: " Node",?7,"Run",?24,"Label",?48,"Start",?57,"ET",?61,"Count",?70,"RT",! Line Location: RT+3
Function Call: WRITE	Prompt: NODE,?7,$J(RUN,3),?13,$E(^["MGR"]RTH(NODE,RUN,"LABEL"),1,30),?45,STIM,?55,$J($P(^("ETIME"),",",2)-$P(^("STIME"),",",2),4),?60,$J(CNT,6),?69 Line Location: RT+15
Function Call: WRITE	Prompt: $J(ET/CNT,4,2) Condition for execution: CNT Line Location: RT+15
Function Call: WRITE	Prompt: ! Line Location: RT+16