- 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 Feb 18, 2025@23:44:06 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