| 1 | XMNTEG ;ISC/XTSUMBLD KERNEL - Package checksum checker ;07/23/2002 10:18
|
|---|
| 2 | ;;8.0;MailMan;;Jun 28, 2002
|
|---|
| 3 | ;;7.3;Apr 19, 2002@07:52:43
|
|---|
| 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 | G CONT^XMNTEG0
|
|---|
| 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 | XM ;;10750940
|
|---|
| 13 | XMA ;;193377
|
|---|
| 14 | XMA0 ;;305822
|
|---|
| 15 | XMA03 ;;66257
|
|---|
| 16 | XMA11 ;;19543
|
|---|
| 17 | XMA11A ;;295406
|
|---|
| 18 | XMA1B ;;741680
|
|---|
| 19 | XMA1C ;;99629
|
|---|
| 20 | XMA2 ;;1117192
|
|---|
| 21 | XMA21 ;;2501947
|
|---|
| 22 | XMA21C ;;5477330
|
|---|
| 23 | XMA2B ;;4983521
|
|---|
| 24 | XMA2R ;;3986868
|
|---|
| 25 | XMA3 ;;11956281
|
|---|
| 26 | XMA30 ;;10571799
|
|---|
| 27 | XMA32 ;;8481844
|
|---|
| 28 | XMA32A ;;9150003
|
|---|
| 29 | XMA7 ;;16522
|
|---|
| 30 | XMAD2 ;;208202
|
|---|
| 31 | XMADGO ;;10833
|
|---|
| 32 | XMAFTP ;;3725650
|
|---|
| 33 | XMAH ;;1584093
|
|---|
| 34 | XMAH1 ;;2176845
|
|---|
| 35 | XMAI2 ;;2084332
|
|---|
| 36 | XMAPBLOB ;;4954112
|
|---|
| 37 | XMAPHOST ;;7077399
|
|---|
| 38 | XMASEC ;;46560
|
|---|
| 39 | XMB ;;4289569
|
|---|
| 40 | XMBBLOB ;;1692263
|
|---|
| 41 | XMBGRP ;;8136862
|
|---|
| 42 | XMC ;;3542655
|
|---|
| 43 | XMC1 ;;9454283
|
|---|
| 44 | XMC11 ;;2246886
|
|---|
| 45 | XMC1A ;;3411138
|
|---|
| 46 | XMC1B ;;2460937
|
|---|
| 47 | XMCB ;;3553056
|
|---|
| 48 | XMCD ;;4131908
|
|---|
| 49 | XMCDNT ;;401792
|
|---|
| 50 | XMCE ;;1460559
|
|---|
| 51 | XMCP ;;2311480
|
|---|
| 52 | XMCQ ;;4988121
|
|---|
| 53 | XMCQA ;;6380548
|
|---|
| 54 | XMCQH ;;2468361
|
|---|
| 55 | XMCSIZE ;;1758419
|
|---|
| 56 | XMCTLK ;;8483546
|
|---|
| 57 | XMCTRAP ;;161791
|
|---|
| 58 | XMCU1 ;;787300
|
|---|
| 59 | XMCX ;;5550363
|
|---|
| 60 | XMCXT ;;2533239
|
|---|
| 61 | XMCXU ;;5743394
|
|---|
| 62 | XMD ;;7748228
|
|---|
| 63 | XMDIR1 ;;9778409
|
|---|
| 64 | XMDIR1A ;;4299248
|
|---|
| 65 | XMDIR1B ;;3077473
|
|---|
| 66 | XMDIRQST ;;7707598
|
|---|
| 67 | XMDIRRCV ;;1925075
|
|---|
| 68 | XMDIRSND ;;2039595
|
|---|
| 69 | XMFAX ;;5011960
|
|---|
| 70 | XMGAPI0 ;;2470973
|
|---|
| 71 | XMGAPI1 ;;22159
|
|---|
| 72 | XMGAPI2 ;;3885630
|
|---|
| 73 | XMGAPI3 ;;2143520
|
|---|
| 74 | XMGAPI4 ;;5418259
|
|---|
| 75 | XMHIG ;;6374158
|
|---|
| 76 | XMHIU ;;9084627
|
|---|
| 77 | XMJBL ;;4988691
|
|---|
| 78 | XMJBM ;;11064135
|
|---|
| 79 | XMJBM1 ;;3151843
|
|---|
| 80 | XMJBN ;;10845646
|
|---|
| 81 | XMJBN1 ;;5454531
|
|---|
| 82 | XMJBU ;;2768827
|
|---|
| 83 | XMJDIR ;;6153613
|
|---|
| 84 | XMJERR ;;375271
|
|---|
| 85 | XMJMA ;;3612338
|
|---|
| 86 | XMJMBULL ;;1994222
|
|---|
| 87 | XMJMC ;;9725999
|
|---|
| 88 | XMJMCODE ;;12533067
|
|---|
| 89 | XMJMD ;;9375016
|
|---|
| 90 | XMJMF ;;3844343
|
|---|
| 91 | XMJMF1 ;;11350281
|
|---|
| 92 | XMJMF2 ;;6670003
|
|---|
| 93 | XMJMFA ;;6729708
|
|---|
| 94 | XMJMFB ;;17121533
|
|---|
| 95 | XMJMFC ;;12108437
|
|---|
| 96 | XMJML ;;12709285
|
|---|
| 97 | XMJMLN ;;14794710
|
|---|
| 98 | XMJMLR ;;14272339
|
|---|
| 99 | XMJMLR1 ;;6881581
|
|---|
| 100 | XMJMOI ;;14666274
|
|---|
| 101 | XMJMOI1 ;;8385762
|
|---|
| 102 | XMJMOIE ;;3277725
|
|---|
| 103 | XMJMP ;;15497599
|
|---|
| 104 | XMJMP1 ;;18918998
|
|---|
| 105 | XMJMP2 ;;2708969
|
|---|
| 106 | XMJMQ ;;14078177
|
|---|
| 107 | XMJMQ1 ;;13480745
|
|---|
| 108 | XMJMR ;;10472863
|
|---|
| 109 | XMJMR1 ;;10598504
|
|---|
| 110 | XMJMRO ;;5049970
|
|---|
| 111 | XMJMS ;;7995221
|
|---|
| 112 | XMJMSA ;;1902278
|
|---|
| 113 | XMJMSO ;;10097928
|
|---|
| 114 | XMJMT ;;8959953
|
|---|
| 115 | XMKP ;;16206281
|
|---|
| 116 | XMKP1 ;;1811191
|
|---|
| 117 | XMKPL ;;2912755
|
|---|
| 118 | XMKPLQ ;;5786623
|
|---|
| 119 | XMKPO ;;2469366
|
|---|
| 120 | XMKPR ;;10051281
|
|---|
| 121 | XMKPR1 ;;5051210
|
|---|
| 122 | XMKPRD ;;5470763
|
|---|
| 123 | XML ;;5119164
|
|---|
| 124 | XML1CRC ;;5596625
|
|---|
| 125 | XML4CRC ;;11722711
|
|---|
| 126 | XML4CRC1 ;;6216754
|
|---|
| 127 | XMLPC ;;2821947
|
|---|
| 128 | XMLSWP ;;5626101
|
|---|
| 129 | XMLSWP0 ;;5152871
|
|---|
| 130 | XMLSWP2 ;;3134547
|
|---|
| 131 | XMLTCP ;;2332071
|
|---|
| 132 | XMM1 ;;3866874
|
|---|
| 133 | XMM2 ;;2670817
|
|---|
| 134 | XMP ;;8830587
|
|---|
| 135 | XMP2 ;;9384926
|
|---|
| 136 | XMP2A ;;8263048
|
|---|
| 137 | XMJMOR ;;14793912
|
|---|
| 138 | XMJMORX ;;13578226
|
|---|
| 139 | XMJMORX1 ;;7116146
|
|---|
| 140 | XMP3 ;;6720603
|
|---|
| 141 | XMPC ;;5352206
|
|---|
| 142 | XMPG ;;4410165
|
|---|
| 143 | XMPH ;;4952939
|
|---|
| 144 | XMPSEC ;;7152889
|
|---|
| 145 | XMR ;;11613068
|
|---|
| 146 | XMR0BLOB ;;4867143
|
|---|
| 147 | XMR1 ;;10825754
|
|---|
| 148 | XMR2 ;;2314394
|
|---|
| 149 | XMR3 ;;14650619
|
|---|
| 150 | XMR3A ;;2650246
|
|---|
| 151 | XMR4 ;;11545724
|
|---|
| 152 | XMRENT ;;2261713
|
|---|
| 153 | XMRFTP ;;3153916
|
|---|
| 154 | XMRFTPUX ;;3165955
|
|---|
| 155 | XMRINETD ;;363486
|
|---|
| 156 | XMRMSM ;;338607
|
|---|
| 157 | XMRONT ;;390591
|
|---|
| 158 | XMRPCTS ;;4756429
|
|---|
| 159 | XMRPCTS0 ;;5251212
|
|---|
| 160 | XMRPCTS1 ;;5706972
|
|---|
| 161 | XMRPCTSA ;;3495721
|
|---|
| 162 | XMRPOP ;;11311549
|
|---|
| 163 | XMRTCP ;;3549159
|
|---|
| 164 | XMRTCPGO ;;2857890
|
|---|
| 165 | XMRUCX ;;1143285
|
|---|
| 166 | XMS ;;8210098
|
|---|
| 167 | XMS0BLOB ;;6743955
|
|---|
| 168 | XMS1 ;;9572683
|
|---|
| 169 | XMS2 ;;5021128
|
|---|
| 170 | XMS3 ;;11387711
|
|---|
| 171 | XMSFTP ;;3096740
|
|---|
| 172 | XMSFTPUX ;;3150307
|
|---|
| 173 | XMTDF ;;7250797
|
|---|
| 174 | XMTDL ;;18753082
|
|---|
| 175 | XMTDL1 ;;4584627
|
|---|
| 176 | XMTDL2 ;;10414584
|
|---|
| 177 | XMTDO ;;1726768
|
|---|
| 178 | XMTDR ;;10257008
|
|---|
| 179 | XMTDT ;;8338601
|
|---|
| 180 | XMUCXPOP ;;361549
|
|---|
| 181 | XMUDCHK ;;1578565
|
|---|
| 182 | XMUDCHR ;;8046508
|
|---|
| 183 | XMUDNC ;;14028901
|
|---|
| 184 | XMUDTOP ;;3796998
|
|---|