source: FOIAVistA/tag/r/KERNEL-XU-A4A7-USC-XG-XLF-XNOA-XPD-XQ-XVIR-ZI-ZOSF-ZOSV-ZT-ZU-%Z-XIP--XQAB--XUC--XUR--ZIN--ZTED/ZOSV2VXD.m@ 949

%ZOSV2 ; SFISC/JC - Capacity Mgmt - Performance Data ;06/27/96  10:17
 ;;8.0;KERNEL;**35**;JUL 03, 1995
DB ;Collect volume set information for this environment
START D VSET^%VOLDEF I '%SMSTART G DONE
S0 S ALL=1,ANS="Y"
 S A=$ZC(%VIEWBUFFER,1)
 S VSNUM="",VOLNUM="",GRTOT=0
S1 S VSNUM=$O(%VOL(VSNUM)),BLK0=0 G:VSNUM="" S3
S2 S VOLNUM=$O(%VOL(VSNUM,VOLNUM)) G:VOLNUM="" S1
 I VOLNUM="BIJ" G S2
 S DDU=$P(%VOL(VSNUM,VOLNUM),"^"),MPS=$P(%VOL(VSNUM,VOLNUM),"^",2),STRNO="S"_VSNUM
 D DISK S BLK0=BLK0+(MPS*400) G S2
 ;
S3 ;
DONE K QUES,DTAB,D,TYY,UU,DDU,YES,ALL,Y,BLK0,GRTOT
 K PREV,MPS,M0,MP0,CT,MBLK,AVAIL,TYP,USE,OLDAVAIL,OLDUSE
 K %ISAV,%NULL,TAV,TYPES
EXIT Q
 ;
DISK ; Set up XUCM ARRAY
 S TAV=0,CNT=1+$G(CNT)
 S XUCM(CNT)=VOLNUM_"^"_DDU_"^"
 D GETSTAT^%VOLTAB I '%RDACC Q
 S PREV=100 F M0=0:1:MPS S MBLK=M0*400+399+BLK0 D MAPGET
 S XUCM(CNT)=XUCM(CNT)_TAV_"^"_(MPS*400)
 ;
MAPGET ;
 I M0=MPS Q
 S AVAIL=0,$ZE="ERR" V MBLK:STRNO S $ZE="" G NOERR
ERR S $ZE="",TYP=100 G TYPCHK
NOERR I $V(1006,0,2)=65535&($V(1012,0,2)=32769) G OK
NOTOK S TYP=100 G TYPCHK
OK I $V(1008,0,2)=56173 S USE="* SPOOL *",TYP=4 G TYPCHK
 I $V(1008,0,2)+$V(1010,0,2)'=65535 G NOTOK
 S AVAIL=$V(1022,0,2) G SPECL:$V(1008,0,2)'=21845
 I AVAIL=399 S TYP=1 G TYPCHK
 I AVAIL=398,M0=0 S TYP=100 G TYPCHK
 S TYP=100 S:AVAIL=0 TYP=5 G TYPCHK
SPECL I AVAIL S AVAIL=0,TYP=100 G TYPCHK
 I $V(1008,0,2)=13107 S TYP=3 G TYPCHK
 I $V(1008,0,2)=43690 S TYP=2 G TYPCHK
 G NOTOK
 ;
TYPCHK S TAV=TAV+AVAIL I TYP=100 G NEWTYP
 I TYP=PREV S CT=CT+1 Q
 S MP0=M0,CT=0,OLDAVAIL=AVAIL
NEWTYP S PREV=TYP
 Q
RTHSTOP ;(TASKMAN-RUN IN MGR@0001) STOP RTHIST/MOVE OUT DATA/PURGE RTH
 Q:$$OS<6.1
 N I,J,K,L,M,N,O,P,Q,R,X,C,S D INIT^%VOLDEF,GETGRP^%SYSROU
 ;I '$D(^["MGR"]RTH(SCSNODE)),$V(%SMSTART)\32#2'=1 G RTH
 S RTNODE="" F  S RTNODE=$O(^["MGR"]RTH(RTNODE)) Q:RTNODE=""  D
 .S ^["MGR"]RTH(RTNODE)=0
 .S ^%ZRTL("RTH",RTNODE)=0,C=0
 .S SUB=0,U="^" F  S SUB=$O(^["MGR"]RTH(RTNODE,SUB)) Q:SUB<1  D
 ..Q:$G(^["MGR"]RTH(RTNODE,SUB,"LABEL"))'["VPM"
 ..Q:'$D(^["MGR"]RTH(RTNODE,SUB,"STIME"))  S %H=^("STIME") D YX^%DTC S S=$P(^["MGR"]RTH(RTNODE,SUB,"ETIME"),",",1)-$P(^("STIME"),",",1)*86400+$P(^("ETIME"),",",2)-$P(^("STIME"),",",2)
 ..S I=$G(^["MGR"]RTH(RTNODE,SUB,"ROUREF")) I I S I=I*10/S+.5\1/10
 ..S J=$G(^["MGR"]RTH(RTNODE,SUB,"MAPROU")) I J S J=J*10/S+.5\1/10
 ..S K=$G(^["MGR"]RTH(RTNODE,SUB,"Global Gets")) I K S K=K*10/S+.5\1/10
 ..S L=$G(^["MGR"]RTH(RTNODE,SUB,"Global Sets")) I L S L=L*10/S+.5\1/10
 ..S M=$G(^["MGR"]RTH(RTNODE,SUB,"Global Kills")) I M S M=M*10/S+.5\1/10
 ..S N=$G(^["MGR"]RTH(RTNODE,SUB,"Logical Reads")) I N S N=N*10/S+.5\1/10
 ..S O=$G(^["MGR"]RTH(RTNODE,SUB,"Logical Writes")) I O S O=O*10/S+.5\1/10
 ..S P=$G(^["MGR"]RTH(RTNODE,SUB,"Physical Reads")) I P S P=P*10/S+.5\1/10
 ..S Q=$G(^["MGR"]RTH(RTNODE,SUB,"Physical Writes")) I Q S Q=Q*10/S+.5\1/10
 ..S Z="",R=0 F  S Z=$O(^["MGR"]RTH(RTNODE,SUB,"DDP",Z)) Q:Z=""  S R=R+$G(^(Z,"XMTS"))
 ..I R S R=R*10/S+.5\1/10
 ..S C=1+C,^%ZRTL("RTH",RTNODE,C)=RTNODE_U_SUB_U_$TR(Y,":")_U_S_U_I_U_J_U_K_U_L_U_M_U_N_U_O_U_P_U_Q_U_R
 ..I $D(^["MGR"]RTH(RTNODE,SUB,"PMF-R","TTYGLOREF")) D
 ...S ^%ZRTL("RTH",RTNODE,"RT",SUB,0)=^["MGR"]RTH(RTNODE,SUB,"STIME")
 ...S X=0 F  S X=$O(^["MGR"]RTH(RTNODE,SUB,"PMF-R","TTYGLOREF",X)) Q:X<1  S Y=^(X),^%ZRTL("RTH",RTNODE,"RT",SUB,X)=Y
 .S ^%ZRTL("RTH",RTNODE)=1
 Q
RTH ;(TASKMAN) INITIATE NEW RTHIST DATA COLLECTIONS FOR THE DAY
 Q:$$OS<6.1
 D INIT^%VOLDEF,GETGRP^%SYSROU
 S LOOP=0
LOOP ;WAIT UNTIL LAST SESSION COMPLETES
 I LOOP>90 S $ZE="Timed Out Starting RTHIST" D ^%ZTER Q
 I $V(%SMSTART)\32#2=1 S LOOP=LOOP+1 H 60 G LOOP
 K ^["MGR"]RTH(SCSNODE) S ^["MGR"]RTH(SCSNODE)=0
 S TIMS=24,TIM=10,TIMI=50
 S X="NOW",%DT="T" D ^%DT D DD^%DT S NOW=Y
 S SUB=0 F I=1:1 Q:$O(^["MGR"]RTH(SCSNODE,SUB))=""  S SUB=$O(^(SUB))
 S WHEN=$P($ZH,",",3),LAB="VPM SESSION-"_NOW
 I $$OS>6.1 S CONF=$ZC(%VERSION,"INTERNAL")
 E  S CONF=$ZV
 S CONF=CONF_","_^[LIB]SYS(-1,SCSNODE,"RUNNING")
 S SZ=^[LIB]SYS(^("RUNNING"),"RTHIST","BUFFERS")*512
 S RTHOPT="/MANAGER/UCI=MGR/NORMS_ROU/NORMS_LIB/SYM=50000/SOU=20000"
 S X=$$CVDAT^RTHIST(WHEN),$ZT="TRAP^%ZOSV2"
 J START^RTHIST1(SZ,TIM,TIMS,TIMI,X,SUB,CONF,LAB,SCSNODE):(ERROR="VPM$RTHIST.LOG":OPTIONS=RTHOPT:NAME="VPM_RTHIST_"_GRP)
 I $D(ZTQUEUED) S ZTREQ="@"
 Q
TRAP ;Give process time to die off
 I $ZE["SYSTEM-F-DUPLNAM" S RETRY=$G(RETRY)+1
 I RETRY'>90 H 60 G RTH
 K RETRY
 Q
RT ;
 N NODE,RUN,ET,CNT,ZCT,STIM,X
 Q:^%ZOSF("OS")'["DSM"
 W " Node",?7,"Run",?24,"Label",?48,"Start",?57,"ET",?61,"Count",?70,"RT",!
 S (NODE,RUN)=0 F  S NODE=$O(^["MGR"]RTH(NODE)) Q:NODE=""  D
 . F  S RUN=$O(^["MGR"]RTH(NODE,RUN)) Q:RUN=""  D
 . . S (ET,CNT,ZCT)=0
 . . F I=1:1:34 S X=^["MGR"]RTH(NODE,RUN,"PMF-R","TTYGLOREF",I) D
 . . . S ET=ET+$P(X,";",2),Y=$P(X,";",3),ZCT=ZCT+Y
 . . . F J=1:1:12 S CNT=CNT+$P(Y,",",J)
 . . I $$OS<6.5 S ET=ET+(.3*ZCT)+(.5*(CNT-ZCT))
 . . I $$OS'<6.5 S ET=ET/100+(.005*CNT)
 . . S X=$P(^["MGR"]RTH(NODE,RUN,"STIME"),",",2)
 . . S H=X\3600,M=X#3600\60,S=X#3600#60
 . . S STIM=$J(H,2)_":"_$S($L(M)<2:0_M,1:M)_":"_$S($L(S)<2:0_S,1:S)
 . . W 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 W:CNT $J(ET/CNT,4,2)
 . . W !
 Q
TRNLNM(%) ;TRANSLATE A VAX LOGICAL
 I ^%ZOSF("OS")'["VAX" Q ""
 I $$OS>6.1 Q $ZC(%TRNLNM,%)
 E  Q $ZC(%TRNLOG,%)
OS() ;
 Q $P($ZV," V",2)
PRV() ;current privs
 Q $&ZLIB.%GETJPI("","CURPRIV")