- ENXINTEG ;ISC/XTSUMBLD KERNEL - Package checksum checker ;2960502.131141
- ;;7.0;ENGINEERING;**29**;AUG 17, 1993
- ;;7.3;2960502.131141
- 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 ;;
- ENEQ1 ;;15943609
- ENEQ2 ;;3718555
- ENEQ3 ;;9567935
- ENFAACQ ;;3251203
- ENFABAL ;;7395231
- ENFABAL1 ;;6148095
- ENFABAL2 ;;4772133
- ENFABETR ;;6586420
- ENFACHG ;;8006179
- ENFACHG1 ;;4952416
- ENFADEL ;;7044336
- ENFAR5 ;;2158505
- ENFAR5A ;;5963313
- ENFAR5B ;;4664964
- ENFAR6 ;;4453095
- ENFAR7 ;;4442374
- ENFAR8 ;;9004680
- ENFAR9 ;;4795054
- ENFAUTL ;;5899860
- ENFAVAL ;;5036996
- ENFAXFR ;;11159800
- ENFAXMT ;;6799082
- ENFAXMT1 ;;1943030
- ENFAXMT2 ;;3087087
- ENFAXMT3 ;;2819864
- ENFAXMTM ;;13047900
- ENXII001 ;;10753466
- ENXII002 ;;10015525
- ENXII003 ;;4340468
- ENXII004 ;;12599245
- ENXII005 ;;16230405
- ENXII006 ;;9901233
- ENXII007 ;;8714324
- ENXII008 ;;11121727
- ENXII009 ;;15165236
- ENXII00A ;;9549838
- ENXII00B ;;2260736
- ENXII00C ;;9464213
- ENXII00D ;;6163681
- ENXII00E ;;5979267
- ENXII00F ;;7149044
- ENXII00G ;;8106054
- ENXII00H ;;6876419
- ENXII00I ;;7505659
- ENXII00J ;;1666345
- ENXII00K ;;7134128
- ENXII00L ;;7927807
- ENXII00M ;;8369132
- ENXII00N ;;7175350
- ENXII00O ;;7152387
- ENXII00P ;;7850369
- ENXII00Q ;;8469378
- ENXII00R ;;8155274
- ENXII00S ;;7493063
- ENXII00T ;;7133566
- ENXII00U ;;7885107
- ENXII00V ;;7140619
- ENXII00W ;;7148774
- ENXII00X ;;7981917
- ENXII00Y ;;7395102
- ENXII00Z ;;2908187
- ENXII010 ;;8139617
- ENXII011 ;;2293500
- ENXII012 ;;1544611
- ENXII013 ;;11875590
- ENXII014 ;;8877057
- ENXII015 ;;8383757
- ENXII016 ;;10831159
- ENXII017 ;;6054024
- ENXIIEN ;;2138630
- ENXIINI1 ;;4931412
- ENXIINI2 ;;5232612
- ENXIINI3 ;;16807402
- ENXIINI4 ;;3357784
- ENXIINI5 ;;1219345
- ENXIINIT ;;10512210
- ENXIIPR ;;692591
- ENXIIPS ;;2761988
- --- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HENXINTEG 2264 printed Feb 18, 2025@23:23:12 Page 2
- ENXINTEG ;ISC/XTSUMBLD KERNEL - Package checksum checker ;2960502.131141
- +1 ;;7.0;ENGINEERING;**29**;AUG 17, 1993
- +2 ;;7.3;2960502.131141
- +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 ;;
- ENEQ1 ;;15943609
- ENEQ2 ;;3718555
- ENEQ3 ;;9567935
- ENFAACQ ;;3251203
- ENFABAL ;;7395231
- ENFABAL1 ;;6148095
- ENFABAL2 ;;4772133
- ENFABETR ;;6586420
- ENFACHG ;;8006179
- ENFACHG1 ;;4952416
- ENFADEL ;;7044336
- ENFAR5 ;;2158505
- ENFAR5A ;;5963313
- ENFAR5B ;;4664964
- ENFAR6 ;;4453095
- ENFAR7 ;;4442374
- ENFAR8 ;;9004680
- ENFAR9 ;;4795054
- ENFAUTL ;;5899860
- ENFAVAL ;;5036996
- ENFAXFR ;;11159800
- ENFAXMT ;;6799082
- ENFAXMT1 ;;1943030
- ENFAXMT2 ;;3087087
- ENFAXMT3 ;;2819864
- ENFAXMTM ;;13047900
- ENXII001 ;;10753466
- ENXII002 ;;10015525
- ENXII003 ;;4340468
- ENXII004 ;;12599245
- ENXII005 ;;16230405
- ENXII006 ;;9901233
- ENXII007 ;;8714324
- ENXII008 ;;11121727
- ENXII009 ;;15165236
- ENXII00A ;;9549838
- ENXII00B ;;2260736
- ENXII00C ;;9464213
- ENXII00D ;;6163681
- ENXII00E ;;5979267
- ENXII00F ;;7149044
- ENXII00G ;;8106054
- ENXII00H ;;6876419
- ENXII00I ;;7505659
- ENXII00J ;;1666345
- ENXII00K ;;7134128
- ENXII00L ;;7927807
- ENXII00M ;;8369132
- ENXII00N ;;7175350
- ENXII00O ;;7152387
- ENXII00P ;;7850369
- ENXII00Q ;;8469378
- ENXII00R ;;8155274
- ENXII00S ;;7493063
- ENXII00T ;;7133566
- ENXII00U ;;7885107
- ENXII00V ;;7140619
- ENXII00W ;;7148774
- ENXII00X ;;7981917
- ENXII00Y ;;7395102
- ENXII00Z ;;2908187
- ENXII010 ;;8139617
- ENXII011 ;;2293500
- ENXII012 ;;1544611
- ENXII013 ;;11875590
- ENXII014 ;;8877057
- ENXII015 ;;8383757
- ENXII016 ;;10831159
- ENXII017 ;;6054024
- ENXIIEN ;;2138630
- ENXIINI1 ;;4931412
- ENXIINI2 ;;5232612
- ENXIINI3 ;;16807402
- ENXIINI4 ;;3357784
- ENXIINI5 ;;1219345
- ENXIINIT ;;10512210
- ENXIIPR ;;692591
- ENXIIPS ;;2761988