XTNTEG01.m

XTNTEG01 ;ISC/XTSUMBLD KERNEL - Package checksum checker ;2950425.092013

 ;;7.3;TOOLKIT;;Apr 25, 1995

 ;;7.3;2950425.092013

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

XUCSINI1 ;;5671874

XUCSINI2 ;;5232622

XUCSINI3 ;;16094695

XUCSINI4 ;;3357794

XUCSINI5 ;;628012

XUCSINIS ;;2216765

XUCSINIT ;;10890951

XUCSLOAD ;;6778573

XUCSPRG ;;4520058

XUCSRV ;;5969322

XUCSTM ;;6457738

XUCSTME ;;13223145

XUCSUTL ;;2837344

XUCSUTL2 ;;6021611

XUCSUTL3 ;;11276783

XURTL ;;7949393

XURTL1 ;;7623474

XURTL2 ;;5911591

XURTL3 ;;9463174

XURTL4 ;;8083788

XURTLC ;;3647421

XURTLK ;;5463315

ZINDEX ;;7934389

ZINDX1 ;;5876099

ZINDX10 ;;11716270

ZINDX11 ;;6160284

ZINDX2 ;;4603647

ZINDX3 ;;3896672

ZINDX4 ;;4546127

ZINDX5 ;;6415684

ZINDX51 ;;8782796

ZINDX52 ;;2299766

ZINDX53 ;;4122137

ZINDX6 ;;12035964

ZINDX8 ;;6760814

ZINDX9 ;;4986099

ZINDXH ;;1579327

ZTEDIT ;;11385452

ZTEDIT1 ;;9783719

ZTEDIT2 ;;12580728

ZTEDIT3 ;;9890321

ZTEDIT4 ;;4936626

ZTGS ;;1511640

ZTP1 ;;7893577

ZTPP ;;7019346

ZTRDEL ;;959784

ZTRTHV ;;6018658

XTNTEG01  ;ISC/XTSUMBLD KERNEL - Package checksum checker ;2950425.092013

 +1       ;;7.3;TOOLKIT;;Apr 25, 1995

 +2       ;;7.3;2950425.092013

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

XUCSINI1  ;;5671874

XUCSINI2  ;;5232622

XUCSINI3  ;;16094695

XUCSINI4  ;;3357794

XUCSINI5  ;;628012

XUCSINIS  ;;2216765

XUCSINIT  ;;10890951

XUCSLOAD  ;;6778573

XUCSPRG   ;;4520058

XUCSRV    ;;5969322

XUCSTM    ;;6457738

XUCSTME   ;;13223145

XUCSUTL   ;;2837344

XUCSUTL2  ;;6021611

XUCSUTL3  ;;11276783

XURTL     ;;7949393

XURTL1    ;;7623474

XURTL2    ;;5911591

XURTL3    ;;9463174

XURTL4    ;;8083788

XURTLC    ;;3647421

XURTLK    ;;5463315

ZINDEX    ;;7934389

ZINDX1    ;;5876099

ZINDX10   ;;11716270

ZINDX11   ;;6160284

ZINDX2    ;;4603647

ZINDX3    ;;3896672

ZINDX4    ;;4546127

ZINDX5    ;;6415684

ZINDX51   ;;8782796

ZINDX52   ;;2299766

ZINDX53   ;;4122137

ZINDX6    ;;12035964

ZINDX8    ;;6760814

ZINDX9    ;;4986099

ZINDXH    ;;1579327

ZTEDIT    ;;11385452

ZTEDIT1   ;;9783719

ZTEDIT2   ;;12580728

ZTEDIT3   ;;9890321

ZTEDIT4   ;;4936626

ZTGS      ;;1511640

ZTP1      ;;7893577

ZTPP      ;;7019346

ZTRDEL    ;;959784

ZTRTHV    ;;6018658