| 1 | ESPNTEG ;ISC/XTSUMBLD KERNEL - Package checksum checker ;MAR 31, 1994@08:01:37
|
|---|
| 2 | ;;1.0;POLICE & SECURITY;;Mar 31, 1994
|
|---|
| 3 | ;;7.1;MAR 31, 1994@08:01:37
|
|---|
| 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 | ESPCLEAN ;;3617130
|
|---|
| 13 | ESPDISP ;;8445950
|
|---|
| 14 | ESPEVID ;;2633580
|
|---|
| 15 | ESPFM ;;671826
|
|---|
| 16 | ESPJOU ;;7420205
|
|---|
| 17 | ESPLKUP ;;1111906
|
|---|
| 18 | ESPMNI ;;8390757
|
|---|
| 19 | ESPMNI0 ;;6907068
|
|---|
| 20 | ESPMNI1 ;;11760087
|
|---|
| 21 | ESPMNI2 ;;7339736
|
|---|
| 22 | ESPOFF ;;9577402
|
|---|
| 23 | ESPOFF0 ;;4501317
|
|---|
| 24 | ESPOFF1 ;;11861002
|
|---|
| 25 | ESPOFF2 ;;7874513
|
|---|
| 26 | ESPOFF3 ;;2612029
|
|---|
| 27 | ESPOFFC ;;1826778
|
|---|
| 28 | ESPOFFCL ;;4293110
|
|---|
| 29 | ESPOFFDE ;;1304355
|
|---|
| 30 | ESPOFFE ;;9140986
|
|---|
| 31 | ESPOFI ;;2873726
|
|---|
| 32 | ESPOFP ;;4985097
|
|---|
| 33 | ESPOID ;;1183794
|
|---|
| 34 | ESPORM ;;6476318
|
|---|
| 35 | ESPORM1 ;;9780856
|
|---|
| 36 | ESPORM2 ;;11613373
|
|---|
| 37 | ESPORM3 ;;9391867
|
|---|
| 38 | ESPORM4 ;;7212940
|
|---|
| 39 | ESPORM5 ;;8440221
|
|---|
| 40 | ESPORO ;;1939123
|
|---|
| 41 | ESPORP ;;6209059
|
|---|
| 42 | ESPORP1 ;;7690242
|
|---|
| 43 | ESPORP2 ;;8758394
|
|---|
| 44 | ESPORP3 ;;7608208
|
|---|
| 45 | ESPORP4 ;;5994947
|
|---|
| 46 | ESPORP5 ;;5709927
|
|---|
| 47 | ESPORR ;;1457912
|
|---|
| 48 | ESPOST ;;75075
|
|---|
| 49 | ESPQNC ;;15482737
|
|---|
| 50 | ESPRE ;;1342
|
|---|
| 51 | ESPREG ;;5049457
|
|---|
| 52 | ESPSCR ;;6634426
|
|---|
| 53 | ESPSCR0 ;;7329208
|
|---|
| 54 | ESPSCR1 ;;6394895
|
|---|
| 55 | ESPSOUN ;;8321687
|
|---|
| 56 | ESPUCD ;;1892232
|
|---|
| 57 | ESPUCM ;;3234667
|
|---|
| 58 | ESPUCM1 ;;13162314
|
|---|
| 59 | ESPUCM2 ;;11602226
|
|---|
| 60 | ESPUCM3 ;;12134922
|
|---|
| 61 | ESPUCM4 ;;10696088
|
|---|
| 62 | ESPUCM5 ;;7624962
|
|---|
| 63 | ESPUCM6 ;;5207702
|
|---|
| 64 | ESPUCP ;;3031002
|
|---|
| 65 | ESPUCP1 ;;9796208
|
|---|
| 66 | ESPUCP2 ;;8227056
|
|---|
| 67 | ESPUCP3 ;;8371546
|
|---|
| 68 | ESPUCP4 ;;7009374
|
|---|
| 69 | ESPUCP5 ;;5482768
|
|---|
| 70 | ESPUCP6 ;;3564270
|
|---|
| 71 | ESPUCR ;;7931679
|
|---|
| 72 | ESPUCR1 ;;7602101
|
|---|
| 73 | ESPUCR2 ;;5688017
|
|---|
| 74 | ESPUCR3 ;;3880770
|
|---|
| 75 | ESPUCR4 ;;10238627
|
|---|
| 76 | ESPUCR5 ;;3574673
|
|---|
| 77 | ESPUOR ;;284432
|
|---|
| 78 | ESPUTIL ;;289821
|
|---|
| 79 | ESPUVN ;;11161871
|
|---|
| 80 | ESPVAL ;;2569800
|
|---|
| 81 | ESPVEH ;;618734
|
|---|
| 82 | ESPVNE ;;1686447
|
|---|
| 83 | ESPVNP ;;8453293
|
|---|
| 84 | ESPVREG ;;9086257
|
|---|
| 85 | ESPWR ;;6006260
|
|---|
| 86 | ESPWR1 ;;1123731
|
|---|
| 87 | ESPXREF ;;2231562
|
|---|
