| 1 | ECNTEG ;ISC/XTSUMBLD KERNEL - Package checksum checker ;2960508.110728
|
|---|
| 2 | ;;2.0; EVENT CAPTURE ;;8 May 96
|
|---|
| 3 | ;;7.3;2960508.110728
|
|---|
| 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 | ECAMIS ;;4489460
|
|---|
| 13 | ECAMIS1 ;;10785092
|
|---|
| 14 | ECAMIS2 ;;2731621
|
|---|
| 15 | ECAMIS3 ;;11566170
|
|---|
| 16 | ECAMIS4 ;;10532907
|
|---|
| 17 | ECAMIS5 ;;6184017
|
|---|
| 18 | ECBEN ;;11337987
|
|---|
| 19 | ECBEN1A ;;2784321
|
|---|
| 20 | ECBEN1B ;;9353417
|
|---|
| 21 | ECBEN2A ;;16143247
|
|---|
| 22 | ECBEN2B ;;7561731
|
|---|
| 23 | ECBEN2U ;;4010748
|
|---|
| 24 | ECBENF ;;3923395
|
|---|
| 25 | ECBEP ;;11459692
|
|---|
| 26 | ECBEP1A ;;2228961
|
|---|
| 27 | ECBEP1B ;;16124470
|
|---|
| 28 | ECBEP2A ;;9723451
|
|---|
| 29 | ECBEP2B ;;6912493
|
|---|
| 30 | ECBEPF ;;4019030
|
|---|
| 31 | ECDEAL ;;11841529
|
|---|
| 32 | ECDEAL1 ;;1438359
|
|---|
| 33 | ECDSINAC ;;14214456
|
|---|
| 34 | ECDSONL ;;234093
|
|---|
| 35 | ECDSREF ;;3184477
|
|---|
| 36 | ECDSS ;;13180248
|
|---|
| 37 | ECDSS1 ;;7504426
|
|---|
| 38 | ECDSS2 ;;3173984
|
|---|
| 39 | ECDSS3 ;;2932063
|
|---|
| 40 | ECDSSA ;;2993277
|
|---|
| 41 | ECDSSCRN ;;3729527
|
|---|
| 42 | ECDSSYN ;;11622115
|
|---|
| 43 | ECDSUTIL ;;1853093
|
|---|
| 44 | ECDSXREF ;;3363705
|
|---|
| 45 | ECDUTL ;;4247352
|
|---|
| 46 | ECED ;;9546738
|
|---|
| 47 | ECED1 ;;13278201
|
|---|
| 48 | ECED2 ;;9397816
|
|---|
| 49 | ECED3 ;;14007833
|
|---|
| 50 | ECEDF ;;3262078
|
|---|
| 51 | ECEDU ;;6403945
|
|---|
| 52 | ECHECK1 ;;6025178
|
|---|
| 53 | ECINCONV ;;10874633
|
|---|
| 54 | ECINPR1 ;;490921
|
|---|
| 55 | ECINPRE ;;393087
|
|---|
| 56 | ECKILL ;;7793508
|
|---|
| 57 | ECL ;;2715529
|
|---|
| 58 | ECLOC ;;8542479
|
|---|
| 59 | ECOSSUM ;;8492461
|
|---|
| 60 | ECPAT ;;12632360
|
|---|
| 61 | ECPROV ;;4556174
|
|---|
| 62 | ECPROV1 ;;10834694
|
|---|
| 63 | ECPROV2 ;;2719723
|
|---|
| 64 | ECPROV3 ;;9473055
|
|---|
| 65 | ECPROV4 ;;9160973
|
|---|
| 66 | ECPROV5 ;;7542919
|
|---|
| 67 | ECPRSUM1 ;;8950081
|
|---|
| 68 | ECSCR ;;5323033
|
|---|
| 69 | ECSCRN ;;11461779
|
|---|
| 70 | ECSECT ;;6688913
|
|---|
| 71 | ECSUM ;;9673779
|
|---|
| 72 | ECSUM1 ;;5360670
|
|---|
| 73 | ECSUM2 ;;4916904
|
|---|
| 74 | ECSUN ;;9425105
|
|---|
| 75 | ECSUN1 ;;5762396
|
|---|
| 76 | ECSUN1N ;;4097969
|
|---|
| 77 | ECSUN2 ;;5005788
|
|---|
| 78 | ECSUN2N ;;3196769
|
|---|
| 79 | ECUN1 ;;4059591
|
|---|
| 80 | ECUNIT ;;10552311
|
|---|
