- LR6NTEG0 ; IHS/DIR/FJE - KERNEL - Package checksum checker APR 24, 1996@10:36:08 ;
- ;;5.2;LR;;NOV 01, 1997
- ;
- ;;0.0;
- ;;1.0;APR 24, 1996@10:36:08
- S Z=^%ZOSF("RSUM"),SGT=0
- 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 Z W ?10,$S('XT3:"Routine not in UCI",XT3'=Y:"Calculated "_Y_", off by "_(Y-XT3),1:"ok")
- G CONT^LR6NTEG1
- 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 ;;
- 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 ;;14011718
- LRBLDK ;;4408781
- LRBLDL ;;8027727
- LRBLDL1 ;;1162721
- LRBLDLG ;;19044672
- LRBLDMV ;;6414505
- LRBLDP ;;2025215
- LRBLDPA ;;3813923
- LRBLDPA1 ;;13875145
- LRBLDPA2 ;;13988829
- LRBLDPAW ;;3164806
- LRBLDPH ;;10358285
- LRBLDPK ;;7469503
- LRBLDPL ;;3867229
- LRBLDPT ;;9337312
- LRBLDPT1 ;;3715345
- LRBLDR ;;15121433
- LRBLDR1 ;;7668103
- LRBLDRR ;;16370364
- LRBLDRR1 ;;15032705
- LRBLDRR2 ;;3066287
- LRBLDSC ;;8397022
- LRBLDT ;;13239896
- LRBLDTA ;;2604164
- LRBLDUC ;;4698546
- LRBLDW ;;5918756
- LRBLDX ;;4935632
- LRBLFIX ;;1289829
- LRBLJ ;;984549
- LRBLJA ;;10779194
- LRBLJA1 ;;6301480
- LRBLJB ;;9637545
- LRBLJC ;;9275638
- LRBLJCK ;;9133133
- LRBLJD ;;13165494
- LRBLJD1 ;;13899699
- LRBLJDA ;;10972758
- LRBLJDM ;;11207222
- LRBLJDP ;;9084280
- LRBLJED ;;13071752
- LRBLJI ;;8199613
- LRBLJL ;;17014884
- LRBLJL1 ;;8687646
- 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 ;;12068405
- LRBLPCS1 ;;9887619
- LRBLPCSS ;;9974761
- LRBLPD ;;11082733
- LRBLPD1 ;;10107862
- LRBLPE ;;11575871
- LRBLPE1 ;;7387090
- LRBLPED ;;14607261
- LRBLPED1 ;;9696043
- LRBLPED2 ;;3426586
- LRBLPEW ;;14855298
- LRBLPH ;;3897023
- LRBLPIT ;;7051836
- LRBLPOST ;;1810321
- LRBLPP ;;1084680
- LRBLPQA ;;8810766
- LRBLPR ;;6345892
- LRBLPR1 ;;12731130
- LRBLPRA ;;5693589
- LRBLPT ;;8846509
- LRBLPT1 ;;11224251
- LRBLPTR ;;11758227
- LRBLPTR1 ;;10126100
- LRBLPUS ;;10288915
- LRBLPUS1 ;;7988890
- LRBLPUS2 ;;10276414
- LRBLPX ;;15329379
- LRBLPX1 ;;11550716
- LRBLQPR ;;5571599
- LRBLQST ;;6415500
- LRBLRCT ;;9833422
- LRBLS ;;10888668
- LRBLSET ;;2877561
- LRBLSSN ;;3897804
- LRBLST ;;3535761
- LRBLSTR ;;3249276
- LRBLSUM ;;1987283
- LRBLTA ;;6903899
- LRBLTA1 ;;4221860
- LRBLTX ;;13956029
- LRBLTXA ;;11752893
- LRBLU ;;16142329
- LRBLUL ;;1134633
- LRBLVAL ;;715004
- LRBLW ;;4545909
- LRBLWD ;;4923072
- LRBLWDS ;;8168141
- LRBLXREF ;;269112
- LRBLY ;;3089131
- LRCAP64 ;;9254789
- LRCAP67 ;;7903112
- LR6NTEG0 ; IHS/DIR/FJE - KERNEL - Package checksum checker APR 24, 1996@10:36:08 ;
- +1 ;;5.2;LR;;NOV 01, 1997
- +2 ;
- +3 ;;0.0;
- +4 ;;1.0;APR 24, 1996@10:36:08
- +5 SET Z=^%ZOSF("RSUM")
- SET SGT=0
- +6 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 Z
- WRITE ?10,$SELECT('XT3:"Routine not in UCI",XT3'=Y:"Calculated "_Y_", off by "_(Y-XT3),1:"ok")
- +1 GOTO CONT^LR6NTEG1
- +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 ;;
- 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 ;;14011718
- LRBLDK ;;4408781
- LRBLDL ;;8027727
- LRBLDL1 ;;1162721
- LRBLDLG ;;19044672
- LRBLDMV ;;6414505
- LRBLDP ;;2025215
- LRBLDPA ;;3813923
- LRBLDPA1 ;;13875145
- LRBLDPA2 ;;13988829
- LRBLDPAW ;;3164806
- LRBLDPH ;;10358285
- LRBLDPK ;;7469503
- LRBLDPL ;;3867229
- LRBLDPT ;;9337312
- LRBLDPT1 ;;3715345
- LRBLDR ;;15121433
- LRBLDR1 ;;7668103
- LRBLDRR ;;16370364
- LRBLDRR1 ;;15032705
- LRBLDRR2 ;;3066287
- LRBLDSC ;;8397022
- LRBLDT ;;13239896
- LRBLDTA ;;2604164
- LRBLDUC ;;4698546
- LRBLDW ;;5918756
- LRBLDX ;;4935632
- LRBLFIX ;;1289829
- LRBLJ ;;984549
- LRBLJA ;;10779194
- LRBLJA1 ;;6301480
- LRBLJB ;;9637545
- LRBLJC ;;9275638
- LRBLJCK ;;9133133
- LRBLJD ;;13165494
- LRBLJD1 ;;13899699
- LRBLJDA ;;10972758
- LRBLJDM ;;11207222
- LRBLJDP ;;9084280
- LRBLJED ;;13071752
- LRBLJI ;;8199613
- LRBLJL ;;17014884
- LRBLJL1 ;;8687646
- 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 ;;12068405
- LRBLPCS1 ;;9887619
- LRBLPCSS ;;9974761
- LRBLPD ;;11082733
- LRBLPD1 ;;10107862
- LRBLPE ;;11575871
- LRBLPE1 ;;7387090
- LRBLPED ;;14607261
- LRBLPED1 ;;9696043
- LRBLPED2 ;;3426586
- LRBLPEW ;;14855298
- LRBLPH ;;3897023
- LRBLPIT ;;7051836
- LRBLPOST ;;1810321
- LRBLPP ;;1084680
- LRBLPQA ;;8810766
- LRBLPR ;;6345892
- LRBLPR1 ;;12731130
- LRBLPRA ;;5693589
- LRBLPT ;;8846509
- LRBLPT1 ;;11224251
- LRBLPTR ;;11758227
- LRBLPTR1 ;;10126100
- LRBLPUS ;;10288915
- LRBLPUS1 ;;7988890
- LRBLPUS2 ;;10276414
- LRBLPX ;;15329379
- LRBLPX1 ;;11550716
- LRBLQPR ;;5571599
- LRBLQST ;;6415500
- LRBLRCT ;;9833422
- LRBLS ;;10888668
- LRBLSET ;;2877561
- LRBLSSN ;;3897804
- LRBLST ;;3535761
- LRBLSTR ;;3249276
- LRBLSUM ;;1987283
- LRBLTA ;;6903899
- LRBLTA1 ;;4221860
- LRBLTX ;;13956029
- LRBLTXA ;;11752893
- LRBLU ;;16142329
- LRBLUL ;;1134633
- LRBLVAL ;;715004
- LRBLW ;;4545909
- LRBLWD ;;4923072
- LRBLWDS ;;8168141
- LRBLXREF ;;269112
- LRBLY ;;3089131
- LRCAP64 ;;9254789
- LRCAP67 ;;7903112