| [613] | 1 | EEONTEG ;ISC/XTSUMBLD KERNEL - Package checksum checker ;APR 26, 1995@09:33:28
|
|---|
| 2 | ;;2.0;EEO Complaint Tracking;;Apr 27, 1995
|
|---|
| 3 | ;;7.2;APR 26, 1995@09:33:28
|
|---|
| 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 | EEO0210 ;;14059811
|
|---|
| 13 | EEO211 ;;9961734
|
|---|
| 14 | EEOEAHO1 ;;9202738
|
|---|
| 15 | EEOEAHO2 ;;7231931
|
|---|
| 16 | EEOEAHOC ;;13718465
|
|---|
| 17 | EEOEEDIE ;;8755140
|
|---|
| 18 | EEOEEXE ;;8539870
|
|---|
| 19 | EEOEEXMT ;;5351853
|
|---|
| 20 | EEOEFIN ;;18655248
|
|---|
| 21 | EEOEINP ;;3826665
|
|---|
| 22 | EEOEMAN ;;5755760
|
|---|
| 23 | EEOENF ;;5716172
|
|---|
| 24 | EEOEOE2 ;;7147038
|
|---|
| 25 | EEOEOI5 ;;5946587
|
|---|
| 26 | EEOEOI6 ;;4635217
|
|---|
| 27 | EEOEOP2 ;;3105960
|
|---|
| 28 | EEOEOSE ;;12545787
|
|---|
| 29 | EEOERCR ;;16248822
|
|---|
| 30 | EEOERCR1 ;;41140744
|
|---|
| 31 | EEOETICK ;;9984982
|
|---|
| 32 | EEOEXE1 ;;11146481
|
|---|
| 33 | EEOEXMT1 ;;6240330
|
|---|
| 34 | EEOEXMT2 ;;5635159
|
|---|
| 35 | EEOIN001 ;;10418583
|
|---|
| 36 | EEOIN002 ;;9641785
|
|---|
| 37 | EEOIN003 ;;12427901
|
|---|
| 38 | EEOIN004 ;;12689540
|
|---|
| 39 | EEOIN005 ;;10988726
|
|---|
| 40 | EEOIN006 ;;13982102
|
|---|
| 41 | EEOIN007 ;;11213705
|
|---|
| 42 | EEOIN008 ;;11149937
|
|---|
| 43 | EEOIN009 ;;7958865
|
|---|
| 44 | EEOIN00A ;;9108573
|
|---|
| 45 | EEOIN00B ;;2651326
|
|---|
| 46 | EEOIN00C ;;1574589
|
|---|
| 47 | EEOIN00D ;;3492330
|
|---|
| 48 | EEOIN00E ;;2338901
|
|---|
| 49 | EEOIN00F ;;10787283
|
|---|
| 50 | EEOIN00G ;;9168500
|
|---|
| 51 | EEOIN00H ;;11586588
|
|---|
| 52 | EEOIN00I ;;10700009
|
|---|
| 53 | EEOIN00J ;;3761154
|
|---|
| 54 | EEOIN00K ;;3860088
|
|---|
| 55 | EEOIN00L ;;1727319
|
|---|
| 56 | EEOIN00M ;;9339460
|
|---|
| 57 | EEOIN00N ;;3623950
|
|---|
| 58 | EEOIN00O ;;5086014
|
|---|
| 59 | EEOIN00P ;;5286817
|
|---|
| 60 | EEOIN00Q ;;5329896
|
|---|
| 61 | EEOIN00R ;;5603038
|
|---|
| 62 | EEOIN00S ;;5780436
|
|---|
| 63 | EEOIN00T ;;5556740
|
|---|
| 64 | EEOIN00U ;;5714014
|
|---|
| 65 | EEOIN00V ;;5637500
|
|---|
| 66 | EEOIN00W ;;5696561
|
|---|
| 67 | EEOIN00X ;;5835832
|
|---|
| 68 | EEOIN00Y ;;5708262
|
|---|
| 69 | EEOIN00Z ;;5604985
|
|---|
| 70 | EEOIN010 ;;5412853
|
|---|
| 71 | EEOIN011 ;;5813503
|
|---|
| 72 | EEOIN012 ;;5346462
|
|---|
| 73 | EEOIN013 ;;5709159
|
|---|
| 74 | EEOIN014 ;;5912095
|
|---|
| 75 | EEOIN015 ;;5519220
|
|---|
| 76 | EEOIN016 ;;5592750
|
|---|
| 77 | EEOIN017 ;;5622916
|
|---|
| 78 | EEOIN018 ;;5517428
|
|---|
| 79 | EEOIN019 ;;5491864
|
|---|
| 80 | EEOIN01A ;;6240729
|
|---|
| 81 | EEOIN01B ;;5723864
|
|---|
| 82 | EEOIN01C ;;4811844
|
|---|
| 83 | EEOIN01D ;;4478954
|
|---|
| 84 | EEOIN01E ;;4397929
|
|---|
| 85 | EEOIN01F ;;4309516
|
|---|
| 86 | EEOIN01G ;;4305036
|
|---|
| 87 | EEOIN01H ;;4415252
|
|---|
| 88 | EEOIN01I ;;4315694
|
|---|
| 89 | EEOIN01J ;;4351726
|
|---|
| 90 | EEOIN01K ;;4305902
|
|---|
| 91 | EEOIN01L ;;4312866
|
|---|
| 92 | EEOIN01M ;;4474900
|
|---|
| 93 | EEOIN01N ;;4309574
|
|---|
| 94 | EEOIN01O ;;4310448
|
|---|
| 95 | EEOIN01P ;;4396909
|
|---|
| 96 | EEOIN01Q ;;4294548
|
|---|
| 97 | EEOIN01R ;;4312086
|
|---|
| 98 | EEOIN01S ;;4311859
|
|---|
| 99 | EEOIN01T ;;4296643
|
|---|
| 100 | EEOIN01U ;;4318788
|
|---|
| 101 | EEOIN01V ;;4291564
|
|---|
| 102 | EEOIN01W ;;4298280
|
|---|
| 103 | EEOIN01X ;;4313018
|
|---|
| 104 | EEOIN01Y ;;4295409
|
|---|
| 105 | EEOIN01Z ;;4712186
|
|---|
| 106 | EEOIN020 ;;6438676
|
|---|
| 107 | EEOIN021 ;;6069173
|
|---|
| 108 | EEOIN022 ;;2305860
|
|---|
| 109 | EEOIN023 ;;4807486
|
|---|
| 110 | EEOIN024 ;;1412870
|
|---|
| 111 | EEOIN025 ;;6743330
|
|---|
| 112 | EEOIN026 ;;8771070
|
|---|
| 113 | EEOIN027 ;;8192208
|
|---|
| 114 | EEOIN028 ;;1965879
|
|---|
| 115 | EEOINIS ;;2168307
|
|---|
| 116 | EEOINIT ;;10829233
|
|---|
| 117 | EEOINIT1 ;;5700373
|
|---|
| 118 | EEOINIT2 ;;5232639
|
|---|
| 119 | EEOINIT3 ;;16093541
|
|---|
| 120 | EEOINIT4 ;;3357811
|
|---|
| 121 | EEOINIT5 ;;1217308
|
|---|
| 122 | EEOIPCON ;;10149140
|
|---|
| 123 | EEOIPOS2 ;;10406787
|
|---|
| 124 | EEOIPOST ;;8798681
|
|---|
| 125 | EEOIPRE ;;44559
|
|---|
| 126 | EEOUTIL ;;5522790
|
|---|
| 127 | EEOUTIL1 ;;6847267
|
|---|
