EEONTEG.m

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 ---EEONTEG   3061     printed  Mar 13, 2025@20:55:56                                                                                                                                                                                                     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