- GMTSNTEG ;ISC/XTSUMBLD KERNEL - Package checksum checker ;OCT 20, 1995@15:13:16
- ;;2.7;Health Summary;;Oct 20, 1995
- ;;7.2;OCT 20, 1995@15:13:16
- 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")
- G CONT^GMTSNTE0
- 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 ;;
- GMTS ;;9747615
- GMTS1 ;;9107723
- GMTS2 ;;1686893
- GMTSADH ;;7009924
- GMTSADH1 ;;9118153
- GMTSADH2 ;;8921291
- GMTSADH3 ;;4175388
- GMTSADH4 ;;2108172
- GMTSADHC ;;7616551
- GMTSADOR ;;5770178
- GMTSALG ;;13299334
- GMTSALGB ;;3649701
- GMTSAMIE ;;2215141
- GMTSCI ;;980795
- GMTSCM ;;6771561
- GMTSCW ;;8466205
- GMTSDA ;;7935436
- GMTSDCB ;;3376310
- GMTSDD ;;5832737
- GMTSDEM ;;8355003
- GMTSDEMB ;;1645478
- GMTSDGA ;;3278741
- GMTSDGA1 ;;7480178
- GMTSDGA2 ;;5406373
- GMTSDGC1 ;;5335387
- GMTSDGC2 ;;3280399
- GMTSDGCH ;;6109698
- GMTSDGD ;;2236947
- GMTSDGH ;;2898086
- GMTSDGP ;;5958742
- GMTSDS ;;2014917
- GMTSDSB ;;1887589
- GMTSDVR ;;9357098
- GMTSENV ;;527430
- GMTSFH ;;6355772
- GMTSI001 ;;6797667
- GMTSI002 ;;8625906
- GMTSI003 ;;7915035
- GMTSI004 ;;7496079
- GMTSI005 ;;9611811
- GMTSI006 ;;9190966
- GMTSI007 ;;7703599
- GMTSI008 ;;4005876
- GMTSI009 ;;3932193
- GMTSI00A ;;827350
- GMTSI00B ;;8455149
- GMTSI00C ;;7584757
- GMTSI00D ;;8910779
- GMTSI00E ;;7448609
- GMTSI00F ;;2867454
- GMTSI00G ;;8852473
- GMTSI00H ;;8717091
- GMTSI00I ;;8773516
- GMTSI00J ;;9224995
- GMTSI00K ;;9276724
- GMTSI00L ;;8906270
- GMTSI00M ;;8948291
- GMTSI00N ;;8903831
- GMTSI00O ;;9109697
- GMTSI00P ;;8788001
- GMTSI00Q ;;9144600
- GMTSI00R ;;8661231
- GMTSI00S ;;9040355
- GMTSI00T ;;8440721
- GMTSI00U ;;8849266
- GMTSI00V ;;8597654
- GMTSI00W ;;8347201
- GMTSI00X ;;8589121
- GMTSI00Y ;;2513711
- GMTSI00Z ;;951613
- GMTSI010 ;;12236555
- GMTSI011 ;;10099099
- GMTSI012 ;;10044917
- GMTSI013 ;;6048930
- GMTSI014 ;;6222248
- GMTSI015 ;;6848123
- GMTSI016 ;;8673195
- GMTSI017 ;;7578064
- GMTSI018 ;;6048832
- GMTSI019 ;;5845546
- GMTSI01A ;;7616684
- GMTSI01B ;;7997413
- GMTSI01C ;;4992646
- GMTSI01D ;;899861
- GMTSINI1 ;;4982983
- GMTSINI2 ;;5232640
- GMTSINI3 ;;16807836
- GMTSINI4 ;;3357812
- GMTSINI5 ;;773825
- GMTSINIS ;;2215261
- GMTSINIT ;;10511864
- GMTSLOAD ;;5796287
- GMTSLRA ;;6876199
- GMTSLRAE ;;11147933
- GMTSLRB ;;2250319
- GMTSLRBE ;;3672773
- GMTSLRC ;;3788772
- GMTSLRCE ;;5397241
- GMTSLRCP ;;12992921
- GMTSLREE ;;6175432
- GMTSLREM ;;5357355
- GMTSLRM ;;10576209
- GMTSLRM1 ;;5092747
- GMTSLRMB ;;8141523
- GMTSLRME ;;7612887
- GMTSLRMX ;;7993355
- GMTSLROB ;;1646167
- GMTSLROE ;;6516628
- GMTSLROS ;;2358998
- GMTSLRPE ;;6517490
- GMTSLRS ;;4721162
- GMTSLRS7 ;;7478778
- GMTSLRSC ;;7505823
- GMTSLRSE ;;3321038
- GMTSLRT ;;2843052
- GMTSLRTE ;;1320704
- GMTSLTR ;;2903951
- GMTSLTR2 ;;3282162
- GMTSMCMA ;;7527516
- GMTSMCPZ ;;3705188
- GMTSMCZZ ;;5276229
- GMTSMHPE ;;8497501
- GMTSO001 ;;8057336
- GMTSO002 ;;6065150
- GMTSO003 ;;7512952
- GMTSO004 ;;7684644
- GMTSO005 ;;7812945
- GMTSO006 ;;7948804
- GMTSO007 ;;7635764
- GMTSO008 ;;7443333
- GMTSO009 ;;7739191
- GMTSO010 ;;7582026
- GMTSO011 ;;8030504
- GMTSO012 ;;8409618
- GMTSO013 ;;7775470
- GMTSO014 ;;7954689
- GMTSO015 ;;7423432
- GMTSO016 ;;7911113
- GMTSO017 ;;7145833
- GMTSO018 ;;7647663
- GMTSO019 ;;7562703
- GMTSO020 ;;7805175
- GMTSO021 ;;7281432
- GMTSO022 ;;7825234
- GMTSO023 ;;7784074
- GMTSO024 ;;725714
- GMTSONI1 ;;1703362
- GMTSONI2 ;;82866
- GMTSONI3 ;;10576628
- GMTSONIT ;;935085
- GMTSORC ;;4886475
- GMTSPCD ;;3405698
- GMTSPD ;;5306590
- GMTSPD2 ;;1434592
- GMTSPDX ;;6721830
- --- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HGMTSNTEG 3801 printed Dec 13, 2024@01:58:16 Page 2
- GMTSNTEG ;ISC/XTSUMBLD KERNEL - Package checksum checker ;OCT 20, 1995@15:13:16
- +1 ;;2.7;Health Summary;;Oct 20, 1995
- +2 ;;7.2;OCT 20, 1995@15:13:16
- +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 GOTO CONT^GMTSNTE0
- +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 ;;
- GMTS ;;9747615
- GMTS1 ;;9107723
- GMTS2 ;;1686893
- GMTSADH ;;7009924
- GMTSADH1 ;;9118153
- GMTSADH2 ;;8921291
- GMTSADH3 ;;4175388
- GMTSADH4 ;;2108172
- GMTSADHC ;;7616551
- GMTSADOR ;;5770178
- GMTSALG ;;13299334
- GMTSALGB ;;3649701
- GMTSAMIE ;;2215141
- GMTSCI ;;980795
- GMTSCM ;;6771561
- GMTSCW ;;8466205
- GMTSDA ;;7935436
- GMTSDCB ;;3376310
- GMTSDD ;;5832737
- GMTSDEM ;;8355003
- GMTSDEMB ;;1645478
- GMTSDGA ;;3278741
- GMTSDGA1 ;;7480178
- GMTSDGA2 ;;5406373
- GMTSDGC1 ;;5335387
- GMTSDGC2 ;;3280399
- GMTSDGCH ;;6109698
- GMTSDGD ;;2236947
- GMTSDGH ;;2898086
- GMTSDGP ;;5958742
- GMTSDS ;;2014917
- GMTSDSB ;;1887589
- GMTSDVR ;;9357098
- GMTSENV ;;527430
- GMTSFH ;;6355772
- GMTSI001 ;;6797667
- GMTSI002 ;;8625906
- GMTSI003 ;;7915035
- GMTSI004 ;;7496079
- GMTSI005 ;;9611811
- GMTSI006 ;;9190966
- GMTSI007 ;;7703599
- GMTSI008 ;;4005876
- GMTSI009 ;;3932193
- GMTSI00A ;;827350
- GMTSI00B ;;8455149
- GMTSI00C ;;7584757
- GMTSI00D ;;8910779
- GMTSI00E ;;7448609
- GMTSI00F ;;2867454
- GMTSI00G ;;8852473
- GMTSI00H ;;8717091
- GMTSI00I ;;8773516
- GMTSI00J ;;9224995
- GMTSI00K ;;9276724
- GMTSI00L ;;8906270
- GMTSI00M ;;8948291
- GMTSI00N ;;8903831
- GMTSI00O ;;9109697
- GMTSI00P ;;8788001
- GMTSI00Q ;;9144600
- GMTSI00R ;;8661231
- GMTSI00S ;;9040355
- GMTSI00T ;;8440721
- GMTSI00U ;;8849266
- GMTSI00V ;;8597654
- GMTSI00W ;;8347201
- GMTSI00X ;;8589121
- GMTSI00Y ;;2513711
- GMTSI00Z ;;951613
- GMTSI010 ;;12236555
- GMTSI011 ;;10099099
- GMTSI012 ;;10044917
- GMTSI013 ;;6048930
- GMTSI014 ;;6222248
- GMTSI015 ;;6848123
- GMTSI016 ;;8673195
- GMTSI017 ;;7578064
- GMTSI018 ;;6048832
- GMTSI019 ;;5845546
- GMTSI01A ;;7616684
- GMTSI01B ;;7997413
- GMTSI01C ;;4992646
- GMTSI01D ;;899861
- GMTSINI1 ;;4982983
- GMTSINI2 ;;5232640
- GMTSINI3 ;;16807836
- GMTSINI4 ;;3357812
- GMTSINI5 ;;773825
- GMTSINIS ;;2215261
- GMTSINIT ;;10511864
- GMTSLOAD ;;5796287
- GMTSLRA ;;6876199
- GMTSLRAE ;;11147933
- GMTSLRB ;;2250319
- GMTSLRBE ;;3672773
- GMTSLRC ;;3788772
- GMTSLRCE ;;5397241
- GMTSLRCP ;;12992921
- GMTSLREE ;;6175432
- GMTSLREM ;;5357355
- GMTSLRM ;;10576209
- GMTSLRM1 ;;5092747
- GMTSLRMB ;;8141523
- GMTSLRME ;;7612887
- GMTSLRMX ;;7993355
- GMTSLROB ;;1646167
- GMTSLROE ;;6516628
- GMTSLROS ;;2358998
- GMTSLRPE ;;6517490
- GMTSLRS ;;4721162
- GMTSLRS7 ;;7478778
- GMTSLRSC ;;7505823
- GMTSLRSE ;;3321038
- GMTSLRT ;;2843052
- GMTSLRTE ;;1320704
- GMTSLTR ;;2903951
- GMTSLTR2 ;;3282162
- GMTSMCMA ;;7527516
- GMTSMCPZ ;;3705188
- GMTSMCZZ ;;5276229
- GMTSMHPE ;;8497501
- GMTSO001 ;;8057336
- GMTSO002 ;;6065150
- GMTSO003 ;;7512952
- GMTSO004 ;;7684644
- GMTSO005 ;;7812945
- GMTSO006 ;;7948804
- GMTSO007 ;;7635764
- GMTSO008 ;;7443333
- GMTSO009 ;;7739191
- GMTSO010 ;;7582026
- GMTSO011 ;;8030504
- GMTSO012 ;;8409618
- GMTSO013 ;;7775470
- GMTSO014 ;;7954689
- GMTSO015 ;;7423432
- GMTSO016 ;;7911113
- GMTSO017 ;;7145833
- GMTSO018 ;;7647663
- GMTSO019 ;;7562703
- GMTSO020 ;;7805175
- GMTSO021 ;;7281432
- GMTSO022 ;;7825234
- GMTSO023 ;;7784074
- GMTSO024 ;;725714
- GMTSONI1 ;;1703362
- GMTSONI2 ;;82866
- GMTSONI3 ;;10576628
- GMTSONIT ;;935085
- GMTSORC ;;4886475
- GMTSPCD ;;3405698
- GMTSPD ;;5306590
- GMTSPD2 ;;1434592
- GMTSPDX ;;6721830