| 1 | IBQLNTEG ;ISC/XTSUMBLD KERNEL - Package checksum checker ;2951030.100353
|
|---|
| 2 | ;;1.0;UTILIZATION MGMT ROLLUP LOCAL;;Oct 01, 1995
|
|---|
| 3 | ;;7.3;2951030.100353
|
|---|
| 4 | S XT4="I 1",X=$T(+3) W !!,"Checksum routine created on ",$P(X,";",4)," by KERNEL V",$P(X,";",3),!
|
|---|
| 5 | 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")
|
|---|
| 6 | ;
|
|---|
| 7 | K %1,%2,%3,X,Y,XT1,XT2,XT3,XT4 Q
|
|---|
| 8 | 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),!
|
|---|
| 9 | W !,"Check a subset of routines:" K ^UTILITY($J) X ^%ZOSF("RSEL")
|
|---|
| 10 | W ! G CONT
|
|---|
| 11 | ROU ;;
|
|---|
| 12 | IBQL356 ;;10357201
|
|---|
| 13 | IBQL356A ;;560227
|
|---|
| 14 | IBQL538 ;;3062477
|
|---|
| 15 | IBQLCHK ;;2416122
|
|---|
| 16 | IBQLD1 ;;8595305
|
|---|
| 17 | IBQLD1A ;;4873197
|
|---|
| 18 | IBQLD2 ;;8571088
|
|---|
| 19 | IBQLD2A ;;5460619
|
|---|
| 20 | IBQLD3 ;;8958035
|
|---|
| 21 | IBQLD3A ;;4707671
|
|---|
| 22 | IBQLD4 ;;7583745
|
|---|
| 23 | IBQLD4A ;;3967228
|
|---|
| 24 | IBQLI001 ;;6590890
|
|---|
| 25 | IBQLI002 ;;2451363
|
|---|
| 26 | IBQLI003 ;;8109352
|
|---|
| 27 | IBQLI004 ;;7675473
|
|---|
| 28 | IBQLI005 ;;6381720
|
|---|
| 29 | IBQLI006 ;;7001284
|
|---|
| 30 | IBQLI007 ;;7290265
|
|---|
| 31 | IBQLI008 ;;8371242
|
|---|
| 32 | IBQLI009 ;;1314180
|
|---|
| 33 | IBQLI00A ;;8259827
|
|---|
| 34 | IBQLI00B ;;8478572
|
|---|
| 35 | IBQLI00C ;;5176901
|
|---|
| 36 | IBQLI00D ;;1495600
|
|---|
| 37 | IBQLINI1 ;;4857984
|
|---|
| 38 | IBQLINI2 ;;5232583
|
|---|
| 39 | IBQLINI3 ;;16806696
|
|---|
| 40 | IBQLINI4 ;;3357755
|
|---|
| 41 | IBQLINI5 ;;689716
|
|---|
| 42 | IBQLINIS ;;2210492
|
|---|
| 43 | IBQLINIT ;;10547626
|
|---|
| 44 | IBQLLD ;;4517478
|
|---|
| 45 | IBQLLD1 ;;3113186
|
|---|
| 46 | IBQLLD2 ;;1385114
|
|---|
| 47 | IBQLPL ;;5793561
|
|---|
| 48 | IBQLPL1 ;;4592178
|
|---|
| 49 | IBQLPL2 ;;2771398
|
|---|
| 50 | IBQLPL3 ;;1798902
|
|---|
| 51 | IBQLPOST ;;2128350
|
|---|
| 52 | IBQLPRE ;;3014709
|
|---|
| 53 | IBQLPRG ;;1036117
|
|---|
| 54 | IBQLR1 ;;8942883
|
|---|
| 55 | IBQLR1A ;;6686896
|
|---|
| 56 | IBQLR1B ;;466263
|
|---|
| 57 | IBQLR2 ;;9043310
|
|---|
| 58 | IBQLR2A ;;7009204
|
|---|
| 59 | IBQLR3 ;;9201450
|
|---|
| 60 | IBQLR3A ;;5987854
|
|---|
| 61 | IBQLR4 ;;7880887
|
|---|
| 62 | IBQLR4A ;;5742076
|
|---|
| 63 | IBQLSCR ;;5094024
|
|---|
| 64 | IBQLT ;;3543515
|
|---|
| 65 | IBQLT5 ;;791007
|
|---|
| 66 | IBQLT5A ;;940060
|
|---|
