67 lines
1.7 KiB
Mathematica
67 lines
1.7 KiB
Mathematica
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
|