source: IHS-VA_UTILITIES-XB/trunk/XBRSIZ.m@ 1638

Last change on this file since 1638 was 642, checked in by Sam Habiel, 15 years ago

Modified directory structure; moved routines.

File size: 985 bytes
Line 
1XBRSIZ ; IHS/ADC/GTH - List routine names and sizes w/overall total. ; [ 02/07/97 3:02 PM ]
2 ;;4.0;XB;;Jul 20, 2009;Build 2
3 ;
4 ; List routine names, sizes, and total bytes.
5 ;
6START ;
7 W !!,"XBRSIZ - List routine names, sizes, and total bytes.",!
8 X ^%ZOSF("RSEL")
9 G EXIT:$O(^UTILITY($J,""))=""
10 D ^%ZIS
11 G EXIT:POP
12 KILL ^TMP("XBRSIZ",$J)
13 S (A,%R)=0
14 X "F I=1:1 S A=$O(^UTILITY($J,A)),T=0 Q:'$L(A) ZL @A S %R=%R+1 F J=1:1 S ^TMP(""XBRSIZ"",$J,""CRF"",I,J)=$T(+J),T=T+$L($T(+J))+2 I $T(+J+1)="""" S ^TMP(""XBRSIZ"",$J,""CRF1"",I,0)=A_""^""_T Q"
15 KILL %R,A,I,J
16PRT ;
17 U IO
18 W @IOF
19 W !!?10,"XBRSIZ - LIST ROUTINE SIZES of "
20 X ^%ZOSF("UCI")
21 W Y,", ",$$HTE^XLFDT($H),!!?24,"ROUTINE",?36,"SIZE",!
22 S SIZT=0
23 F %I=1:1 Q:'$D(^TMP("XBRSIZ",$J,"CRF1",%I,0)) S Y=^(0) W !?24,$P(Y,"^"),?34,$J($P(Y,"^",2),6) S SIZT=SIZT+$P(Y,"^",2)
24 W !!?24,"TOTAL",?34,$J(SIZT,6)
25 W !!?24,%I-1," ROUTINE" W:%I-1>1 "S"
26 KILL %I,J,N,S,SIZT,T,V,W,X,Y,Z
27EXIT ;
28 KILL ^TMP("XBRSIZ",$J),I,X
29 D ^%ZISC
30 Q
31 ;
Note: See TracBrowser for help on using the repository browser.