- PRCANTEG ;ISC/XTSUMBLD KERNEL - Package checksum checker ;SEP 19, 1995@07:50:48
- ;;0.0;
- ;;7.2;SEP 19, 1995@07:50:48
- 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^PRCANTE0
- 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 ;;
- PRCAACC ;;4043366
- PRCAADBO ;;7034078
- PRCAADIN ;;8227592
- PRCAAPR ;;8140887
- PRCAAPR1 ;;11564152
- PRCAATR ;;8783907
- PRCABD ;;12291906
- PRCABIL ;;5564563
- PRCABIL1 ;;12422838
- PRCABIL2 ;;7387356
- PRCABIL3 ;;8121698
- PRCABJ ;;6692362
- PRCABJ1 ;;4663573
- PRCABJV ;;5372708
- PRCABP1 ;;16980544
- PRCABP2 ;;18171823
- PRCABPF ;;2946867
- PRCACLM ;;10348676
- PRCACM ;;12117368
- PRCACOL ;;11033444
- PRCACPV ;;7264265
- PRCACV10 ;;5428098
- PRCADCDJ ;;9619500
- PRCADCJ1 ;;3167285
- PRCADEL ;;5304005
- PRCADIN ;;4845537
- PRCADJ ;;10533524
- PRCADR ;;9677108
- PRCADR1 ;;11064839
- PRCADR2 ;;7168312
- PRCADR3 ;;9610774
- PRCAEA ;;418637
- PRCAEA1 ;;3517911
- PRCAEIN ;;11764234
- PRCAEOL ;;10518361
- PRCAEXM ;;7481608
- PRCAFBD ;;8294390
- PRCAFBD1 ;;261027
- PRCAFBDM ;;3222877
- PRCAFBDU ;;10728645
- PRCAFDCT ;;1379875
- PRCAFN ;;7392695
- PRCAFN1 ;;973771
- PRCAFOR ;;1315459
- PRCAFUT ;;7677086
- PRCAFWO ;;3376487
- PRCAG ;;13321013
- PRCAGD ;;7990199
- PRCAGDR ;;5054538
- PRCAGDT ;;13912127
- PRCAGF ;;9875365
- PRCAGF1 ;;2876711
- PRCAGP ;;4992125
- PRCAGS ;;12982296
- PRCAGST ;;5366761
- PRCAGST1 ;;8964951
- PRCAGST2 ;;2033418
- PRCAGT ;;5306041
- PRCAGU ;;5343760
- PRCAHIS ;;12620784
- PRCAHIS1 ;;1270244
- PRCAHOL ;;4781886
- PRCAI001 ;;10494501
- PRCAI002 ;;10270191
- PRCAI003 ;;10643856
- PRCAI004 ;;5223325
- PRCAI005 ;;10294153
- PRCAI006 ;;9782997
- PRCAI007 ;;9921433
- PRCAI008 ;;7685656
- PRCAI009 ;;8595920
- PRCAI00A ;;1514956
- PRCAI00B ;;10354031
- PRCAI00C ;;10732944
- PRCAI00D ;;10713175
- PRCAI00E ;;9703211
- PRCAI00F ;;2226181
- PRCAI00G ;;8572946
- PRCAI00H ;;7759041
- PRCAI00I ;;5083256
- PRCAI00J ;;1682048
- PRCAI00K ;;6804588
- PRCAI00L ;;11058467
- PRCAI00M ;;12092172
- PRCAI00N ;;12009282
- PRCAI00O ;;11132794
- PRCAI00P ;;10588558
- PRCAI00Q ;;11870810
- PRCAI00R ;;10563027
- PRCAI00S ;;11709448
- PRCAI00T ;;10733716
- PRCAI00U ;;12043887
- PRCAI00V ;;11209150
- PRCAI00W ;;12055251
- PRCAI00X ;;12174925
- PRCAI00Y ;;10083230
- PRCAI00Z ;;11734912
- PRCAI010 ;;11753448
- PRCAI011 ;;12423487
- PRCAI012 ;;11161716
- PRCAI013 ;;11937677
- PRCAI014 ;;11274950
- PRCAI015 ;;12191184
- PRCAI016 ;;12316390
- PRCAI017 ;;11848678
- PRCAI018 ;;9793777
- PRCAI019 ;;9067966
- PRCAI01A ;;8871846
- PRCAI01B ;;10973851
- PRCAI01C ;;9544703
- PRCAI01D ;;1329297
- PRCAI01E ;;8149208
- PRCAI01F ;;6405246
- PRCAI01G ;;7699411
- PRCAI01H ;;2271317
- PRCAI01I ;;3458480
- PRCAI01J ;;1308374
- PRCAI01K ;;5188583
- PRCAI01L ;;2982491
- PRCAI01M ;;2777196
- PRCAI01N ;;6471211
- PRCAI01O ;;1330888
- PRCAI01P ;;5671362
- PRCAI01Q ;;5765023
- PRCAI01R ;;985299
- PRCAI01S ;;8843474
- PRCAI01T ;;2981051
- PRCAI01U ;;10391329
- PRCAI01V ;;11193669
- PRCAI01W ;;11423867
- PRCAI01X ;;8911230
- PRCAI01Y ;;9863908
- PRCAI01Z ;;9048562
- PRCAI020 ;;8483072
- PRCAI021 ;;9763786
- PRCAI022 ;;9708713
- PRCAI023 ;;8723029
- PRCAI024 ;;7678151
- PRCAI025 ;;8154091
- PRCAI026 ;;7528430
- PRCAI027 ;;9113682
- PRCAI028 ;;8796987
- PRCAI029 ;;10356723
- PRCAI02A ;;7361260
- PRCAI02B ;;3016704
- PRCAI02C ;;7563131
- PRCAI02D ;;8426136
- PRCAI02E ;;3979266
- PRCAI02F ;;7202613
- PRCAI02G ;;3340026
- PRCAI02H ;;7455606
- PRCAI02I ;;6439710
- PRCAI02J ;;10255391
- --- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HPRCANTEG 3769 printed Mar 13, 2025@20:45:12 Page 2
- PRCANTEG ;ISC/XTSUMBLD KERNEL - Package checksum checker ;SEP 19, 1995@07:50:48
- +1 ;;0.0;
- +2 ;;7.2;SEP 19, 1995@07:50:48
- +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^PRCANTE0
- +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 ;;
- PRCAACC ;;4043366
- PRCAADBO ;;7034078
- PRCAADIN ;;8227592
- PRCAAPR ;;8140887
- PRCAAPR1 ;;11564152
- PRCAATR ;;8783907
- PRCABD ;;12291906
- PRCABIL ;;5564563
- PRCABIL1 ;;12422838
- PRCABIL2 ;;7387356
- PRCABIL3 ;;8121698
- PRCABJ ;;6692362
- PRCABJ1 ;;4663573
- PRCABJV ;;5372708
- PRCABP1 ;;16980544
- PRCABP2 ;;18171823
- PRCABPF ;;2946867
- PRCACLM ;;10348676
- PRCACM ;;12117368
- PRCACOL ;;11033444
- PRCACPV ;;7264265
- PRCACV10 ;;5428098
- PRCADCDJ ;;9619500
- PRCADCJ1 ;;3167285
- PRCADEL ;;5304005
- PRCADIN ;;4845537
- PRCADJ ;;10533524
- PRCADR ;;9677108
- PRCADR1 ;;11064839
- PRCADR2 ;;7168312
- PRCADR3 ;;9610774
- PRCAEA ;;418637
- PRCAEA1 ;;3517911
- PRCAEIN ;;11764234
- PRCAEOL ;;10518361
- PRCAEXM ;;7481608
- PRCAFBD ;;8294390
- PRCAFBD1 ;;261027
- PRCAFBDM ;;3222877
- PRCAFBDU ;;10728645
- PRCAFDCT ;;1379875
- PRCAFN ;;7392695
- PRCAFN1 ;;973771
- PRCAFOR ;;1315459
- PRCAFUT ;;7677086
- PRCAFWO ;;3376487
- PRCAG ;;13321013
- PRCAGD ;;7990199
- PRCAGDR ;;5054538
- PRCAGDT ;;13912127
- PRCAGF ;;9875365
- PRCAGF1 ;;2876711
- PRCAGP ;;4992125
- PRCAGS ;;12982296
- PRCAGST ;;5366761
- PRCAGST1 ;;8964951
- PRCAGST2 ;;2033418
- PRCAGT ;;5306041
- PRCAGU ;;5343760
- PRCAHIS ;;12620784
- PRCAHIS1 ;;1270244
- PRCAHOL ;;4781886
- PRCAI001 ;;10494501
- PRCAI002 ;;10270191
- PRCAI003 ;;10643856
- PRCAI004 ;;5223325
- PRCAI005 ;;10294153
- PRCAI006 ;;9782997
- PRCAI007 ;;9921433
- PRCAI008 ;;7685656
- PRCAI009 ;;8595920
- PRCAI00A ;;1514956
- PRCAI00B ;;10354031
- PRCAI00C ;;10732944
- PRCAI00D ;;10713175
- PRCAI00E ;;9703211
- PRCAI00F ;;2226181
- PRCAI00G ;;8572946
- PRCAI00H ;;7759041
- PRCAI00I ;;5083256
- PRCAI00J ;;1682048
- PRCAI00K ;;6804588
- PRCAI00L ;;11058467
- PRCAI00M ;;12092172
- PRCAI00N ;;12009282
- PRCAI00O ;;11132794
- PRCAI00P ;;10588558
- PRCAI00Q ;;11870810
- PRCAI00R ;;10563027
- PRCAI00S ;;11709448
- PRCAI00T ;;10733716
- PRCAI00U ;;12043887
- PRCAI00V ;;11209150
- PRCAI00W ;;12055251
- PRCAI00X ;;12174925
- PRCAI00Y ;;10083230
- PRCAI00Z ;;11734912
- PRCAI010 ;;11753448
- PRCAI011 ;;12423487
- PRCAI012 ;;11161716
- PRCAI013 ;;11937677
- PRCAI014 ;;11274950
- PRCAI015 ;;12191184
- PRCAI016 ;;12316390
- PRCAI017 ;;11848678
- PRCAI018 ;;9793777
- PRCAI019 ;;9067966
- PRCAI01A ;;8871846
- PRCAI01B ;;10973851
- PRCAI01C ;;9544703
- PRCAI01D ;;1329297
- PRCAI01E ;;8149208
- PRCAI01F ;;6405246
- PRCAI01G ;;7699411
- PRCAI01H ;;2271317
- PRCAI01I ;;3458480
- PRCAI01J ;;1308374
- PRCAI01K ;;5188583
- PRCAI01L ;;2982491
- PRCAI01M ;;2777196
- PRCAI01N ;;6471211
- PRCAI01O ;;1330888
- PRCAI01P ;;5671362
- PRCAI01Q ;;5765023
- PRCAI01R ;;985299
- PRCAI01S ;;8843474
- PRCAI01T ;;2981051
- PRCAI01U ;;10391329
- PRCAI01V ;;11193669
- PRCAI01W ;;11423867
- PRCAI01X ;;8911230
- PRCAI01Y ;;9863908
- PRCAI01Z ;;9048562
- PRCAI020 ;;8483072
- PRCAI021 ;;9763786
- PRCAI022 ;;9708713
- PRCAI023 ;;8723029
- PRCAI024 ;;7678151
- PRCAI025 ;;8154091
- PRCAI026 ;;7528430
- PRCAI027 ;;9113682
- PRCAI028 ;;8796987
- PRCAI029 ;;10356723
- PRCAI02A ;;7361260
- PRCAI02B ;;3016704
- PRCAI02C ;;7563131
- PRCAI02D ;;8426136
- PRCAI02E ;;3979266
- PRCAI02F ;;7202613
- PRCAI02G ;;3340026
- PRCAI02H ;;7455606
- PRCAI02I ;;6439710
- PRCAI02J ;;10255391
