LR01NTEG.m

LR01NTEG ;ISC/XTSUMBLD KERNEL - Package checksum checker ;AUG 08, 1995@15:23:04

 ;;5.2;LR;;NOV 01, 1997

 ;

 ;;5.2;LAB SERVICE;**34**;Sep 27, 1994

 ;;7.2;AUG 08, 1995@15:23:04

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

LR01I001 ;;5289448

LR01I002 ;;7219265

LR01I003 ;;8687050

LR01I004 ;;5566175

LR01I005 ;;5658590

LR01I006 ;;8539428

LR01I007 ;;8001098

LR01I008 ;;5311479

LR01I009 ;;5554800

LR01I00A ;;7535693

LR01I00B ;;8087598

LR01I00C ;;5564321

LR01I00D ;;6846563

LR01I00E ;;4870954

LR01I00F ;;6170549

LR01I00G ;;5761233

LR01I00H ;;5247162

LR01I00I ;;6013300

LR01I00J ;;5193782

LR01I00K ;;4700715

LR01I00L ;;5087486

LR01I00M ;;6427567

LR01I00N ;;5794303

LR01I00O ;;5443092

LR01I00P ;;5214456

LR01I00Q ;;5757443

LR01I00R ;;5671245

LR01I00S ;;5194607

LR01I00T ;;6202556

LR01I00U ;;5931098

LR01I00V ;;5264520

LR01I00W ;;6479495

LR01I00X ;;6968523

LR01I00Y ;;4670370

LR01I00Z ;;6389918

LR01I010 ;;5520448

LR01I011 ;;2258662

LR01I012 ;;4261803

LR01I013 ;;2584389

LR01INI1 ;;5628499

LR01INI2 ;;5232411

LR01INI3 ;;16090601

LR01INI4 ;;3357583

LR01INI5 ;;420532

LR01INIS ;;2199613

LR01INIT ;;10990751

LRAPCUM ;;14047316

LR01NTEG  ;ISC/XTSUMBLD KERNEL - Package checksum checker ;AUG 08, 1995@15:23:04

 +1       ;;5.2;LR;;NOV 01, 1997

 +2       ;

 +3       ;;5.2;LAB SERVICE;**34**;Sep 27, 1994

 +4       ;;7.2;AUG 08, 1995@15:23:04

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

LR01I001  ;;5289448

LR01I002  ;;7219265

LR01I003  ;;8687050

LR01I004  ;;5566175

LR01I005  ;;5658590

LR01I006  ;;8539428

LR01I007  ;;8001098

LR01I008  ;;5311479

LR01I009  ;;5554800

LR01I00A  ;;7535693

LR01I00B  ;;8087598

LR01I00C  ;;5564321

LR01I00D  ;;6846563

LR01I00E  ;;4870954

LR01I00F  ;;6170549

LR01I00G  ;;5761233

LR01I00H  ;;5247162

LR01I00I  ;;6013300

LR01I00J  ;;5193782

LR01I00K  ;;4700715

LR01I00L  ;;5087486

LR01I00M  ;;6427567

LR01I00N  ;;5794303

LR01I00O  ;;5443092

LR01I00P  ;;5214456

LR01I00Q  ;;5757443

LR01I00R  ;;5671245

LR01I00S  ;;5194607

LR01I00T  ;;6202556

LR01I00U  ;;5931098

LR01I00V  ;;5264520

LR01I00W  ;;6479495

LR01I00X  ;;6968523

LR01I00Y  ;;4670370

LR01I00Z  ;;6389918

LR01I010  ;;5520448

LR01I011  ;;2258662

LR01I012  ;;4261803

LR01I013  ;;2584389

LR01INI1  ;;5628499

LR01INI2  ;;5232411

LR01INI3  ;;16090601

LR01INI4  ;;3357583

LR01INI5  ;;420532

LR01INIS  ;;2199613

LR01INIT  ;;10990751

LRAPCUM   ;;14047316