XUNTEG01.m

XUNTEG01 ;ISC/XTSUMBLD KERNEL - Package checksum checker ;2980623.172436 [ 04/02/2003   8:29 AM ]

 ;;8.0;KERNEL;**1002,1003,1004,1005,1007**;APR 1, 2003

 ;;0.0;

 ;;7.3;2980623.172436

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

XUWORKDY ;;908391

ZIBENVCK ;;4499474

ZIS ;;9345072

ZIS1 ;;10352714

ZIS3 ;;7206327

ZIS4 ;;8156056

ZIS4DTM ;;7056681

ZIS4MSM ;;8156056

ZIS4MSQ ;;8997426

ZIS4ONT ;;8276172

ZIS4VXD ;;8199670

ZIS5 ;;7670439

ZIS6 ;;9953233

ZISC ;;8022180

ZISEDIT ;;1400355

ZISFMSM ;;4494942

ZISHMSM ;;6142287

ZISHMSMD ;;4181442

ZISHMSMU ;;3814832

ZISHMSU ;;9847627

ZISHONT ;;5018937

ZISHPW ;;6239585

ZISHUNT ;;4027575

ZISHVXD ;;7237979

ZISPL ;;12845946

ZISPL1 ;;8588486

ZISPL2 ;;4126081

ZISTCP ;;2731413

ZISTCPS ;;1090000

ZISUTL ;;2147665

ZISX ;;162406

ZOSFMSM ;;6920477

ZOSFU414 ;;6920477

ZOSFVXD ;;7437953

ZOSV1VXD ;;2386635

ZOSV2VXD ;;9760993

ZOSVDTM ;;5599999

ZOSVMNT ;;11335287

ZOSVMSM ;;11582541

ZOSVMSQ ;;4762962

ZOSVPC43 ;;11582541

ZOSVVXD ;;7826461

ZTEDIT ;;11410464

ZTEDIT1 ;;9808731

ZTEDIT2 ;;12456363

ZTEDIT3 ;;9915333

ZTEDIT4 ;;4959046

ZTER ;;19508273

ZTER1 ;;5713077

ZTGS ;;1511640

ZTLOAD ;;1753065

ZTLOAD2 ;;3185920

ZTLOAD3 ;;3918318

ZTLOAD5 ;;4766775

ZTLOAD7 ;;4104573

ZTM ;;8552250

ZTM0 ;;5800911

ZTM2 ;;3697009

ZTM4 ;;2480923

ZTM5 ;;3784797

ZTM6 ;;1919876

ZTMB ;;10827092

ZTMCHK ;;2956309

ZTMCHK1 ;;6545035

ZTMDCL ;;557832

ZTMGRSET ;;13041424

ZTMKU ;;8234066

ZTMON ;;3992156

ZTMON1 ;;7552281

ZTMS ;;5421008

ZTMS0 ;;3236219

ZTMS1 ;;6271175

ZTMS2 ;;5356731

ZTMS3 ;;10304241

ZTMS7 ;;1528517

ZTP1 ;;7918589

ZTPP ;;7915621

ZTPTCH ;;4599270

ZU ;;3336213

ZUA ;;2681803

ZUDTM ;;3011268

ZUMNT ;;3332356

ZUMSM ;;3336213

ZUMSQ ;;1270811

ZUPCU432 ;;3336213

ZUVXD ;;4645869

XUNTEG01  ;ISC/XTSUMBLD KERNEL - Package checksum checker ;2980623.172436 [ 04/02/2003   8:29 AM ]

 +1       ;;8.0;KERNEL;**1002,1003,1004,1005,1007**;APR 1, 2003

 +2       ;;0.0;

 +3       ;;7.3;2980623.172436

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

XUWORKDY  ;;908391

ZIBENVCK  ;;4499474

ZIS       ;;9345072

ZIS1      ;;10352714

ZIS3      ;;7206327

ZIS4      ;;8156056

ZIS4DTM   ;;7056681

ZIS4MSM   ;;8156056

ZIS4MSQ   ;;8997426

ZIS4ONT   ;;8276172

ZIS4VXD   ;;8199670

ZIS5      ;;7670439

ZIS6      ;;9953233

ZISC      ;;8022180

ZISEDIT   ;;1400355

ZISFMSM   ;;4494942

ZISHMSM   ;;6142287

ZISHMSMD  ;;4181442

ZISHMSMU  ;;3814832

ZISHMSU   ;;9847627

ZISHONT   ;;5018937

ZISHPW    ;;6239585

ZISHUNT   ;;4027575

ZISHVXD   ;;7237979

ZISPL     ;;12845946

ZISPL1    ;;8588486

ZISPL2    ;;4126081

ZISTCP    ;;2731413

ZISTCPS   ;;1090000

ZISUTL    ;;2147665

ZISX      ;;162406

ZOSFMSM   ;;6920477

ZOSFU414  ;;6920477

ZOSFVXD   ;;7437953

ZOSV1VXD  ;;2386635

ZOSV2VXD  ;;9760993

ZOSVDTM   ;;5599999

ZOSVMNT   ;;11335287

ZOSVMSM   ;;11582541

ZOSVMSQ   ;;4762962

ZOSVPC43  ;;11582541

ZOSVVXD   ;;7826461

ZTEDIT    ;;11410464

ZTEDIT1   ;;9808731

ZTEDIT2   ;;12456363

ZTEDIT3   ;;9915333

ZTEDIT4   ;;4959046

ZTER      ;;19508273

ZTER1     ;;5713077

ZTGS      ;;1511640

ZTLOAD    ;;1753065

ZTLOAD2   ;;3185920

ZTLOAD3   ;;3918318

ZTLOAD5   ;;4766775

ZTLOAD7   ;;4104573

ZTM       ;;8552250

ZTM0      ;;5800911

ZTM2      ;;3697009

ZTM4      ;;2480923

ZTM5      ;;3784797

ZTM6      ;;1919876

ZTMB      ;;10827092

ZTMCHK    ;;2956309

ZTMCHK1   ;;6545035

ZTMDCL    ;;557832

ZTMGRSET  ;;13041424

ZTMKU     ;;8234066

ZTMON     ;;3992156

ZTMON1    ;;7552281

ZTMS      ;;5421008

ZTMS0     ;;3236219

ZTMS1     ;;6271175

ZTMS2     ;;5356731

ZTMS3     ;;10304241

ZTMS7     ;;1528517

ZTP1      ;;7918589

ZTPP      ;;7915621

ZTPTCH    ;;4599270

ZU        ;;3336213

ZUA       ;;2681803

ZUDTM     ;;3011268

ZUMNT     ;;3332356

ZUMSM     ;;3336213

ZUMSQ     ;;1270811

ZUPCU432  ;;3336213

ZUVXD     ;;4645869