RTNTEG.m

RTNTEG ;ISC/XTSUMBLD KERNEL - Package checksum checker ;OCT 22, 1991@22:38:31

 ;;v 2.0;Record Tracking;;10/22/91 

 ;;6.5;OCT 22, 1991@22:38:31

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

RT ;;1092073

RTB ;;9210081

RTB1 ;;4220425

RTB2 ;;8537784

RTDEL ;;14533305

RTDPA ;;10739529

RTDPA1 ;;13452261

RTDPA2 ;;9782055

RTDPA3 ;;8966028

RTDPA31 ;;4040485

RTDPA32 ;;4054799

RTIPOST0 ;;6311613

RTIPOST1 ;;5041134

RTIPOST2 ;;2286359

RTIPOST3 ;;3629114

RTIPOST4 ;;5792718

RTIPRE ;;7360996

RTL ;;3454851

RTL1 ;;13016675

RTL2 ;;5588146

RTL3 ;;2550001

RTLDIV ;;1372201

RTM ;;1849639

RTMAS ;;4232926

RTNQ ;;1628986

RTNQ1 ;;11946723

RTNQ2 ;;14357342

RTNQ21 ;;8555868

RTNQ3 ;;11569840

RTNQ4 ;;9206711

RTNQ41 ;;5015473

RTP ;;10799518

RTP1 ;;9915888

RTP2 ;;10605233

RTP3 ;;20195927

RTP31 ;;13298420

RTP311 ;;6322945

RTP32 ;;4618243

RTP4 ;;16744132

RTP40 ;;5876243

RTP41 ;;12568098

RTP5 ;;18969106

RTP51 ;;11075694

RTP6 ;;5861018

RTPCAN ;;4020334

RTPSET ;;10011933

RTPSET1 ;;6578709

RTPURGE ;;14921881

RTQ ;;12370859

RTQ1 ;;13981731

RTQ2 ;;12876473

RTQ3 ;;8945259

RTQ4 ;;12908542

RTQ41 ;;6912517

RTQ5 ;;2920853

RTRAD ;;6425450

RTRD ;;6310994

RTREP ;;11996311

RTREP1 ;;8448621

RTRPT ;;16229874

RTRPT1 ;;9556631

RTRPT2 ;;11258647

RTRPT3 ;;18718284

RTRPT4 ;;2860697

RTRPT5 ;;6630867

RTSM ;;13831573

RTSM1 ;;13577739

RTSM2 ;;9200103

RTSM3 ;;16298185

RTSM4 ;;10969718

RTSM5 ;;7723861

RTSM6 ;;11942119

RTSM61 ;;8657559

RTSM7 ;;9927586

RTSM8 ;;11585133

RTSM81 ;;8626042

RTSYS ;;11712069

RTT ;;12717049

RTT1 ;;15395306

RTT11 ;;10857177

RTT12 ;;3597419

RTT2 ;;17867721

RTT21 ;;391400

RTT3 ;;15011804

RTT4 ;;10186835

RTTR ;;6218566

RTTR1 ;;6567455

RTTR11 ;;6373404

RTTR2 ;;6670262

RTUTL ;;4297762

RTUTL1 ;;13589719

RTUTL2 ;;14367750

RTUTL3 ;;4482928

RTUTL4 ;;8368221

RTUTL5 ;;12629331

RTUTL6 ;;3667661

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---RTNTEG   2408     printed  Apr 09, 2024@21:36:28                                                                                                                                                                                                      Page 2

RTNTEG    ;ISC/XTSUMBLD KERNEL - Package checksum checker ;OCT 22, 1991@22:38:31

 +1       ;;v 2.0;Record Tracking;;10/22/91 

 +2       ;;6.5;OCT 22, 1991@22:38:31

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

RT        ;;1092073

RTB       ;;9210081

RTB1      ;;4220425

RTB2      ;;8537784

RTDEL     ;;14533305

RTDPA     ;;10739529

RTDPA1    ;;13452261

RTDPA2    ;;9782055

RTDPA3    ;;8966028

RTDPA31   ;;4040485

RTDPA32   ;;4054799

RTIPOST0  ;;6311613

RTIPOST1  ;;5041134

RTIPOST2  ;;2286359

RTIPOST3  ;;3629114

RTIPOST4  ;;5792718

RTIPRE    ;;7360996

RTL       ;;3454851

RTL1      ;;13016675

RTL2      ;;5588146

RTL3      ;;2550001

RTLDIV    ;;1372201

RTM       ;;1849639

RTMAS     ;;4232926

RTNQ      ;;1628986

RTNQ1     ;;11946723

RTNQ2     ;;14357342

RTNQ21    ;;8555868

RTNQ3     ;;11569840

RTNQ4     ;;9206711

RTNQ41    ;;5015473

RTP       ;;10799518

RTP1      ;;9915888

RTP2      ;;10605233

RTP3      ;;20195927

RTP31     ;;13298420

RTP311    ;;6322945

RTP32     ;;4618243

RTP4      ;;16744132

RTP40     ;;5876243

RTP41     ;;12568098

RTP5      ;;18969106

RTP51     ;;11075694

RTP6      ;;5861018

RTPCAN    ;;4020334

RTPSET    ;;10011933

RTPSET1   ;;6578709

RTPURGE   ;;14921881

RTQ       ;;12370859

RTQ1      ;;13981731

RTQ2      ;;12876473

RTQ3      ;;8945259

RTQ4      ;;12908542

RTQ41     ;;6912517

RTQ5      ;;2920853

RTRAD     ;;6425450

RTRD      ;;6310994

RTREP     ;;11996311

RTREP1    ;;8448621

RTRPT     ;;16229874

RTRPT1    ;;9556631

RTRPT2    ;;11258647

RTRPT3    ;;18718284

RTRPT4    ;;2860697

RTRPT5    ;;6630867

RTSM      ;;13831573

RTSM1     ;;13577739

RTSM2     ;;9200103

RTSM3     ;;16298185

RTSM4     ;;10969718

RTSM5     ;;7723861

RTSM6     ;;11942119

RTSM61    ;;8657559

RTSM7     ;;9927586

RTSM8     ;;11585133

RTSM81    ;;8626042

RTSYS     ;;11712069

RTT       ;;12717049

RTT1      ;;15395306

RTT11     ;;10857177

RTT12     ;;3597419

RTT2      ;;17867721

RTT21     ;;391400

RTT3      ;;15011804

RTT4      ;;10186835

RTTR      ;;6218566

RTTR1     ;;6567455

RTTR11    ;;6373404

RTTR2     ;;6670262

RTUTL     ;;4297762

RTUTL1    ;;13589719

RTUTL2    ;;14367750

RTUTL3    ;;4482928

RTUTL4    ;;8368221

RTUTL5    ;;12629331

RTUTL6    ;;3667661