- SDNTEG ;ISC/XTSUMBLD KERNEL - Package checksum checker ;AUG 13, 1993@12:51:49
- ;;5.3;Scheduling;;Aug 13, 1993
- ;;7.0;AUG 13, 1993@12:51:49
- 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^SDNTEG0
- 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 ;;
- SD ;;804795
- SDA223AN ;;5976444
- SDA223N ;;15706566
- SDA223N1 ;;1453813
- SDACS ;;3663833
- SDACS0 ;;8480166
- SDACS1 ;;15001549
- SDACSCG ;;13087344
- SDACSCGB ;;14826419
- SDACSCGP ;;16113980
- SDAL ;;5804280
- SDAL0 ;;11625993
- SDAM ;;3230589
- SDAM1 ;;8184632
- SDAM10 ;;2952107
- SDAM2 ;;7920545
- SDAM3 ;;4512652
- SDAM5 ;;3960436
- SDAMBAE ;;14898871
- SDAMBAE0 ;;10423066
- SDAMBAE1 ;;12061053
- SDAMBAE2 ;;14284562
- SDAMBAE3 ;;8934007
- SDAMBAE4 ;;4962021
- SDAMBAE5 ;;4282115
- SDAMBAE6 ;;1267277
- SDAMBCL ;;9282452
- SDAMBEE ;;285989
- SDAMBMR ;;17161851
- SDAMBMR1 ;;17719721
- SDAMBMR2 ;;14320995
- SDAMBMR3 ;;13093130
- SDAMC ;;5653136
- SDAMEP ;;3031106
- SDAMEP1 ;;8403410
- SDAMEP2 ;;6257643
- SDAMEP3 ;;2601010
- SDAMEP4 ;;456357
- SDAMEVT ;;9977931
- SDAMEVT0 ;;2555
- SDAMEVT1 ;;6083206
- SDAMEVT2 ;;2164883
- SDAMEVT3 ;;5224872
- SDAMEVT4 ;;3158378
- SDAMEX ;;7750940
- SDAMEX1 ;;498097
- SDAMLD ;;6800106
- SDAMN ;;3294769
- SDAMO ;;3484006
- SDAMO0 ;;2572315
- SDAMO1 ;;2965567
- SDAMO11 ;;7155191
- SDAMO2 ;;4539854
- SDAMODO ;;4758418
- SDAMODO1 ;;1799429
- SDAMODO2 ;;6940403
- SDAMODO3 ;;7227049
- SDAMOL ;;1948337
- SDAMOL1 ;;15707520
- SDAMOLP ;;4924500
- SDAMOS ;;7939456
- SDAMOS0 ;;2977018
- SDAMOS1 ;;5801474
- SDAMOSP ;;7809048
- SDAMQ ;;4702330
- SDAMQ1 ;;4494515
- SDAMQ2 ;;5530986
- SDAMQ3 ;;5302646
- SDAMQ4 ;;2800995
- SDAMQ5 ;;2347715
- SDAMU ;;1269661
- SDAMWI ;;6378214
- SDAMWI1 ;;2383935
- SDAPP ;;4770952
- SDASEE ;;14445544
- SDASEE1 ;;7969810
- SDASEE2 ;;2176573
- SDASEP ;;11261741
- SDASO ;;7227723
- SDAUT1 ;;3642937
- SDAUT2 ;;19663831
- SDB ;;9944374
- SDB0 ;;6741618
- SDB1 ;;12121223
- SDC ;;14900742
- SDC0 ;;14671704
- SDC1 ;;3434743
- SDC2 ;;7784041
- SDC3 ;;5313137
- SDC4 ;;1142041
- SDCAN ;;785063
- SDCCP ;;3508258
- SDCD ;;6752619
- SDCI ;;1611841
- SDCIAL ;;11232401
- SDCLAS ;;13141298
- SDCLAS0 ;;12392553
- SDCLAS1 ;;14835834
- SDCLAV ;;7282312
- SDCLAV0 ;;4873869
- SDCLAV1 ;;13150157
- SDCLDOW ;;5388954
- SDCLK ;;19141458
- SDCNL ;;14997623
- SDCNP ;;13115963
- SDCNP0 ;;19213709
- SDCNP1 ;;12622692
- SDCNP1A ;;18920698
- SDCNP2 ;;6743499
- SDCO ;;2028989
- SDCO0 ;;9640540
- SDCO1 ;;6940811
- SDCO2 ;;4571129
- SDCO20 ;;3099353
- SDCO21 ;;2878529
- SDCO22 ;;2672854
- SDCO23 ;;2021308
- SDCO3 ;;5529902
- SDCO31 ;;1167543
- SDCO4 ;;5802239
- SDCO41 ;;1622955
- SDCO5 ;;653104
- SDCO6 ;;2985390
- SDCO7 ;;1746597
- SDCO8 ;;1488932
- SDCOAM ;;7877912
- SDCODD ;;951277
- SDCODEL ;;4028664
- SDCOM ;;3597941
- SDCOU ;;2812724
- SDCOU1 ;;307548
- SDCOU2 ;;618877
- SDCOUR ;;2941998
- SDCP ;;15308939
- SDCSSD ;;5210687
- SDCVP ;;15690811
- SDCWL ;;20480131
- SDCWL1 ;;19198498
- SDCWL2 ;;15060622
- SDCWL3 ;;12725071
- SDD ;;6872339
- SDD0 ;;13858093
- SDDADT ;;1358703
- SDDADT0 ;;11414282
- SDDIV ;;5127804
- SDDPA ;;17722979
- SDDSO ;;7872162
- SDDSSA ;;4192206
- SDDSSA0 ;;19997912
- SDDSSA1 ;;13066332
- SDF ;;11416969
- SDF1 ;;8010091
- SDHOL ;;347989
- SDKILL ;;10034892
- SDL1 ;;8211181
- SDLT ;;5076280
- SDLTE ;;2306144
- SDLTP ;;16470189
- SDM ;;16978464
- SDM0 ;;15944427
- SDM1 ;;18343842
- SDM1A ;;11720115
- SDM2 ;;11018279
- SDM3 ;;10287325
- SDM4 ;;7146893
- SDMEAN ;;6896890
- SDMM ;;18035821
- SDMM1 ;;7854683
- SDMT ;;7004794
- --- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HSDNTEG 3794 printed Jan 18, 2025@04:00:11 Page 2
- SDNTEG ;ISC/XTSUMBLD KERNEL - Package checksum checker ;AUG 13, 1993@12:51:49
- +1 ;;5.3;Scheduling;;Aug 13, 1993
- +2 ;;7.0;AUG 13, 1993@12:51:49
- +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^SDNTEG0
- +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 ;;
- SD ;;804795
- SDA223AN ;;5976444
- SDA223N ;;15706566
- SDA223N1 ;;1453813
- SDACS ;;3663833
- SDACS0 ;;8480166
- SDACS1 ;;15001549
- SDACSCG ;;13087344
- SDACSCGB ;;14826419
- SDACSCGP ;;16113980
- SDAL ;;5804280
- SDAL0 ;;11625993
- SDAM ;;3230589
- SDAM1 ;;8184632
- SDAM10 ;;2952107
- SDAM2 ;;7920545
- SDAM3 ;;4512652
- SDAM5 ;;3960436
- SDAMBAE ;;14898871
- SDAMBAE0 ;;10423066
- SDAMBAE1 ;;12061053
- SDAMBAE2 ;;14284562
- SDAMBAE3 ;;8934007
- SDAMBAE4 ;;4962021
- SDAMBAE5 ;;4282115
- SDAMBAE6 ;;1267277
- SDAMBCL ;;9282452
- SDAMBEE ;;285989
- SDAMBMR ;;17161851
- SDAMBMR1 ;;17719721
- SDAMBMR2 ;;14320995
- SDAMBMR3 ;;13093130
- SDAMC ;;5653136
- SDAMEP ;;3031106
- SDAMEP1 ;;8403410
- SDAMEP2 ;;6257643
- SDAMEP3 ;;2601010
- SDAMEP4 ;;456357
- SDAMEVT ;;9977931
- SDAMEVT0 ;;2555
- SDAMEVT1 ;;6083206
- SDAMEVT2 ;;2164883
- SDAMEVT3 ;;5224872
- SDAMEVT4 ;;3158378
- SDAMEX ;;7750940
- SDAMEX1 ;;498097
- SDAMLD ;;6800106
- SDAMN ;;3294769
- SDAMO ;;3484006
- SDAMO0 ;;2572315
- SDAMO1 ;;2965567
- SDAMO11 ;;7155191
- SDAMO2 ;;4539854
- SDAMODO ;;4758418
- SDAMODO1 ;;1799429
- SDAMODO2 ;;6940403
- SDAMODO3 ;;7227049
- SDAMOL ;;1948337
- SDAMOL1 ;;15707520
- SDAMOLP ;;4924500
- SDAMOS ;;7939456
- SDAMOS0 ;;2977018
- SDAMOS1 ;;5801474
- SDAMOSP ;;7809048
- SDAMQ ;;4702330
- SDAMQ1 ;;4494515
- SDAMQ2 ;;5530986
- SDAMQ3 ;;5302646
- SDAMQ4 ;;2800995
- SDAMQ5 ;;2347715
- SDAMU ;;1269661
- SDAMWI ;;6378214
- SDAMWI1 ;;2383935
- SDAPP ;;4770952
- SDASEE ;;14445544
- SDASEE1 ;;7969810
- SDASEE2 ;;2176573
- SDASEP ;;11261741
- SDASO ;;7227723
- SDAUT1 ;;3642937
- SDAUT2 ;;19663831
- SDB ;;9944374
- SDB0 ;;6741618
- SDB1 ;;12121223
- SDC ;;14900742
- SDC0 ;;14671704
- SDC1 ;;3434743
- SDC2 ;;7784041
- SDC3 ;;5313137
- SDC4 ;;1142041
- SDCAN ;;785063
- SDCCP ;;3508258
- SDCD ;;6752619
- SDCI ;;1611841
- SDCIAL ;;11232401
- SDCLAS ;;13141298
- SDCLAS0 ;;12392553
- SDCLAS1 ;;14835834
- SDCLAV ;;7282312
- SDCLAV0 ;;4873869
- SDCLAV1 ;;13150157
- SDCLDOW ;;5388954
- SDCLK ;;19141458
- SDCNL ;;14997623
- SDCNP ;;13115963
- SDCNP0 ;;19213709
- SDCNP1 ;;12622692
- SDCNP1A ;;18920698
- SDCNP2 ;;6743499
- SDCO ;;2028989
- SDCO0 ;;9640540
- SDCO1 ;;6940811
- SDCO2 ;;4571129
- SDCO20 ;;3099353
- SDCO21 ;;2878529
- SDCO22 ;;2672854
- SDCO23 ;;2021308
- SDCO3 ;;5529902
- SDCO31 ;;1167543
- SDCO4 ;;5802239
- SDCO41 ;;1622955
- SDCO5 ;;653104
- SDCO6 ;;2985390
- SDCO7 ;;1746597
- SDCO8 ;;1488932
- SDCOAM ;;7877912
- SDCODD ;;951277
- SDCODEL ;;4028664
- SDCOM ;;3597941
- SDCOU ;;2812724
- SDCOU1 ;;307548
- SDCOU2 ;;618877
- SDCOUR ;;2941998
- SDCP ;;15308939
- SDCSSD ;;5210687
- SDCVP ;;15690811
- SDCWL ;;20480131
- SDCWL1 ;;19198498
- SDCWL2 ;;15060622
- SDCWL3 ;;12725071
- SDD ;;6872339
- SDD0 ;;13858093
- SDDADT ;;1358703
- SDDADT0 ;;11414282
- SDDIV ;;5127804
- SDDPA ;;17722979
- SDDSO ;;7872162
- SDDSSA ;;4192206
- SDDSSA0 ;;19997912
- SDDSSA1 ;;13066332
- SDF ;;11416969
- SDF1 ;;8010091
- SDHOL ;;347989
- SDKILL ;;10034892
- SDL1 ;;8211181
- SDLT ;;5076280
- SDLTE ;;2306144
- SDLTP ;;16470189
- SDM ;;16978464
- SDM0 ;;15944427
- SDM1 ;;18343842
- SDM1A ;;11720115
- SDM2 ;;11018279
- SDM3 ;;10287325
- SDM4 ;;7146893
- SDMEAN ;;6896890
- SDMM ;;18035821
- SDMM1 ;;7854683
- SDMT ;;7004794