| 1 | VALMNTEG ;ISC/XTSUMBLD KERNEL - Package checksum checker ;AUG 13, 1993@13:29:33
|
|---|
| 2 | ;;1;List Manager;;Aug 13, 1993
|
|---|
| 3 | ;;7.0;AUG 13, 1993@13:29:33
|
|---|
| 4 | S XT4="I 1",X=$T(+3) W !!,"Checksum routine created on ",$P(X,";",4)," by KERNEL V",$P(X,";",3),!
|
|---|
| 5 | CONT F XT1=1:1 S XT2=$T(ROU+XT1) Q:XT2="" S X=$P(XT2," ",1),XT3=$P(XT2,";",3) X XT4 I $T W !,X X ^%ZOSF("TEST") S:'$T XT3=0 X:XT3 ^%ZOSF("RSUM") W ?10,$S('XT3:"Routine not in UCI",XT3'=Y:"Calculated "_$C(7)_Y_", off by "_(Y-XT3),1:"ok")
|
|---|
| 6 | ;
|
|---|
| 7 | K %1,%2,%3,X,Y,XT1,XT2,XT3,XT4 Q
|
|---|
| 8 | ONE S XT4="I $D(^UTILITY($J,X))",X=$T(+3) W !!,"Checksum routine created on ",$P(X,";",4)," by KERNEL V",$P(X,";",3),!
|
|---|
| 9 | W !,"Check a subset of routines:" K ^UTILITY($J) X ^%ZOSF("RSEL")
|
|---|
| 10 | W ! G CONT
|
|---|
| 11 | ROU ;;
|
|---|
| 12 | VALM ;;8169958
|
|---|
| 13 | VALM0 ;;8257026
|
|---|
| 14 | VALM00 ;;2424021
|
|---|
| 15 | VALM1 ;;5659194
|
|---|
| 16 | VALM10 ;;3187230
|
|---|
| 17 | VALM11 ;;1873339
|
|---|
| 18 | VALM2 ;;5605143
|
|---|
| 19 | VALM4 ;;6209662
|
|---|
| 20 | VALM40 ;;6770263
|
|---|
| 21 | VALMD ;;6200439
|
|---|
| 22 | VALML ;;3204898
|
|---|
| 23 | VALMO001 ;;6368847
|
|---|
| 24 | VALMO002 ;;6432545
|
|---|
| 25 | VALMO003 ;;5693807
|
|---|
| 26 | VALMO004 ;;5671479
|
|---|
| 27 | VALMO005 ;;1173827
|
|---|
| 28 | VALMONI1 ;;1700827
|
|---|
| 29 | VALMONI2 ;;82809
|
|---|
| 30 | VALMONI3 ;;10576571
|
|---|
| 31 | VALMONIT ;;996076
|
|---|
| 32 | VALMPP ;;3223115
|
|---|
| 33 | VALMPRE ;;1118754
|
|---|
| 34 | VALMPT ;;175656
|
|---|
| 35 | VALMPT1 ;;1646374
|
|---|
| 36 | VALMW ;;1176776
|
|---|
| 37 | VALMW1 ;;6990418
|
|---|
| 38 | VALMW2 ;;1313428
|
|---|
| 39 | VALMW3 ;;6933015
|
|---|
| 40 | VALMW4 ;;3561982
|
|---|
| 41 | VALMW5 ;;4125841
|
|---|
| 42 | VALMWB ;;6818987
|
|---|
| 43 | VALMXQ01 ;;8249788
|
|---|
| 44 | VALMXQ02 ;;12790908
|
|---|
| 45 | VALMXQ03 ;;4820711
|
|---|
| 46 | VALMXQ04 ;;7032104
|
|---|
| 47 | VALMXQ05 ;;5440930
|
|---|
| 48 | VALMXQ06 ;;5282355
|
|---|
| 49 | VALMXQ07 ;;3027535
|
|---|
| 50 | VALMXQ08 ;;2797237
|
|---|
| 51 | VALMXQ09 ;;3772145
|
|---|
| 52 | VALMXQ10 ;;8103537
|
|---|
| 53 | VALMXQ11 ;;6037403
|
|---|
| 54 | VALMXQ12 ;;4392557
|
|---|
| 55 | VALMXQ13 ;;2869533
|
|---|
| 56 | VALMXQ14 ;;5118245
|
|---|
| 57 | VALMXQ15 ;;11455031
|
|---|
