- ZTRTHV ;ISCSF/HVB - RTHIST SUMMARY (VAX DSM) ;01/18/95 13:47 [ 04/02/2003 8:29 AM ]
- ;;8.0;KERNEL;**1005,1007**;APR 1, 2003
- ;;7.3;TOOLKIT;;Apr 25, 1995
- A D ^%ZIS Q:POP U IO
- S (NODE,SUB)="" F S NODE=$O(^RTH(NODE)) Q:NODE="" D HDR F S SUB=$O(^RTH(NODE,SUB)) Q:SUB="" S %H=^(SUB,"STIME") D YX^%DTC,HDR:$E(IOST)="P"&($Y>IOSL) D
- .S SECS=$P(^RTH(NODE,SUB,"ETIME"),",",1)-$P(^("STIME"),",",1)*86400+$P(^("ETIME"),",",2)-$P(^("STIME"),",",2)
- .W !,$J(NODE,7),$J(SUB,4),?12,$TR(Y," :"),?29,$J(SECS\60_":"_$S($L(SECS#60)=2:SECS#60,1:0_(SECS#60)),6)
- .W $J(^RTH(NODE,SUB,"ROUREF")*10/SECS+.5\1/10,7,1),$J(^("MAPROU")*10/SECS+.5\1/10,7,1),$J(^("Global Gets")*10/SECS+.5\1/10,7,1),$J(^("Global Sets")*10/SECS+.5\1/10,7,1),$J(^("Global Kills")*10/SECS+.5\1/10,7,1)
- .W $J(^RTH(NODE,SUB,"Logical Reads")*10/SECS+.5\1/10,8,1),$J(^("Physical Reads")*10/SECS+.5\1/10,7,1),$J(^("Logical Writes")*10/SECS+.5\1/10,7,1),$J(^("Physical Writes")*10/SECS+.5\1/10,7,1)
- .W $J(^RTH(NODE,SUB,"TOTIME")*10/SECS+.5\1/10,7,1) W:$D(^("DDP","[TOTAL","XMTS")) $J(^("XMTS")*10/SECS+.5\1/10,7,1)
- D ^%ZISC Q
- HDR W #!,$J("NODE",7),$J("#",4),$J("STARTDATE @ STIME",18),$J("ET ",6),$J("ROUREF",7),$J("MAPROU",7),$J("GLOGET",7),$J("GLOSET",7),$J("GLOKIL",7),$J("LOGRD",8),$J("PHYSRD",7),$J("LOGWT",7),$J("PHYSWT",7),$J("ROUPCT",7),$J("DDPXMT",7),! Q
- ZTRTHV ;ISCSF/HVB - RTHIST SUMMARY (VAX DSM) ;01/18/95 13:47 [ 04/02/2003 8:29 AM ]
- +1 ;;8.0;KERNEL;**1005,1007**;APR 1, 2003
- +2 ;;7.3;TOOLKIT;;Apr 25, 1995
- A DO ^%ZIS
- IF POP
- QUIT
- USE IO
- +1 SET (NODE,SUB)=""
- FOR
- SET NODE=$ORDER(^RTH(NODE))
- IF NODE=""
- QUIT
- DO HDR
- FOR
- SET SUB=$ORDER(^RTH(NODE,SUB))
- IF SUB=""
- QUIT
- SET %H=^(SUB,"STIME")
- DO YX^%DTC
- IF $EXTRACT(IOST)="P"&($Y>IOSL)
- DO HDR
- Begin DoDot:1
- +2 SET SECS=$PIECE(^RTH(NODE,SUB,"ETIME"),",",1)-$PIECE(^("STIME"),",",1)*86400+$PIECE(^("ETIME"),",",2)-$PIECE(^("STIME"),",",2)
- +3 WRITE !,$JUSTIFY(NODE,7),$JUSTIFY(SUB,4),?12,$TRANSLATE(Y," :"),?29,$JUSTIFY(SECS\60_":"_$SELECT($LENGTH(SECS#60)=2:SECS#60,1:0_(SECS#60)),6)
- +4 WRITE $JUSTIFY(^RTH(NODE,SUB,"ROUREF")*10/SECS+.5\1/10,7,1),$JUSTIFY(^("MAPROU")*10/SECS+.5\1/10,7,1),$JUSTIFY(^("Global Gets")*10/SECS+.5\1/10,7,1),$JUSTIFY(^("Global Sets")*10/SECS+.5\1/10,7,1),$JUSTIFY(^("Global Kills")*10/SECS+.
- 5\1/10,7,1)
- +5 WRITE $JUSTIFY(^RTH(NODE,SUB,"Logical Reads")*10/SECS+.5\1/10,8,1),$JUSTIFY(^("Physical Reads")*10/SECS+.5\1/10,7,1),$JUSTIFY(^("Logical Writes")*10/SECS+.5\1/10,7,1),$JUSTIFY(^("Physical Writes")*10/SECS+.5\1/10,7,1)
- +6 WRITE $JUSTIFY(^RTH(NODE,SUB,"TOTIME")*10/SECS+.5\1/10,7,1)
- IF $DATA(^("DDP","[TOTAL","XMTS"))
- WRITE $JUSTIFY(^("XMTS")*10/SECS+.5\1/10,7,1)
- End DoDot:1
- +7 DO ^%ZISC
- QUIT
- HDR WRITE #!,$JUSTIFY("NODE",7),$JUSTIFY("#",4),$JUSTIFY("STARTDATE @ STIME",18),...
- ... $JUSTIFY("ET ",6),$JUSTIFY("ROUREF",7),$JUSTIFY("MAPROU",7),$JUSTIFY("GLOGET",7),$JUSTIFY("GLOSET",7),$JUSTIFY("GLOKIL",7),$JUSTIFY("LOGRD",8),$JUSTIFY("PHYSRD",7),$JUSTIFY("LOGWT",7),$JUSTIFY("PHYSWT",7),$JUSTIFY("ROUPCT",7),$JUSTIFY("DDPX
- MT",7),!
- QUIT
