XMNTEG ;ISC/XTSUMBLD KERNEL - Package checksum checker ;07/23/2002 10:18
;;8.0;MailMan;;Jun 28, 2002
;;7.3;Apr 19, 2002@07:52:43
S XT4="I 1",X=$T(+3) W !!,"Checksum routine created on ",$P(X,";",4)," by KERNEL V",$P(X,";",3),!
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")
G CONT^XMNTEG0
K %1,%2,%3,X,Y,XT1,XT2,XT3,XT4 Q
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),!
W !,"Check a subset of routines:" K ^UTILITY($J) X ^%ZOSF("RSEL")
W ! G CONT
ROU ;;
XM ;;10750940
XMA ;;193377
XMA0 ;;305822
XMA03 ;;66257
XMA11 ;;19543
XMA11A ;;295406
XMA1B ;;741680
XMA1C ;;99629
XMA2 ;;1117192
XMA21 ;;2501947
XMA21C ;;5477330
XMA2B ;;4983521
XMA2R ;;3986868
XMA3 ;;11956281
XMA30 ;;10571799
XMA32 ;;8481844
XMA32A ;;9150003
XMA7 ;;16522
XMAD2 ;;208202
XMADGO ;;10833
XMAFTP ;;3725650
XMAH ;;1584093
XMAH1 ;;2176845
XMAI2 ;;2084332
XMAPBLOB ;;4954112
XMAPHOST ;;7077399
XMASEC ;;46560
XMB ;;4289569
XMBBLOB ;;1692263
XMBGRP ;;8136862
XMC ;;3542655
XMC1 ;;9454283
XMC11 ;;2246886
XMC1A ;;3411138
XMC1B ;;2460937
XMCB ;;3553056
XMCD ;;4131908
XMCDNT ;;401792
XMCE ;;1460559
XMCP ;;2311480
XMCQ ;;4988121
XMCQA ;;6380548
XMCQH ;;2468361
XMCSIZE ;;1758419
XMCTLK ;;8483546
XMCTRAP ;;161791
XMCU1 ;;787300
XMCX ;;5550363
XMCXT ;;2533239
XMCXU ;;5743394
XMD ;;7748228
XMDIR1 ;;9778409
XMDIR1A ;;4299248
XMDIR1B ;;3077473
XMDIRQST ;;7707598
XMDIRRCV ;;1925075
XMDIRSND ;;2039595
XMFAX ;;5011960
XMGAPI0 ;;2470973
XMGAPI1 ;;22159
XMGAPI2 ;;3885630
XMGAPI3 ;;2143520
XMGAPI4 ;;5418259
XMHIG ;;6374158
XMHIU ;;9084627
XMJBL ;;4988691
XMJBM ;;11064135
XMJBM1 ;;3151843
XMJBN ;;10845646
XMJBN1 ;;5454531
XMJBU ;;2768827
XMJDIR ;;6153613
XMJERR ;;375271
XMJMA ;;3612338
XMJMBULL ;;1994222
XMJMC ;;9725999
XMJMCODE ;;12533067
XMJMD ;;9375016
XMJMF ;;3844343
XMJMF1 ;;11350281
XMJMF2 ;;6670003
XMJMFA ;;6729708
XMJMFB ;;17121533
XMJMFC ;;12108437
XMJML ;;12709285
XMJMLN ;;14794710
XMJMLR ;;14272339
XMJMLR1 ;;6881581
XMJMOI ;;14666274
XMJMOI1 ;;8385762
XMJMOIE ;;3277725
XMJMP ;;15497599
XMJMP1 ;;18918998
XMJMP2 ;;2708969
XMJMQ ;;14078177
XMJMQ1 ;;13480745
XMJMR ;;10472863
XMJMR1 ;;10598504
XMJMRO ;;5049970
XMJMS ;;7995221
XMJMSA ;;1902278
XMJMSO ;;10097928
XMJMT ;;8959953
XMKP ;;16206281
XMKP1 ;;1811191
XMKPL ;;2912755
XMKPLQ ;;5786623
XMKPO ;;2469366
XMKPR ;;10051281
XMKPR1 ;;5051210
XMKPRD ;;5470763
XML ;;5119164
XML1CRC ;;5596625
XML4CRC ;;11722711
XML4CRC1 ;;6216754
XMLPC ;;2821947
XMLSWP ;;5626101
XMLSWP0 ;;5152871
XMLSWP2 ;;3134547
XMLTCP ;;2332071
XMM1 ;;3866874
XMM2 ;;2670817
XMP ;;8830587
XMP2 ;;9384926
XMP2A ;;8263048
XMJMOR ;;14793912
XMJMORX ;;13578226
XMJMORX1 ;;7116146
XMP3 ;;6720603
XMPC ;;5352206
XMPG ;;4410165
XMPH ;;4952939
XMPSEC ;;7152889
XMR ;;11613068
XMR0BLOB ;;4867143
XMR1 ;;10825754
XMR2 ;;2314394
XMR3 ;;14650619
XMR3A ;;2650246
XMR4 ;;11545724
XMRENT ;;2261713
XMRFTP ;;3153916
XMRFTPUX ;;3165955
XMRINETD ;;363486
XMRMSM ;;338607
XMRONT ;;390591
XMRPCTS ;;4756429
XMRPCTS0 ;;5251212
XMRPCTS1 ;;5706972
XMRPCTSA ;;3495721
XMRPOP ;;11311549
XMRTCP ;;3549159
XMRTCPGO ;;2857890
XMRUCX ;;1143285
XMS ;;8210098
XMS0BLOB ;;6743955
XMS1 ;;9572683
XMS2 ;;5021128
XMS3 ;;11387711
XMSFTP ;;3096740
XMSFTPUX ;;3150307
XMTDF ;;7250797
XMTDL ;;18753082
XMTDL1 ;;4584627
XMTDL2 ;;10414584
XMTDO ;;1726768
XMTDR ;;10257008
XMTDT ;;8338601
XMUCXPOP ;;361549
XMUDCHK ;;1578565
XMUDCHR ;;8046508
XMUDNC ;;14028901
XMUDTOP ;;3796998
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HXMNTEG 3786 printed Sep 23, 2025@19:48:41 Page 2
XMNTEG ;ISC/XTSUMBLD KERNEL - Package checksum checker ;07/23/2002 10:18
+1 ;;8.0;MailMan;;Jun 28, 2002
+2 ;;7.3;Apr 19, 2002@07:52:43
+3 SET XT4="I 1"
SET X=$TEXT(+3)
WRITE !!,"Checksum routine created on ",$PIECE(X,";",4)," by KERNEL V",$PIECE(X,";",3),!
CONT FOR XT1=1:1
SET XT2=$TEXT(ROU+XT1)
if XT2=""
QUIT
SET X=$PIECE(XT2," ",1)
SET XT3=$PIECE(XT2,";",3)
XECUTE XT4
IF $TEST
WRITE !,X
XECUTE ^%ZOSF("TEST")
if '$TEST
SET XT3=0
if XT3
XECUTE ^%ZOSF("RSUM")
WRITE ?10,$SELECT('XT3:"Routine not in UCI",XT3'=Y:"Calculated "_$CHAR(7)_Y_", off by "_(Y-XT3),1:"ok")
+1 GOTO CONT^XMNTEG0
+2 KILL %1,%2,%3,X,Y,XT1,XT2,XT3,XT4
QUIT
ONE SET XT4="I $D(^UTILITY($J,X))"
SET X=$TEXT(+3)
WRITE !!,"Checksum routine created on ",$PIECE(X,";",4)," by KERNEL V",$PIECE(X,";",3),!
+1 WRITE !,"Check a subset of routines:"
KILL ^UTILITY($JOB)
XECUTE ^%ZOSF("RSEL")
+2 WRITE !
GOTO CONT
ROU ;;
XM ;;10750940
XMA ;;193377
XMA0 ;;305822
XMA03 ;;66257
XMA11 ;;19543
XMA11A ;;295406
XMA1B ;;741680
XMA1C ;;99629
XMA2 ;;1117192
XMA21 ;;2501947
XMA21C ;;5477330
XMA2B ;;4983521
XMA2R ;;3986868
XMA3 ;;11956281
XMA30 ;;10571799
XMA32 ;;8481844
XMA32A ;;9150003
XMA7 ;;16522
XMAD2 ;;208202
XMADGO ;;10833
XMAFTP ;;3725650
XMAH ;;1584093
XMAH1 ;;2176845
XMAI2 ;;2084332
XMAPBLOB ;;4954112
XMAPHOST ;;7077399
XMASEC ;;46560
XMB ;;4289569
XMBBLOB ;;1692263
XMBGRP ;;8136862
XMC ;;3542655
XMC1 ;;9454283
XMC11 ;;2246886
XMC1A ;;3411138
XMC1B ;;2460937
XMCB ;;3553056
XMCD ;;4131908
XMCDNT ;;401792
XMCE ;;1460559
XMCP ;;2311480
XMCQ ;;4988121
XMCQA ;;6380548
XMCQH ;;2468361
XMCSIZE ;;1758419
XMCTLK ;;8483546
XMCTRAP ;;161791
XMCU1 ;;787300
XMCX ;;5550363
XMCXT ;;2533239
XMCXU ;;5743394
XMD ;;7748228
XMDIR1 ;;9778409
XMDIR1A ;;4299248
XMDIR1B ;;3077473
XMDIRQST ;;7707598
XMDIRRCV ;;1925075
XMDIRSND ;;2039595
XMFAX ;;5011960
XMGAPI0 ;;2470973
XMGAPI1 ;;22159
XMGAPI2 ;;3885630
XMGAPI3 ;;2143520
XMGAPI4 ;;5418259
XMHIG ;;6374158
XMHIU ;;9084627
XMJBL ;;4988691
XMJBM ;;11064135
XMJBM1 ;;3151843
XMJBN ;;10845646
XMJBN1 ;;5454531
XMJBU ;;2768827
XMJDIR ;;6153613
XMJERR ;;375271
XMJMA ;;3612338
XMJMBULL ;;1994222
XMJMC ;;9725999
XMJMCODE ;;12533067
XMJMD ;;9375016
XMJMF ;;3844343
XMJMF1 ;;11350281
XMJMF2 ;;6670003
XMJMFA ;;6729708
XMJMFB ;;17121533
XMJMFC ;;12108437
XMJML ;;12709285
XMJMLN ;;14794710
XMJMLR ;;14272339
XMJMLR1 ;;6881581
XMJMOI ;;14666274
XMJMOI1 ;;8385762
XMJMOIE ;;3277725
XMJMP ;;15497599
XMJMP1 ;;18918998
XMJMP2 ;;2708969
XMJMQ ;;14078177
XMJMQ1 ;;13480745
XMJMR ;;10472863
XMJMR1 ;;10598504
XMJMRO ;;5049970
XMJMS ;;7995221
XMJMSA ;;1902278
XMJMSO ;;10097928
XMJMT ;;8959953
XMKP ;;16206281
XMKP1 ;;1811191
XMKPL ;;2912755
XMKPLQ ;;5786623
XMKPO ;;2469366
XMKPR ;;10051281
XMKPR1 ;;5051210
XMKPRD ;;5470763
XML ;;5119164
XML1CRC ;;5596625
XML4CRC ;;11722711
XML4CRC1 ;;6216754
XMLPC ;;2821947
XMLSWP ;;5626101
XMLSWP0 ;;5152871
XMLSWP2 ;;3134547
XMLTCP ;;2332071
XMM1 ;;3866874
XMM2 ;;2670817
XMP ;;8830587
XMP2 ;;9384926
XMP2A ;;8263048
XMJMOR ;;14793912
XMJMORX ;;13578226
XMJMORX1 ;;7116146
XMP3 ;;6720603
XMPC ;;5352206
XMPG ;;4410165
XMPH ;;4952939
XMPSEC ;;7152889
XMR ;;11613068
XMR0BLOB ;;4867143
XMR1 ;;10825754
XMR2 ;;2314394
XMR3 ;;14650619
XMR3A ;;2650246
XMR4 ;;11545724
XMRENT ;;2261713
XMRFTP ;;3153916
XMRFTPUX ;;3165955
XMRINETD ;;363486
XMRMSM ;;338607
XMRONT ;;390591
XMRPCTS ;;4756429
XMRPCTS0 ;;5251212
XMRPCTS1 ;;5706972
XMRPCTSA ;;3495721
XMRPOP ;;11311549
XMRTCP ;;3549159
XMRTCPGO ;;2857890
XMRUCX ;;1143285
XMS ;;8210098
XMS0BLOB ;;6743955
XMS1 ;;9572683
XMS2 ;;5021128
XMS3 ;;11387711
XMSFTP ;;3096740
XMSFTPUX ;;3150307
XMTDF ;;7250797
XMTDL ;;18753082
XMTDL1 ;;4584627
XMTDL2 ;;10414584
XMTDO ;;1726768
XMTDR ;;10257008
XMTDT ;;8338601
XMUCXPOP ;;361549
XMUDCHK ;;1578565
XMUDCHR ;;8046508
XMUDNC ;;14028901
XMUDTOP ;;3796998
