VALMNTEG.m

VALMNTEG ;ISC/XTSUMBLD KERNEL - Package checksum checker ;AUG 13, 1993@13:29:33

 ;;1;List Manager;;Aug 13, 1993

 ;;7.0;AUG 13, 1993@13:29:33

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

VALM ;;8169958

VALM0 ;;8257026

VALM00 ;;2424021

VALM1 ;;5659194

VALM10 ;;3187230

VALM11 ;;1873339

VALM2 ;;5605143

VALM4 ;;6209662

VALM40 ;;6770263

VALMD ;;6200439

VALML ;;3204898

VALMO001 ;;6368847

VALMO002 ;;6432545

VALMO003 ;;5693807

VALMO004 ;;5671479

VALMO005 ;;1173827

VALMONI1 ;;1700827

VALMONI2 ;;82809

VALMONI3 ;;10576571

VALMONIT ;;996076

VALMPP ;;3223115

VALMPRE ;;1118754

VALMPT ;;175656

VALMPT1 ;;1646374

VALMW ;;1176776

VALMW1 ;;6990418

VALMW2 ;;1313428

VALMW3 ;;6933015

VALMW4 ;;3561982

VALMW5 ;;4125841

VALMWB ;;6818987

VALMXQ01 ;;8249788

VALMXQ02 ;;12790908

VALMXQ03 ;;4820711

VALMXQ04 ;;7032104

VALMXQ05 ;;5440930

VALMXQ06 ;;5282355

VALMXQ07 ;;3027535

VALMXQ08 ;;2797237

VALMXQ09 ;;3772145

VALMXQ10 ;;8103537

VALMXQ11 ;;6037403

VALMXQ12 ;;4392557

VALMXQ13 ;;2869533

VALMXQ14 ;;5118245

VALMXQ15 ;;11455031

VALMNTEG  ;ISC/XTSUMBLD KERNEL - Package checksum checker ;AUG 13, 1993@13:29:33

 +1       ;;1;List Manager;;Aug 13, 1993

 +2       ;;7.0;AUG 13, 1993@13:29:33

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

VALM      ;;8169958

VALM0     ;;8257026

VALM00    ;;2424021

VALM1     ;;5659194

VALM10    ;;3187230

VALM11    ;;1873339

VALM2     ;;5605143

VALM4     ;;6209662

VALM40    ;;6770263

VALMD     ;;6200439

VALML     ;;3204898

VALMO001  ;;6368847

VALMO002  ;;6432545

VALMO003  ;;5693807

VALMO004  ;;5671479

VALMO005  ;;1173827

VALMONI1  ;;1700827

VALMONI2  ;;82809

VALMONI3  ;;10576571

VALMONIT  ;;996076

VALMPP    ;;3223115

VALMPRE   ;;1118754

VALMPT    ;;175656

VALMPT1   ;;1646374

VALMW     ;;1176776

VALMW1    ;;6990418

VALMW2    ;;1313428

VALMW3    ;;6933015

VALMW4    ;;3561982

VALMW5    ;;4125841

VALMWB    ;;6818987

VALMXQ01  ;;8249788

VALMXQ02  ;;12790908

VALMXQ03  ;;4820711

VALMXQ04  ;;7032104

VALMXQ05  ;;5440930

VALMXQ06  ;;5282355

VALMXQ07  ;;3027535

VALMXQ08  ;;2797237

VALMXQ09  ;;3772145

VALMXQ10  ;;8103537

VALMXQ11  ;;6037403

VALMXQ12  ;;4392557

VALMXQ13  ;;2869533

VALMXQ14  ;;5118245

VALMXQ15  ;;11455031