Routine: DINVVXD

Information

%ZOSV ;SFISC/AC - View commands & special functions. ;12:48 PM 30 Sep 1998

Source file <DINVVXD.m>

Name	Comments	DBIA/ICR reference
ACTJ()	; # active jobs
AVJ()	; # available jobs
T0	; start RT clock
T1	; store RT datum w/ZHDIF
PASSALL	;
NOPASS	;
PRGMODE	;
PROGMODE()	;
UCI	;
UCICHECK(X)	;
PRIORITY	;
PRIINQ()	;
BAUD	;S X="UNKNOWN" Q
LGR()
EC()
DOLRO	;SAVE ENTIRE SYMBOL TABLE IN LOCATION SPECIFIED BY X
ORDER	;SAVE PARTS OF SYMBOL TABLE IN LOCATION SPECIFIED BY X
PARSIZ	;
NOLOG	;
DEVOPN
DEVOK
RES
GETENV	;Get environment Return Y='UCI^VOL/DIR^NODE^BOX LOOKUP'
VERSION(X)	;return OS version, X=1 - return OS
SETNM(X)	;Set name, Trap dup's, Fall into SETENV
SETENV	;Set environment X='PROCESS NAME^ '
ZHDIF	;Display dif of two $ZH's
LOGRSRC(OPT)	;record resource usage in ^XTMP("XUCP"
SETTRM(X)	;Turn on specified terminators.

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: PRGMODE+1
Function Call: WRITE	Prompt: "??",*7 Line Location: PRGMODE+2
Function Call: WRITE	Prompt: !," CPU=",$J($P(%ZH1,",")-$P(%ZH0,","),6,2),?14," ET=",$J($P(%ZH1,",",2)-$P(%ZH0,",",2),6,1),?27," DIO=",$J($P(%ZH1,",",7)-$P(%ZH0,",",7),5),?40," BIO=",$J($P(%ZH1,",",8)-$P(%ZH0,",",8),5),! Line Location: ZHDIF+1