| 1 | XMCSIZE ;(WASH ISC)/AML-Message Stats Tool (shareware) ;04/17/2002 08:26
|
|---|
| 2 | ;;8.0;MailMan;;Jun 28, 2002
|
|---|
| 3 | R !,"Message number: ",XMZ:$S($D(DTIME):DTIME,1:300) Q:'$T W !,"WORKING..." S Y=0
|
|---|
| 4 | S I=0 F X=0:0 S X=$O(^XMB(3.9,XMZ,2,X)) Q:X="" S I=I+1,Y=Y+$L(^(X,0)) I I#100=0 W "." I $X>70 W !
|
|---|
| 5 | W !,I," Lines "," ",Y," Bytes ",!
|
|---|
| 6 | TT R !,"Transmission time in seconds: ",%:$S($D(DTIME):DTIME,1:300) Q:%=""!(%["^")!'$T
|
|---|
| 7 | I %'?1.N!'% W $C(7),!," Enter a non-zero number of seconds, please.",! G TT
|
|---|
| 8 | W !,$J(I-1/%,15,2)," Lines/sec ",$J(Y/%,20,2)," Bytes/sec",!
|
|---|
| 9 | Q
|
|---|
| 10 | COMP ;COMPARE TWO MESSAGES
|
|---|
| 11 | R !,"First message to compare: ",XMZ1:$S($D(DTIME):DTIME,1:300) Q:XMZ1=""
|
|---|
| 12 | R !,"Second message to compare: ",XMZ2:$S($D(DTIME):DTIME,1:300) Q:XMZ2=""
|
|---|
| 13 | K ^TMP($J) F O=0:1 Q:'$D(^XMB(3.9,XMZ1,2,O+1,0)) S ^TMP($J,1,O+1,0)=^(0)
|
|---|
| 14 | F F=0:1 Q:'$D(^XMB(3.9,XMZ2,2,F+1,0)) S ^TMP($J,2,F+1,0)=^(0)
|
|---|
| 15 | ;
|
|---|
| 16 | D ^XMPC
|
|---|
| 17 | Q
|
|---|
| 18 | ;F I=1:1 Q:'$D(^XMB(3.9,XMZ1,2,I,0)) S X=^(0),Y=^XMB(3.9,XMZ2,2,I,0) D:X'=Y CHK
|
|---|
| 19 | ;Q
|
|---|
| 20 | CHK ;COMPARE DIFFERENCES
|
|---|
| 21 | W !,X,!!,Y Q
|
|---|
