ESPNTEG.m

ESPNTEG ;ISC/XTSUMBLD KERNEL - Package checksum checker ;MAR 31, 1994@08:01:37

 ;;1.0;POLICE & SECURITY;;Mar 31, 1994

 ;;7.1;MAR 31, 1994@08:01:37

 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 ;;

ESPCLEAN ;;3617130

ESPDISP ;;8445950

ESPEVID ;;2633580

ESPFM ;;671826

ESPJOU ;;7420205

ESPLKUP ;;1111906

ESPMNI ;;8390757

ESPMNI0 ;;6907068

ESPMNI1 ;;11760087

ESPMNI2 ;;7339736

ESPOFF ;;9577402

ESPOFF0 ;;4501317

ESPOFF1 ;;11861002

ESPOFF2 ;;7874513

ESPOFF3 ;;2612029

ESPOFFC ;;1826778

ESPOFFCL ;;4293110

ESPOFFDE ;;1304355

ESPOFFE ;;9140986

ESPOFI ;;2873726

ESPOFP ;;4985097

ESPOID ;;1183794

ESPORM ;;6476318

ESPORM1 ;;9780856

ESPORM2 ;;11613373

ESPORM3 ;;9391867

ESPORM4 ;;7212940

ESPORM5 ;;8440221

ESPORO ;;1939123

ESPORP ;;6209059

ESPORP1 ;;7690242

ESPORP2 ;;8758394

ESPORP3 ;;7608208

ESPORP4 ;;5994947

ESPORP5 ;;5709927

ESPORR ;;1457912

ESPOST ;;75075

ESPQNC ;;15482737

ESPRE ;;1342

ESPREG ;;5049457

ESPSCR ;;6634426

ESPSCR0 ;;7329208

ESPSCR1 ;;6394895

ESPSOUN ;;8321687

ESPUCD ;;1892232

ESPUCM ;;3234667

ESPUCM1 ;;13162314

ESPUCM2 ;;11602226

ESPUCM3 ;;12134922

ESPUCM4 ;;10696088

ESPUCM5 ;;7624962

ESPUCM6 ;;5207702

ESPUCP ;;3031002

ESPUCP1 ;;9796208

ESPUCP2 ;;8227056

ESPUCP3 ;;8371546

ESPUCP4 ;;7009374

ESPUCP5 ;;5482768

ESPUCP6 ;;3564270

ESPUCR ;;7931679

ESPUCR1 ;;7602101

ESPUCR2 ;;5688017

ESPUCR3 ;;3880770

ESPUCR4 ;;10238627

ESPUCR5 ;;3574673

ESPUOR ;;284432

ESPUTIL ;;289821

ESPUVN ;;11161871

ESPVAL ;;2569800

ESPVEH ;;618734

ESPVNE ;;1686447

ESPVNP ;;8453293

ESPVREG ;;9086257

ESPWR ;;6006260

ESPWR1 ;;1123731

ESPXREF ;;2231562

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---ESPNTEG   2154     printed  Apr 09, 2024@21:32:48                                                                                                                                                                                                     Page 2

ESPNTEG   ;ISC/XTSUMBLD KERNEL - Package checksum checker ;MAR 31, 1994@08:01:37

 +1       ;;1.0;POLICE & SECURITY;;Mar 31, 1994

 +2       ;;7.1;MAR 31, 1994@08:01:37

 +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       ;;

ESPCLEAN  ;;3617130

ESPDISP   ;;8445950

ESPEVID   ;;2633580

ESPFM     ;;671826

ESPJOU    ;;7420205

ESPLKUP   ;;1111906

ESPMNI    ;;8390757

ESPMNI0   ;;6907068

ESPMNI1   ;;11760087

ESPMNI2   ;;7339736

ESPOFF    ;;9577402

ESPOFF0   ;;4501317

ESPOFF1   ;;11861002

ESPOFF2   ;;7874513

ESPOFF3   ;;2612029

ESPOFFC   ;;1826778

ESPOFFCL  ;;4293110

ESPOFFDE  ;;1304355

ESPOFFE   ;;9140986

ESPOFI    ;;2873726

ESPOFP    ;;4985097

ESPOID    ;;1183794

ESPORM    ;;6476318

ESPORM1   ;;9780856

ESPORM2   ;;11613373

ESPORM3   ;;9391867

ESPORM4   ;;7212940

ESPORM5   ;;8440221

ESPORO    ;;1939123

ESPORP    ;;6209059

ESPORP1   ;;7690242

ESPORP2   ;;8758394

ESPORP3   ;;7608208

ESPORP4   ;;5994947

ESPORP5   ;;5709927

ESPORR    ;;1457912

ESPOST    ;;75075

ESPQNC    ;;15482737

ESPRE     ;;1342

ESPREG    ;;5049457

ESPSCR    ;;6634426

ESPSCR0   ;;7329208

ESPSCR1   ;;6394895

ESPSOUN   ;;8321687

ESPUCD    ;;1892232

ESPUCM    ;;3234667

ESPUCM1   ;;13162314

ESPUCM2   ;;11602226

ESPUCM3   ;;12134922

ESPUCM4   ;;10696088

ESPUCM5   ;;7624962

ESPUCM6   ;;5207702

ESPUCP    ;;3031002

ESPUCP1   ;;9796208

ESPUCP2   ;;8227056

ESPUCP3   ;;8371546

ESPUCP4   ;;7009374

ESPUCP5   ;;5482768

ESPUCP6   ;;3564270

ESPUCR    ;;7931679

ESPUCR1   ;;7602101

ESPUCR2   ;;5688017

ESPUCR3   ;;3880770

ESPUCR4   ;;10238627

ESPUCR5   ;;3574673

ESPUOR    ;;284432

ESPUTIL   ;;289821

ESPUVN    ;;11161871

ESPVAL    ;;2569800

ESPVEH    ;;618734

ESPVNE    ;;1686447

ESPVNP    ;;8453293

ESPVREG   ;;9086257

ESPWR     ;;6006260

ESPWR1    ;;1123731

ESPXREF   ;;2231562