[613] | 1 | ENXENTEG ;ISC/XTSUMBLD KERNEL - Package checksum checker ;JAN 11, 1996@14:50:51
|
---|
| 2 | ;;7.0;ENGINEERING;**21**;AUG 17, 1993
|
---|
| 3 | ;;7.2;JAN 11, 1996@14:50:51
|
---|
| 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 | ENBCPM ;;4510004
|
---|
| 13 | ENBCPM1 ;;13390643
|
---|
| 14 | ENBCPM3 ;;8500351
|
---|
| 15 | ENBCPM5 ;;11613517
|
---|
| 16 | ENEQNX ;;4436182
|
---|
| 17 | ENEQNX1 ;;10080312
|
---|
| 18 | ENEQNX3 ;;11457322
|
---|
| 19 | ENEQPMS6 ;;5204059
|
---|
| 20 | ENEQPMS7 ;;15019603
|
---|
| 21 | ENEQRP1 ;;10501719
|
---|
| 22 | ENEQRPI ;;8467282
|
---|
| 23 | ENEWOD ;;5766492
|
---|
| 24 | ENLIB2 ;;9164364
|
---|
| 25 | ENSA ;;11419405
|
---|
| 26 | ENSA1 ;;9910688
|
---|
| 27 | ENSA2 ;;6631844
|
---|
| 28 | ENSA7 ;;5211759
|
---|
| 29 | ENWOP ;;6646909
|
---|
| 30 | ENWOP1 ;;1960094
|
---|
| 31 | ENXEI001 ;;6666868
|
---|
| 32 | ENXEI002 ;;9239550
|
---|
| 33 | ENXEI003 ;;7077672
|
---|
| 34 | ENXEI004 ;;8335395
|
---|
| 35 | ENXEI005 ;;5825821
|
---|
| 36 | ENXEI006 ;;6476436
|
---|
| 37 | ENXEI007 ;;6350387
|
---|
| 38 | ENXEI008 ;;8262510
|
---|
| 39 | ENXEI009 ;;8266347
|
---|
| 40 | ENXEI00A ;;7394904
|
---|
| 41 | ENXEI00B ;;6500879
|
---|
| 42 | ENXEI00C ;;8843759
|
---|
| 43 | ENXEI00D ;;8108917
|
---|
| 44 | ENXEI00E ;;7335989
|
---|
| 45 | ENXEI00F ;;6777502
|
---|
| 46 | ENXEI00G ;;7565173
|
---|
| 47 | ENXEI00H ;;8064768
|
---|
| 48 | ENXEI00I ;;7702079
|
---|
| 49 | ENXEI00J ;;6851319
|
---|
| 50 | ENXEI00K ;;1269675
|
---|
| 51 | ENXEI00L ;;6877373
|
---|
| 52 | ENXEI00M ;;6907938
|
---|
| 53 | ENXEI00N ;;10081497
|
---|
| 54 | ENXEI00O ;;8442190
|
---|
| 55 | ENXEI00P ;;6642382
|
---|
| 56 | ENXEI00Q ;;1048906
|
---|
| 57 | ENXEI00R ;;6373731
|
---|
| 58 | ENXEI00S ;;1934644
|
---|
| 59 | ENXEINI1 ;;4858223
|
---|
| 60 | ENXEINI2 ;;5232596
|
---|
| 61 | ENXEINI3 ;;16807154
|
---|
| 62 | ENXEINI4 ;;3357768
|
---|
| 63 | ENXEINI5 ;;842388
|
---|
| 64 | ENXEINIT ;;10145753
|
---|
| 65 | ENXEPST ;;386095
|
---|