| [613] | 1 | LRNTEG03 ;ISC/XTSUMBLD KERNEL - Package checksum checker ;OCT 25, 1994@16:14:26
|
|---|
| 2 | ;;5.2;LAB SERVICE;;Sep 27, 1994
|
|---|
| 3 | ;;7.2;OCT 25, 1994@16:14:26
|
|---|
| 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 | LRSORB ;;5246084
|
|---|
| 13 | LRSORC ;;2903387
|
|---|
| 14 | LRSORC1 ;;2650199
|
|---|
| 15 | LRSORC1A ;;5784485
|
|---|
| 16 | LRSORD ;;2903439
|
|---|
| 17 | LRSORD1 ;;2634130
|
|---|
| 18 | LRSORD1A ;;5873206
|
|---|
| 19 | LRSPDA ;;1708053
|
|---|
| 20 | LRSPGD ;;1899546
|
|---|
| 21 | LRSPRPT ;;14704153
|
|---|
| 22 | LRSPRPT1 ;;9128154
|
|---|
| 23 | LRSPRPT2 ;;11806540
|
|---|
| 24 | LRSPRPTM ;;3548807
|
|---|
| 25 | LRSPS ;;1349074
|
|---|
| 26 | LRSPSICD ;;3733172
|
|---|
| 27 | LRSPSICP ;;4548274
|
|---|
| 28 | LRSPT ;;5788888
|
|---|
| 29 | LRSTATUS ;;5864956
|
|---|
| 30 | LRSTOPC ;;8270122
|
|---|
| 31 | LRSTUF ;;3165927
|
|---|
| 32 | LRSTUF1 ;;13017004
|
|---|
| 33 | LRSTUF2 ;;7213582
|
|---|
| 34 | LRTOT ;;5514392
|
|---|
| 35 | LRTP ;;1719568
|
|---|
| 36 | LRTSTJAM ;;11402229
|
|---|
| 37 | LRTSTJAN ;;15845798
|
|---|
| 38 | LRTSTJM1 ;;3677989
|
|---|
| 39 | LRTSTOUT ;;14679176
|
|---|
| 40 | LRTSTSET ;;11593341
|
|---|
| 41 | LRU ;;17199697
|
|---|
| 42 | LRUA ;;9428099
|
|---|
| 43 | LRUB ;;2794163
|
|---|
| 44 | LRUBL ;;2301075
|
|---|
| 45 | LRUC ;;3314953
|
|---|
| 46 | LRUCE ;;3615614
|
|---|
| 47 | LRUCLR ;;1483623
|
|---|
| 48 | LRUCN ;;6285550
|
|---|
| 49 | LRUCNBB ;;6439802
|
|---|
| 50 | LRUD ;;8613899
|
|---|
| 51 | LRUD1 ;;1288507
|
|---|
| 52 | LRUDEL ;;8062773
|
|---|
| 53 | LRUDIT ;;1873186
|
|---|
| 54 | LRUDPT ;;3892466
|
|---|
| 55 | LRUE ;;8625936
|
|---|
| 56 | LRUER ;;12482221
|
|---|
| 57 | LRUET ;;9746002
|
|---|
| 58 | LRUFILE ;;3793703
|
|---|
| 59 | LRUG ;;2440226
|
|---|
| 60 | LRUL ;;6494173
|
|---|
| 61 | LRULA ;;2814252
|
|---|
| 62 | LRULB ;;3214861
|
|---|
| 63 | LRULB1 ;;5054925
|
|---|
| 64 | LRULEN ;;4920379
|
|---|
| 65 | LRUMD ;;13730332
|
|---|
| 66 | LRUMD1 ;;15963110
|
|---|
| 67 | LRUMD2 ;;9441970
|
|---|
| 68 | LRUMDF ;;12190617
|
|---|
| 69 | LRUMDM ;;12811700
|
|---|
| 70 | LRUMDP ;;9583614
|
|---|
| 71 | LRUMDS ;;6757098
|
|---|
| 72 | LRUMDU ;;12785217
|
|---|
| 73 | LRUMDU1 ;;2924915
|
|---|
| 74 | LRUMI ;;8672238
|
|---|
| 75 | LRUMSG ;;549954
|
|---|
| 76 | LRUP ;;111723
|
|---|
| 77 | LRUPA ;;8985351
|
|---|
| 78 | LRUPA1 ;;8601230
|
|---|
| 79 | LRUPA2 ;;10860453
|
|---|
| 80 | LRUPAC ;;5317474
|
|---|
| 81 | LRUPACA ;;10645043
|
|---|
| 82 | LRUPACS ;;9002791
|
|---|
| 83 | LRUPACT ;;12662142
|
|---|
| 84 | LRUPAD ;;8440128
|
|---|
| 85 | LRUPAD1 ;;7381083
|
|---|
| 86 | LRUPAD2 ;;9070446
|
|---|
| 87 | LRUPQ ;;5009717
|
|---|
| 88 | LRUPQ1 ;;5480421
|
|---|
| 89 | LRUPS ;;5213446
|
|---|
| 90 | LRUPT ;;9583710
|
|---|
| 91 | LRUPUM ;;4413283
|
|---|
| 92 | LRUQ ;;2165509
|
|---|
| 93 | LRUR ;;5269766
|
|---|
| 94 | LRURG ;;563985
|
|---|
| 95 | LRUSE ;;1274883
|
|---|
| 96 | LRUSET ;;1000756
|
|---|
| 97 | LRUSNOM ;;1630210
|
|---|
| 98 | LRUSP ;;3735979
|
|---|
| 99 | LRUT ;;1482424
|
|---|
| 100 | LRUTA ;;5134496
|
|---|
| 101 | LRUTAD ;;10053839
|
|---|
| 102 | LRUTELL ;;1609316
|
|---|
| 103 | LRUTL ;;10259125
|
|---|
| 104 | LRUTRAN ;;3731182
|
|---|
| 105 | LRUTT ;;11013569
|
|---|
| 106 | LRUTW ;;7949670
|
|---|
| 107 | LRUU ;;1156447
|
|---|
| 108 | LRUV ;;399332
|
|---|
| 109 | LRUW ;;10155671
|
|---|
| 110 | LRUWG ;;10453371
|
|---|
| 111 | LRUWK ;;1415257
|
|---|
| 112 | LRUWL ;;3121574
|
|---|
| 113 | LRUWLF ;;5417790
|
|---|
| 114 | LRVER ;;16483418
|
|---|
| 115 | LRVER1 ;;5987669
|
|---|
| 116 | LRVER2 ;;6818151
|
|---|
| 117 | LRVER3 ;;8335446
|
|---|
| 118 | LRVER3A ;;9912700
|
|---|
| 119 | LRVER4 ;;14817646
|
|---|
| 120 | LRVER5 ;;11228247
|
|---|
| 121 | LRVR ;;13379924
|
|---|
| 122 | LRVR1 ;;9222290
|
|---|
| 123 | LRVR2 ;;6604344
|
|---|
| 124 | LRVR3 ;;10872068
|
|---|
| 125 | LRVR4 ;;10297579
|
|---|
| 126 | LRVR5 ;;9391488
|
|---|
| 127 | LRVRKIL ;;4419206
|
|---|
| 128 | LRVRW ;;9610673
|
|---|
| 129 | LRWD ;;1562529
|
|---|
| 130 | LRWLHEAD ;;689266
|
|---|
| 131 | LRWLST ;;14625851
|
|---|
| 132 | LRWLST1 ;;13063164
|
|---|
| 133 | LRWLST11 ;;15804232
|
|---|
| 134 | LRWLST12 ;;4658067
|
|---|
| 135 | LRWLST13 ;;7041750
|
|---|
| 136 | LRWLST2 ;;4332114
|
|---|
| 137 | LRWRKIN1 ;;4265901
|
|---|
| 138 | LRWRKINC ;;12503776
|
|---|
| 139 | LRWRKLS1 ;;1982294
|
|---|
| 140 | LRWRKLST ;;7270047
|
|---|
| 141 | LRWRKS ;;7701958
|
|---|
| 142 | LRWRKS2 ;;5580037
|
|---|
| 143 | LRWU ;;11277129
|
|---|
| 144 | LRWU1 ;;3812098
|
|---|
| 145 | LRWU2 ;;1596365
|
|---|
| 146 | LRWU3 ;;8913298
|
|---|
| 147 | LRWU4 ;;6571565
|
|---|
| 148 | LRWU5 ;;12308481
|
|---|
| 149 | LRWU6 ;;7589287
|
|---|
| 150 | LRWU7 ;;8189681
|
|---|
| 151 | LRX ;;10626021
|
|---|
| 152 | LRX6 ;;16621271
|
|---|
| 153 | LRX60 ;;9025787
|
|---|
| 154 | LRX62P6 ;;8926756
|
|---|
| 155 | LRX62P61 ;;20085978
|
|---|
| 156 | LRX6PRO ;;3892082
|
|---|
| 157 | LRXO0 ;;2244780
|
|---|
| 158 | LRXO00 ;;11600233
|
|---|
| 159 | LRXO1 ;;10821866
|
|---|
| 160 | LRXO10 ;;4100641
|
|---|
| 161 | LRXO11 ;;9945043
|
|---|
| 162 | LRXO1A ;;10417967
|
|---|
| 163 | LRXO2 ;;10312556
|
|---|
| 164 | LRXO3 ;;6346859
|
|---|
| 165 | LRXO4 ;;15854526
|
|---|
| 166 | LRXO4A ;;7531049
|
|---|
| 167 | LRXO5 ;;18115224
|
|---|
| 168 | LRXO6 ;;6504620
|
|---|
| 169 | LRXO7 ;;3502103
|
|---|
| 170 | LRXO8 ;;3966298
|
|---|
| 171 | LRXO9 ;;8693186
|
|---|
| 172 | LRXOS0 ;;2439944
|
|---|
| 173 | LRXOS1 ;;3868247
|
|---|
| 174 | LRXREF ;;9253913
|
|---|
| 175 | LRXREF1 ;;7533129
|
|---|
