IBQLNTEG.m

IBQLNTEG ;ISC/XTSUMBLD KERNEL - Package checksum checker ;2951030.100353

 ;;1.0;UTILIZATION MGMT ROLLUP LOCAL;;Oct 01, 1995

 ;;7.3;2951030.100353

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

IBQL356 ;;10357201

IBQL356A ;;560227

IBQL538 ;;3062477

IBQLCHK ;;2416122

IBQLD1 ;;8595305

IBQLD1A ;;4873197

IBQLD2 ;;8571088

IBQLD2A ;;5460619

IBQLD3 ;;8958035

IBQLD3A ;;4707671

IBQLD4 ;;7583745

IBQLD4A ;;3967228

IBQLI001 ;;6590890

IBQLI002 ;;2451363

IBQLI003 ;;8109352

IBQLI004 ;;7675473

IBQLI005 ;;6381720

IBQLI006 ;;7001284

IBQLI007 ;;7290265

IBQLI008 ;;8371242

IBQLI009 ;;1314180

IBQLI00A ;;8259827

IBQLI00B ;;8478572

IBQLI00C ;;5176901

IBQLI00D ;;1495600

IBQLINI1 ;;4857984

IBQLINI2 ;;5232583

IBQLINI3 ;;16806696

IBQLINI4 ;;3357755

IBQLINI5 ;;689716

IBQLINIS ;;2210492

IBQLINIT ;;10547626

IBQLLD ;;4517478

IBQLLD1 ;;3113186

IBQLLD2 ;;1385114

IBQLPL ;;5793561

IBQLPL1 ;;4592178

IBQLPL2 ;;2771398

IBQLPL3 ;;1798902

IBQLPOST ;;2128350

IBQLPRE ;;3014709

IBQLPRG ;;1036117

IBQLR1 ;;8942883

IBQLR1A ;;6686896

IBQLR1B ;;466263

IBQLR2 ;;9043310

IBQLR2A ;;7009204

IBQLR3 ;;9201450

IBQLR3A ;;5987854

IBQLR4 ;;7880887

IBQLR4A ;;5742076

IBQLSCR ;;5094024

IBQLT ;;3543515

IBQLT5 ;;791007

IBQLT5A ;;940060

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---IBQLNTEG   1788     printed  Apr 09, 2024@21:43:10                                                                                                                                                                                                    Page 2

IBQLNTEG  ;ISC/XTSUMBLD KERNEL - Package checksum checker ;2951030.100353

 +1       ;;1.0;UTILIZATION MGMT ROLLUP LOCAL;;Oct 01, 1995

 +2       ;;7.3;2951030.100353

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

IBQL356   ;;10357201

IBQL356A  ;;560227

IBQL538   ;;3062477

IBQLCHK   ;;2416122

IBQLD1    ;;8595305

IBQLD1A   ;;4873197

IBQLD2    ;;8571088

IBQLD2A   ;;5460619

IBQLD3    ;;8958035

IBQLD3A   ;;4707671

IBQLD4    ;;7583745

IBQLD4A   ;;3967228

IBQLI001  ;;6590890

IBQLI002  ;;2451363

IBQLI003  ;;8109352

IBQLI004  ;;7675473

IBQLI005  ;;6381720

IBQLI006  ;;7001284

IBQLI007  ;;7290265

IBQLI008  ;;8371242

IBQLI009  ;;1314180

IBQLI00A  ;;8259827

IBQLI00B  ;;8478572

IBQLI00C  ;;5176901

IBQLI00D  ;;1495600

IBQLINI1  ;;4857984

IBQLINI2  ;;5232583

IBQLINI3  ;;16806696

IBQLINI4  ;;3357755

IBQLINI5  ;;689716

IBQLINIS  ;;2210492

IBQLINIT  ;;10547626

IBQLLD    ;;4517478

IBQLLD1   ;;3113186

IBQLLD2   ;;1385114

IBQLPL    ;;5793561

IBQLPL1   ;;4592178

IBQLPL2   ;;2771398

IBQLPL3   ;;1798902

IBQLPOST  ;;2128350

IBQLPRE   ;;3014709

IBQLPRG   ;;1036117

IBQLR1    ;;8942883

IBQLR1A   ;;6686896

IBQLR1B   ;;466263

IBQLR2    ;;9043310

IBQLR2A   ;;7009204

IBQLR3    ;;9201450

IBQLR3A   ;;5987854

IBQLR4    ;;7880887

IBQLR4A   ;;5742076

IBQLSCR   ;;5094024

IBQLT     ;;3543515

IBQLT5    ;;791007

IBQLT5A   ;;940060