EEONTEG ;ISC/XTSUMBLD KERNEL - Package checksum checker ;APR 26, 1995@09:33:28
;;2.0;EEO Complaint Tracking;;Apr 27, 1995
;;7.2;APR 26, 1995@09:33:28
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")
;
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 ;;
EEO0210 ;;14059811
EEO211 ;;9961734
EEOEAHO1 ;;9202738
EEOEAHO2 ;;7231931
EEOEAHOC ;;13718465
EEOEEDIE ;;8755140
EEOEEXE ;;8539870
EEOEEXMT ;;5351853
EEOEFIN ;;18655248
EEOEINP ;;3826665
EEOEMAN ;;5755760
EEOENF ;;5716172
EEOEOE2 ;;7147038
EEOEOI5 ;;5946587
EEOEOI6 ;;4635217
EEOEOP2 ;;3105960
EEOEOSE ;;12545787
EEOERCR ;;16248822
EEOERCR1 ;;41140744
EEOETICK ;;9984982
EEOEXE1 ;;11146481
EEOEXMT1 ;;6240330
EEOEXMT2 ;;5635159
EEOIN001 ;;10418583
EEOIN002 ;;9641785
EEOIN003 ;;12427901
EEOIN004 ;;12689540
EEOIN005 ;;10988726
EEOIN006 ;;13982102
EEOIN007 ;;11213705
EEOIN008 ;;11149937
EEOIN009 ;;7958865
EEOIN00A ;;9108573
EEOIN00B ;;2651326
EEOIN00C ;;1574589
EEOIN00D ;;3492330
EEOIN00E ;;2338901
EEOIN00F ;;10787283
EEOIN00G ;;9168500
EEOIN00H ;;11586588
EEOIN00I ;;10700009
EEOIN00J ;;3761154
EEOIN00K ;;3860088
EEOIN00L ;;1727319
EEOIN00M ;;9339460
EEOIN00N ;;3623950
EEOIN00O ;;5086014
EEOIN00P ;;5286817
EEOIN00Q ;;5329896
EEOIN00R ;;5603038
EEOIN00S ;;5780436
EEOIN00T ;;5556740
EEOIN00U ;;5714014
EEOIN00V ;;5637500
EEOIN00W ;;5696561
EEOIN00X ;;5835832
EEOIN00Y ;;5708262
EEOIN00Z ;;5604985
EEOIN010 ;;5412853
EEOIN011 ;;5813503
EEOIN012 ;;5346462
EEOIN013 ;;5709159
EEOIN014 ;;5912095
EEOIN015 ;;5519220
EEOIN016 ;;5592750
EEOIN017 ;;5622916
EEOIN018 ;;5517428
EEOIN019 ;;5491864
EEOIN01A ;;6240729
EEOIN01B ;;5723864
EEOIN01C ;;4811844
EEOIN01D ;;4478954
EEOIN01E ;;4397929
EEOIN01F ;;4309516
EEOIN01G ;;4305036
EEOIN01H ;;4415252
EEOIN01I ;;4315694
EEOIN01J ;;4351726
EEOIN01K ;;4305902
EEOIN01L ;;4312866
EEOIN01M ;;4474900
EEOIN01N ;;4309574
EEOIN01O ;;4310448
EEOIN01P ;;4396909
EEOIN01Q ;;4294548
EEOIN01R ;;4312086
EEOIN01S ;;4311859
EEOIN01T ;;4296643
EEOIN01U ;;4318788
EEOIN01V ;;4291564
EEOIN01W ;;4298280
EEOIN01X ;;4313018
EEOIN01Y ;;4295409
EEOIN01Z ;;4712186
EEOIN020 ;;6438676
EEOIN021 ;;6069173
EEOIN022 ;;2305860
EEOIN023 ;;4807486
EEOIN024 ;;1412870
EEOIN025 ;;6743330
EEOIN026 ;;8771070
EEOIN027 ;;8192208
EEOIN028 ;;1965879
EEOINIS ;;2168307
EEOINIT ;;10829233
EEOINIT1 ;;5700373
EEOINIT2 ;;5232639
EEOINIT3 ;;16093541
EEOINIT4 ;;3357811
EEOINIT5 ;;1217308
EEOIPCON ;;10149140
EEOIPOS2 ;;10406787
EEOIPOST ;;8798681
EEOIPRE ;;44559
EEOUTIL ;;5522790
EEOUTIL1 ;;6847267
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HEEONTEG 3061 printed Oct 16, 2024@17:52:06 Page 2
EEONTEG ;ISC/XTSUMBLD KERNEL - Package checksum checker ;APR 26, 1995@09:33:28
+1 ;;2.0;EEO Complaint Tracking;;Apr 27, 1995
+2 ;;7.2;APR 26, 1995@09:33:28
+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 ;
+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 ;;
EEO0210 ;;14059811
EEO211 ;;9961734
EEOEAHO1 ;;9202738
EEOEAHO2 ;;7231931
EEOEAHOC ;;13718465
EEOEEDIE ;;8755140
EEOEEXE ;;8539870
EEOEEXMT ;;5351853
EEOEFIN ;;18655248
EEOEINP ;;3826665
EEOEMAN ;;5755760
EEOENF ;;5716172
EEOEOE2 ;;7147038
EEOEOI5 ;;5946587
EEOEOI6 ;;4635217
EEOEOP2 ;;3105960
EEOEOSE ;;12545787
EEOERCR ;;16248822
EEOERCR1 ;;41140744
EEOETICK ;;9984982
EEOEXE1 ;;11146481
EEOEXMT1 ;;6240330
EEOEXMT2 ;;5635159
EEOIN001 ;;10418583
EEOIN002 ;;9641785
EEOIN003 ;;12427901
EEOIN004 ;;12689540
EEOIN005 ;;10988726
EEOIN006 ;;13982102
EEOIN007 ;;11213705
EEOIN008 ;;11149937
EEOIN009 ;;7958865
EEOIN00A ;;9108573
EEOIN00B ;;2651326
EEOIN00C ;;1574589
EEOIN00D ;;3492330
EEOIN00E ;;2338901
EEOIN00F ;;10787283
EEOIN00G ;;9168500
EEOIN00H ;;11586588
EEOIN00I ;;10700009
EEOIN00J ;;3761154
EEOIN00K ;;3860088
EEOIN00L ;;1727319
EEOIN00M ;;9339460
EEOIN00N ;;3623950
EEOIN00O ;;5086014
EEOIN00P ;;5286817
EEOIN00Q ;;5329896
EEOIN00R ;;5603038
EEOIN00S ;;5780436
EEOIN00T ;;5556740
EEOIN00U ;;5714014
EEOIN00V ;;5637500
EEOIN00W ;;5696561
EEOIN00X ;;5835832
EEOIN00Y ;;5708262
EEOIN00Z ;;5604985
EEOIN010 ;;5412853
EEOIN011 ;;5813503
EEOIN012 ;;5346462
EEOIN013 ;;5709159
EEOIN014 ;;5912095
EEOIN015 ;;5519220
EEOIN016 ;;5592750
EEOIN017 ;;5622916
EEOIN018 ;;5517428
EEOIN019 ;;5491864
EEOIN01A ;;6240729
EEOIN01B ;;5723864
EEOIN01C ;;4811844
EEOIN01D ;;4478954
EEOIN01E ;;4397929
EEOIN01F ;;4309516
EEOIN01G ;;4305036
EEOIN01H ;;4415252
EEOIN01I ;;4315694
EEOIN01J ;;4351726
EEOIN01K ;;4305902
EEOIN01L ;;4312866
EEOIN01M ;;4474900
EEOIN01N ;;4309574
EEOIN01O ;;4310448
EEOIN01P ;;4396909
EEOIN01Q ;;4294548
EEOIN01R ;;4312086
EEOIN01S ;;4311859
EEOIN01T ;;4296643
EEOIN01U ;;4318788
EEOIN01V ;;4291564
EEOIN01W ;;4298280
EEOIN01X ;;4313018
EEOIN01Y ;;4295409
EEOIN01Z ;;4712186
EEOIN020 ;;6438676
EEOIN021 ;;6069173
EEOIN022 ;;2305860
EEOIN023 ;;4807486
EEOIN024 ;;1412870
EEOIN025 ;;6743330
EEOIN026 ;;8771070
EEOIN027 ;;8192208
EEOIN028 ;;1965879
EEOINIS ;;2168307
EEOINIT ;;10829233
EEOINIT1 ;;5700373
EEOINIT2 ;;5232639
EEOINIT3 ;;16093541
EEOINIT4 ;;3357811
EEOINIT5 ;;1217308
EEOIPCON ;;10149140
EEOIPOS2 ;;10406787
EEOIPOST ;;8798681
EEOIPRE ;;44559
EEOUTIL ;;5522790
EEOUTIL1 ;;6847267
