LRNTEG0 ;ISC/XTSUMBLD KERNEL - Package checksum checker ;OCT 25, 1994@16:14:26
;;5.2;LAB SERVICE;;Sep 27, 1994
;;7.2;OCT 25, 1994@16:14:26
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^LRNTEG01
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 ;;
LRAUDA ;;2234244
LRAUFIX ;;316002
LRAUL ;;10927481
LRAUMLK ;;4980671
LRAURPT ;;16385191
LRAURV ;;8143951
LRAUS ;;2611608
LRAUSICD ;;3659214
LRAUSM ;;11817138
LRAUSTA ;;5008931
LRBARA ;;3774911
LRBARB ;;6451096
LRBARBT ;;5739996
LRBLA ;;9313272
LRBLA1 ;;9926399
LRBLA2 ;;6490884
LRBLAA ;;14326109
LRBLAA1 ;;3751384
LRBLAB ;;1343081
LRBLAGG ;;2364163
LRBLB ;;5073682
LRBLBU ;;2220381
LRBLC ;;1993068
LRBLCAP ;;2878590
LRBLCMV ;;4895767
LRBLCON ;;2097
LRBLD ;;3295327
LRBLDA ;;12115475
LRBLDA1 ;;3235853
LRBLDAA ;;12203824
LRBLDAL ;;9196362
LRBLDC ;;14081954
LRBLDC1 ;;5278208
LRBLDCR ;;10142238
LRBLDCU ;;5349018
LRBLDED ;;6440773
LRBLDEL ;;9949435
LRBLDELT ;;5309734
LRBLDEX ;;3417783
LRBLDEX1 ;;13440864
LRBLDEX2 ;;13957070
LRBLDK ;;4408781
LRBLDL ;;8027727
LRBLDL1 ;;1162721
LRBLDLG ;;19044672
LRBLDP ;;2025215
LRBLDPA ;;3813923
LRBLDPA1 ;;13875145
LRBLDPA2 ;;13988829
LRBLDPAW ;;3164806
LRBLDPH ;;10358285
LRBLDPK ;;7998460
LRBLDPL ;;3867229
LRBLDPT ;;9866269
LRBLDPT1 ;;3715345
LRBLDR ;;15121433
LRBLDR1 ;;7668103
LRBLDRR ;;15871256
LRBLDRR1 ;;14701889
LRBLDRR2 ;;3066287
LRBLDSC ;;8397022
LRBLDT ;;13117428
LRBLDTA ;;2604164
LRBLDUC ;;4698546
LRBLDW ;;5918756
LRBLDX ;;4935632
LRBLFIX ;;1289829
LRBLJ ;;984549
LRBLJA ;;10779194
LRBLJA1 ;;6301480
LRBLJB ;;9637545
LRBLJC ;;9275638
LRBLJCK ;;9133133
LRBLJD ;;13102215
LRBLJD1 ;;13655002
LRBLJDA ;;10951052
LRBLJDM ;;11207222
LRBLJDP ;;9084280
LRBLJED ;;13071752
LRBLJI ;;8199613
LRBLJL ;;16439081
LRBLJL1 ;;7275954
LRBLJLA ;;9051165
LRBLJLG ;;15685077
LRBLJLG1 ;;11427027
LRBLJM ;;6502625
LRBLJM1 ;;8953366
LRBLJP ;;5290456
LRBLJPA ;;5587022
LRBLJPA1 ;;16327603
LRBLJPA2 ;;10519413
LRBLJPH ;;6292279
LRBLJPP ;;12819280
LRBLJPP1 ;;6500529
LRBLJR ;;8082545
LRBLJRB ;;10184614
LRBLJSH ;;10420740
LRBLJT ;;9138951
LRBLJTS ;;3989459
LRBLJTS1 ;;8904419
LRBLJTS2 ;;8577037
LRBLJU ;;5981259
LRBLJU1 ;;6735669
LRBLJUT ;;5844963
LRBLJW ;;10073924
LRBLJX ;;5755281
LRBLP ;;17385811
LRBLPA ;;5230196
LRBLPAB ;;3921486
LRBLPB ;;1128898
LRBLPBR ;;9231407
LRBLPBR1 ;;15470435
LRBLPC ;;15671667
LRBLPC1 ;;7192443
LRBLPCS ;;12042158
LRBLPCS1 ;;9661884
LRBLPCSS ;;9786071
LRBLPD ;;11082733
LRBLPD1 ;;10107862
LRBLPE ;;11555396
LRBLPE1 ;;7387090
LRBLPED ;;14607261
LRBLPED1 ;;9696043
LRBLPED2 ;;3426586
LRBLPEW ;;14855298
LRBLPH ;;3897023
LRBLPIT ;;7051836
LRBLPOST ;;1810321
LRBLPP ;;1084680
LRBLPQA ;;8810766
LRBLPR ;;6345892
LRBLPR1 ;;12719049
LRBLPRA ;;5693589
LRBLPT ;;8846509
LRBLPT1 ;;11224251
LRBLPTR ;;11758227
LRBLPTR1 ;;10126100
LRBLPUS ;;10288915
LRBLPUS1 ;;7988890
LRBLPUS2 ;;10276414
LRBLPX ;;14423115
LRBLPX1 ;;11550716
LRBLQPR ;;5571599
LRBLQST ;;6415500
LRBLRCT ;;9833422
LRBLS ;;10901031
LRBLSET ;;2877561
LRBLSSN ;;3897804
LRBLST ;;3535761
LRBLSTR ;;3249276
LRBLSUM ;;1987283
LRBLTA ;;6903899
LRBLTA1 ;;4221860
LRBLTX ;;13956029
LRBLTXA ;;11752893
LRBLU ;;16066234
LRBLUL ;;1134633
LRBLVAL ;;715004
LRBLW ;;4545909
LRBLWD ;;4923072
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HLRNTEG0 3789 printed Dec 13, 2024@02:18:14 Page 2
LRNTEG0 ;ISC/XTSUMBLD KERNEL - Package checksum checker ;OCT 25, 1994@16:14:26
+1 ;;5.2;LAB SERVICE;;Sep 27, 1994
+2 ;;7.2;OCT 25, 1994@16:14:26
+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^LRNTEG01
+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 ;;
LRAUDA ;;2234244
LRAUFIX ;;316002
LRAUL ;;10927481
LRAUMLK ;;4980671
LRAURPT ;;16385191
LRAURV ;;8143951
LRAUS ;;2611608
LRAUSICD ;;3659214
LRAUSM ;;11817138
LRAUSTA ;;5008931
LRBARA ;;3774911
LRBARB ;;6451096
LRBARBT ;;5739996
LRBLA ;;9313272
LRBLA1 ;;9926399
LRBLA2 ;;6490884
LRBLAA ;;14326109
LRBLAA1 ;;3751384
LRBLAB ;;1343081
LRBLAGG ;;2364163
LRBLB ;;5073682
LRBLBU ;;2220381
LRBLC ;;1993068
LRBLCAP ;;2878590
LRBLCMV ;;4895767
LRBLCON ;;2097
LRBLD ;;3295327
LRBLDA ;;12115475
LRBLDA1 ;;3235853
LRBLDAA ;;12203824
LRBLDAL ;;9196362
LRBLDC ;;14081954
LRBLDC1 ;;5278208
LRBLDCR ;;10142238
LRBLDCU ;;5349018
LRBLDED ;;6440773
LRBLDEL ;;9949435
LRBLDELT ;;5309734
LRBLDEX ;;3417783
LRBLDEX1 ;;13440864
LRBLDEX2 ;;13957070
LRBLDK ;;4408781
LRBLDL ;;8027727
LRBLDL1 ;;1162721
LRBLDLG ;;19044672
LRBLDP ;;2025215
LRBLDPA ;;3813923
LRBLDPA1 ;;13875145
LRBLDPA2 ;;13988829
LRBLDPAW ;;3164806
LRBLDPH ;;10358285
LRBLDPK ;;7998460
LRBLDPL ;;3867229
LRBLDPT ;;9866269
LRBLDPT1 ;;3715345
LRBLDR ;;15121433
LRBLDR1 ;;7668103
LRBLDRR ;;15871256
LRBLDRR1 ;;14701889
LRBLDRR2 ;;3066287
LRBLDSC ;;8397022
LRBLDT ;;13117428
LRBLDTA ;;2604164
LRBLDUC ;;4698546
LRBLDW ;;5918756
LRBLDX ;;4935632
LRBLFIX ;;1289829
LRBLJ ;;984549
LRBLJA ;;10779194
LRBLJA1 ;;6301480
LRBLJB ;;9637545
LRBLJC ;;9275638
LRBLJCK ;;9133133
LRBLJD ;;13102215
LRBLJD1 ;;13655002
LRBLJDA ;;10951052
LRBLJDM ;;11207222
LRBLJDP ;;9084280
LRBLJED ;;13071752
LRBLJI ;;8199613
LRBLJL ;;16439081
LRBLJL1 ;;7275954
LRBLJLA ;;9051165
LRBLJLG ;;15685077
LRBLJLG1 ;;11427027
LRBLJM ;;6502625
LRBLJM1 ;;8953366
LRBLJP ;;5290456
LRBLJPA ;;5587022
LRBLJPA1 ;;16327603
LRBLJPA2 ;;10519413
LRBLJPH ;;6292279
LRBLJPP ;;12819280
LRBLJPP1 ;;6500529
LRBLJR ;;8082545
LRBLJRB ;;10184614
LRBLJSH ;;10420740
LRBLJT ;;9138951
LRBLJTS ;;3989459
LRBLJTS1 ;;8904419
LRBLJTS2 ;;8577037
LRBLJU ;;5981259
LRBLJU1 ;;6735669
LRBLJUT ;;5844963
LRBLJW ;;10073924
LRBLJX ;;5755281
LRBLP ;;17385811
LRBLPA ;;5230196
LRBLPAB ;;3921486
LRBLPB ;;1128898
LRBLPBR ;;9231407
LRBLPBR1 ;;15470435
LRBLPC ;;15671667
LRBLPC1 ;;7192443
LRBLPCS ;;12042158
LRBLPCS1 ;;9661884
LRBLPCSS ;;9786071
LRBLPD ;;11082733
LRBLPD1 ;;10107862
LRBLPE ;;11555396
LRBLPE1 ;;7387090
LRBLPED ;;14607261
LRBLPED1 ;;9696043
LRBLPED2 ;;3426586
LRBLPEW ;;14855298
LRBLPH ;;3897023
LRBLPIT ;;7051836
LRBLPOST ;;1810321
LRBLPP ;;1084680
LRBLPQA ;;8810766
LRBLPR ;;6345892
LRBLPR1 ;;12719049
LRBLPRA ;;5693589
LRBLPT ;;8846509
LRBLPT1 ;;11224251
LRBLPTR ;;11758227
LRBLPTR1 ;;10126100
LRBLPUS ;;10288915
LRBLPUS1 ;;7988890
LRBLPUS2 ;;10276414
LRBLPX ;;14423115
LRBLPX1 ;;11550716
LRBLQPR ;;5571599
LRBLQST ;;6415500
LRBLRCT ;;9833422
LRBLS ;;10901031
LRBLSET ;;2877561
LRBLSSN ;;3897804
LRBLST ;;3535761
LRBLSTR ;;3249276
LRBLSUM ;;1987283
LRBLTA ;;6903899
LRBLTA1 ;;4221860
LRBLTX ;;13956029
LRBLTXA ;;11752893
LRBLU ;;16066234
LRBLUL ;;1134633
LRBLVAL ;;715004
LRBLW ;;4545909
LRBLWD ;;4923072
