ZINTEG.m

ZINTEG ;ISC/XTSUMBLD KERNEL - Package checksum checker ;MAR 08, 1996@16:15:32

 ;;0.0;

 ;;7.2;MAR 08, 1996@16:15:32

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

%ZIS ;;9225804

%ZIS1 ;;9986473

%ZIS2 ;;10804239

%ZIS3 ;;6432307

%ZIS5 ;;7807527

%ZIS6 ;;10361073

%ZIS7 ;;3002967

%ZISC ;;8464347

%ZISP ;;1595683

%ZISS ;;8559518

%ZISS1 ;;7994076

%ZISS2 ;;845268

%ZISUTL ;;2297285

%ZTER ;;18033524

%ZTER1 ;;5362718

%ZTLOAD ;;893618

%ZTLOAD1 ;;6267103

%ZTLOAD2 ;;3203201

%ZTLOAD3 ;;3739552

%ZTLOAD4 ;;6817565

%ZTLOAD5 ;;5571101

%ZTLOAD6 ;;3749408

%ZTLOAD7 ;;3885066

%ZTM ;;7555965

%ZTM0 ;;5244015

%ZTM1 ;;5569955

%ZTM2 ;;3666292

%ZTM3 ;;3114917

%ZTM4 ;;2450447

%ZTM5 ;;3124619

%ZTM6 ;;1889159

%ZTMOVE ;;13338135

%ZTMS ;;5438606

%ZTMS0 ;;3247481

%ZTMS1 ;;5241448

%ZTMS2 ;;5278281

%ZTMS3 ;;8981036

%ZTMS4 ;;4980927

%ZTMS7 ;;1507577

%ZTMSH ;;767986

XUCIDTM ;;2563316

XUCIIS2 ;;2286635

XUCIMSM ;;2996249

XUCIMSQ ;;2286635

XUCIVXD ;;2941248

ZIS4DTM ;;7025909

ZIS4IS2 ;;8958189

ZIS4MSM ;;6576195

ZIS4MSQ ;;8966654

ZIS4VXD ;;8256988

ZISETDTM ;;3961597

ZISETIS2 ;;7320641

ZISETMSM ;;6833482

ZISETMSQ ;;7320641

ZISETVXD ;;7650903

ZISFDTM ;;4678949

ZISFIS2 ;;3751438

ZISFMSM ;;4351577

ZISFMSQ ;;3751438

ZISFVXD ;;3545479

ZISHDTM ;;7331941

ZISHIS2 ;;2223

ZISHMSM ;;8010464

ZISHMSQ ;;2223

ZISHMSU ;;8698384

ZISHUNT ;;4004736

ZISHVXD ;;3250686

ZISX ;;139567

ZOSFDTM ;;7872696

ZOSFIS2 ;;6896814

ZOSFMSM ;;6800771

ZOSFMSQ ;;8645275

ZOSFVXD ;;7621590

ZOSV1DTM ;;1336349

ZOSV1VXD ;;2355871

ZOSV2MSM ;;8368187

ZOSV2VXD ;;8388457

ZOSVDTM ;;5567795

ZOSVIS2 ;;5052338

ZOSVMSM ;;11540039

ZOSVMSQ ;;4730703

ZOSVVXD ;;7409621

ZTBKCDTM ;;7843194

ZTBKCMSM ;;5947897

ZTBKCMSQ ;;5096303

ZTBKCVXD ;;5319791

ZTMB ;;10291516

ZTMCHK ;;2933470

ZTMCHK1 ;;6522196

ZTMDCL ;;534689

ZTMGRSET ;;11092996

ZTMKU ;;8211227

ZTMON ;;3969317

ZTMON1 ;;7308728

ZUA ;;2658964

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---ZINTEG   2458     printed  Apr 09, 2024@21:44:25                                                                                                                                                                                                      Page 2

ZINTEG    ;ISC/XTSUMBLD KERNEL - Package checksum checker ;MAR 08, 1996@16:15:32

 +1       ;;0.0;

 +2       ;;7.2;MAR 08, 1996@16:15:32

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

%ZIS      ;;9225804

%ZIS1     ;;9986473

%ZIS2     ;;10804239

%ZIS3     ;;6432307

%ZIS5     ;;7807527

%ZIS6     ;;10361073

%ZIS7     ;;3002967

%ZISC     ;;8464347

%ZISP     ;;1595683

%ZISS     ;;8559518

%ZISS1    ;;7994076

%ZISS2    ;;845268

%ZISUTL   ;;2297285

%ZTER     ;;18033524

%ZTER1    ;;5362718

%ZTLOAD   ;;893618

%ZTLOAD1  ;;6267103

%ZTLOAD2  ;;3203201

%ZTLOAD3  ;;3739552

%ZTLOAD4  ;;6817565

%ZTLOAD5  ;;5571101

%ZTLOAD6  ;;3749408

%ZTLOAD7  ;;3885066

%ZTM      ;;7555965

%ZTM0     ;;5244015

%ZTM1     ;;5569955

%ZTM2     ;;3666292

%ZTM3     ;;3114917

%ZTM4     ;;2450447

%ZTM5     ;;3124619

%ZTM6     ;;1889159

%ZTMOVE   ;;13338135

%ZTMS     ;;5438606

%ZTMS0    ;;3247481

%ZTMS1    ;;5241448

%ZTMS2    ;;5278281

%ZTMS3    ;;8981036

%ZTMS4    ;;4980927

%ZTMS7    ;;1507577

%ZTMSH    ;;767986

XUCIDTM   ;;2563316

XUCIIS2   ;;2286635

XUCIMSM   ;;2996249

XUCIMSQ   ;;2286635

XUCIVXD   ;;2941248

ZIS4DTM   ;;7025909

ZIS4IS2   ;;8958189

ZIS4MSM   ;;6576195

ZIS4MSQ   ;;8966654

ZIS4VXD   ;;8256988

ZISETDTM  ;;3961597

ZISETIS2  ;;7320641

ZISETMSM  ;;6833482

ZISETMSQ  ;;7320641

ZISETVXD  ;;7650903

ZISFDTM   ;;4678949

ZISFIS2   ;;3751438

ZISFMSM   ;;4351577

ZISFMSQ   ;;3751438

ZISFVXD   ;;3545479

ZISHDTM   ;;7331941

ZISHIS2   ;;2223

ZISHMSM   ;;8010464

ZISHMSQ   ;;2223

ZISHMSU   ;;8698384

ZISHUNT   ;;4004736

ZISHVXD   ;;3250686

ZISX      ;;139567

ZOSFDTM   ;;7872696

ZOSFIS2   ;;6896814

ZOSFMSM   ;;6800771

ZOSFMSQ   ;;8645275

ZOSFVXD   ;;7621590

ZOSV1DTM  ;;1336349

ZOSV1VXD  ;;2355871

ZOSV2MSM  ;;8368187

ZOSV2VXD  ;;8388457

ZOSVDTM   ;;5567795

ZOSVIS2   ;;5052338

ZOSVMSM   ;;11540039

ZOSVMSQ   ;;4730703

ZOSVVXD   ;;7409621

ZTBKCDTM  ;;7843194

ZTBKCMSM  ;;5947897

ZTBKCMSQ  ;;5096303

ZTBKCVXD  ;;5319791

ZTMB      ;;10291516

ZTMCHK    ;;2933470

ZTMCHK1   ;;6522196

ZTMDCL    ;;534689

ZTMGRSET  ;;11092996

ZTMKU     ;;8211227

ZTMON     ;;3969317

ZTMON1    ;;7308728

ZUA       ;;2658964