LRNTEG03.m

LRNTEG03 ;ISC/XTSUMBLD KERNEL - Package checksum checker ;OCT 25, 1994@16:14:26

 ;;5.2;LAB SERVICE;;Sep 27, 1994

 ;;7.2;OCT 25, 1994@16:14:26

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

LRSORB ;;5246084

LRSORC ;;2903387

LRSORC1 ;;2650199

LRSORC1A ;;5784485

LRSORD ;;2903439

LRSORD1 ;;2634130

LRSORD1A ;;5873206

LRSPDA ;;1708053

LRSPGD ;;1899546

LRSPRPT ;;14704153

LRSPRPT1 ;;9128154

LRSPRPT2 ;;11806540

LRSPRPTM ;;3548807

LRSPS ;;1349074

LRSPSICD ;;3733172

LRSPSICP ;;4548274

LRSPT ;;5788888

LRSTATUS ;;5864956

LRSTOPC ;;8270122

LRSTUF ;;3165927

LRSTUF1 ;;13017004

LRSTUF2 ;;7213582

LRTOT ;;5514392

LRTP ;;1719568

LRTSTJAM ;;11402229

LRTSTJAN ;;15845798

LRTSTJM1 ;;3677989

LRTSTOUT ;;14679176

LRTSTSET ;;11593341

LRU ;;17199697

LRUA ;;9428099

LRUB ;;2794163

LRUBL ;;2301075

LRUC ;;3314953

LRUCE ;;3615614

LRUCLR ;;1483623

LRUCN ;;6285550

LRUCNBB ;;6439802

LRUD ;;8613899

LRUD1 ;;1288507

LRUDEL ;;8062773

LRUDIT ;;1873186

LRUDPT ;;3892466

LRUE ;;8625936

LRUER ;;12482221

LRUET ;;9746002

LRUFILE ;;3793703

LRUG ;;2440226

LRUL ;;6494173

LRULA ;;2814252

LRULB ;;3214861

LRULB1 ;;5054925

LRULEN ;;4920379

LRUMD ;;13730332

LRUMD1 ;;15963110

LRUMD2 ;;9441970

LRUMDF ;;12190617

LRUMDM ;;12811700

LRUMDP ;;9583614

LRUMDS ;;6757098

LRUMDU ;;12785217

LRUMDU1 ;;2924915

LRUMI ;;8672238

LRUMSG ;;549954

LRUP ;;111723

LRUPA ;;8985351

LRUPA1 ;;8601230

LRUPA2 ;;10860453

LRUPAC ;;5317474

LRUPACA ;;10645043

LRUPACS ;;9002791

LRUPACT ;;12662142

LRUPAD ;;8440128

LRUPAD1 ;;7381083

LRUPAD2 ;;9070446

LRUPQ ;;5009717

LRUPQ1 ;;5480421

LRUPS ;;5213446

LRUPT ;;9583710

LRUPUM ;;4413283

LRUQ ;;2165509

LRUR ;;5269766

LRURG ;;563985

LRUSE ;;1274883

LRUSET ;;1000756

LRUSNOM ;;1630210

LRUSP ;;3735979

LRUT ;;1482424

LRUTA ;;5134496

LRUTAD ;;10053839

LRUTELL ;;1609316

LRUTL ;;10259125

LRUTRAN ;;3731182

LRUTT ;;11013569

LRUTW ;;7949670

LRUU ;;1156447

LRUV ;;399332

LRUW ;;10155671

LRUWG ;;10453371

LRUWK ;;1415257

LRUWL ;;3121574

LRUWLF ;;5417790

LRVER ;;16483418

LRVER1 ;;5987669

LRVER2 ;;6818151

LRVER3 ;;8335446

LRVER3A ;;9912700

LRVER4 ;;14817646

LRVER5 ;;11228247

LRVR ;;13379924

LRVR1 ;;9222290

LRVR2 ;;6604344

LRVR3 ;;10872068

LRVR4 ;;10297579

LRVR5 ;;9391488

LRVRKIL ;;4419206

LRVRW ;;9610673

LRWD ;;1562529

LRWLHEAD ;;689266

LRWLST ;;14625851

LRWLST1 ;;13063164

LRWLST11 ;;15804232

LRWLST12 ;;4658067

LRWLST13 ;;7041750

LRWLST2 ;;4332114

LRWRKIN1 ;;4265901

LRWRKINC ;;12503776

LRWRKLS1 ;;1982294

LRWRKLST ;;7270047

LRWRKS ;;7701958

LRWRKS2 ;;5580037

LRWU ;;11277129

LRWU1 ;;3812098

LRWU2 ;;1596365

LRWU3 ;;8913298

LRWU4 ;;6571565

LRWU5 ;;12308481

LRWU6 ;;7589287

LRWU7 ;;8189681

LRX ;;10626021

LRX6 ;;16621271

LRX60 ;;9025787

LRX62P6 ;;8926756

LRX62P61 ;;20085978

LRX6PRO ;;3892082

LRXO0 ;;2244780

LRXO00 ;;11600233

LRXO1 ;;10821866

LRXO10 ;;4100641

LRXO11 ;;9945043

LRXO1A ;;10417967

LRXO2 ;;10312556

LRXO3 ;;6346859

LRXO4 ;;15854526

LRXO4A ;;7531049

LRXO5 ;;18115224

LRXO6 ;;6504620

LRXO7 ;;3502103

LRXO8 ;;3966298

LRXO9 ;;8693186

LRXOS0 ;;2439944

LRXOS1 ;;3868247

LRXREF ;;9253913

LRXREF1 ;;7533129

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---LRNTEG03   3695     printed  Apr 09, 2024@21:06:27                                                                                                                                                                                                    Page 2

LRNTEG03  ;ISC/XTSUMBLD KERNEL - Package checksum checker ;OCT 25, 1994@16:14:26

 +1       ;;5.2;LAB SERVICE;;Sep 27, 1994

 +2       ;;7.2;OCT 25, 1994@16:14:26

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

LRSORB    ;;5246084

LRSORC    ;;2903387

LRSORC1   ;;2650199

LRSORC1A  ;;5784485

LRSORD    ;;2903439

LRSORD1   ;;2634130

LRSORD1A  ;;5873206

LRSPDA    ;;1708053

LRSPGD    ;;1899546

LRSPRPT   ;;14704153

LRSPRPT1  ;;9128154

LRSPRPT2  ;;11806540

LRSPRPTM  ;;3548807

LRSPS     ;;1349074

LRSPSICD  ;;3733172

LRSPSICP  ;;4548274

LRSPT     ;;5788888

LRSTATUS  ;;5864956

LRSTOPC   ;;8270122

LRSTUF    ;;3165927

LRSTUF1   ;;13017004

LRSTUF2   ;;7213582

LRTOT     ;;5514392

LRTP      ;;1719568

LRTSTJAM  ;;11402229

LRTSTJAN  ;;15845798

LRTSTJM1  ;;3677989

LRTSTOUT  ;;14679176

LRTSTSET  ;;11593341

LRU       ;;17199697

LRUA      ;;9428099

LRUB      ;;2794163

LRUBL     ;;2301075

LRUC      ;;3314953

LRUCE     ;;3615614

LRUCLR    ;;1483623

LRUCN     ;;6285550

LRUCNBB   ;;6439802

LRUD      ;;8613899

LRUD1     ;;1288507

LRUDEL    ;;8062773

LRUDIT    ;;1873186

LRUDPT    ;;3892466

LRUE      ;;8625936

LRUER     ;;12482221

LRUET     ;;9746002

LRUFILE   ;;3793703

LRUG      ;;2440226

LRUL      ;;6494173

LRULA     ;;2814252

LRULB     ;;3214861

LRULB1    ;;5054925

LRULEN    ;;4920379

LRUMD     ;;13730332

LRUMD1    ;;15963110

LRUMD2    ;;9441970

LRUMDF    ;;12190617

LRUMDM    ;;12811700

LRUMDP    ;;9583614

LRUMDS    ;;6757098

LRUMDU    ;;12785217

LRUMDU1   ;;2924915

LRUMI     ;;8672238

LRUMSG    ;;549954

LRUP      ;;111723

LRUPA     ;;8985351

LRUPA1    ;;8601230

LRUPA2    ;;10860453

LRUPAC    ;;5317474

LRUPACA   ;;10645043

LRUPACS   ;;9002791

LRUPACT   ;;12662142

LRUPAD    ;;8440128

LRUPAD1   ;;7381083

LRUPAD2   ;;9070446

LRUPQ     ;;5009717

LRUPQ1    ;;5480421

LRUPS     ;;5213446

LRUPT     ;;9583710

LRUPUM    ;;4413283

LRUQ      ;;2165509

LRUR      ;;5269766

LRURG     ;;563985

LRUSE     ;;1274883

LRUSET    ;;1000756

LRUSNOM   ;;1630210

LRUSP     ;;3735979

LRUT      ;;1482424

LRUTA     ;;5134496

LRUTAD    ;;10053839

LRUTELL   ;;1609316

LRUTL     ;;10259125

LRUTRAN   ;;3731182

LRUTT     ;;11013569

LRUTW     ;;7949670

LRUU      ;;1156447

LRUV      ;;399332

LRUW      ;;10155671

LRUWG     ;;10453371

LRUWK     ;;1415257

LRUWL     ;;3121574

LRUWLF    ;;5417790

LRVER     ;;16483418

LRVER1    ;;5987669

LRVER2    ;;6818151

LRVER3    ;;8335446

LRVER3A   ;;9912700

LRVER4    ;;14817646

LRVER5    ;;11228247

LRVR      ;;13379924

LRVR1     ;;9222290

LRVR2     ;;6604344

LRVR3     ;;10872068

LRVR4     ;;10297579

LRVR5     ;;9391488

LRVRKIL   ;;4419206

LRVRW     ;;9610673

LRWD      ;;1562529

LRWLHEAD  ;;689266

LRWLST    ;;14625851

LRWLST1   ;;13063164

LRWLST11  ;;15804232

LRWLST12  ;;4658067

LRWLST13  ;;7041750

LRWLST2   ;;4332114

LRWRKIN1  ;;4265901

LRWRKINC  ;;12503776

LRWRKLS1  ;;1982294

LRWRKLST  ;;7270047

LRWRKS    ;;7701958

LRWRKS2   ;;5580037

LRWU      ;;11277129

LRWU1     ;;3812098

LRWU2     ;;1596365

LRWU3     ;;8913298

LRWU4     ;;6571565

LRWU5     ;;12308481

LRWU6     ;;7589287

LRWU7     ;;8189681

LRX       ;;10626021

LRX6      ;;16621271

LRX60     ;;9025787

LRX62P6   ;;8926756

LRX62P61  ;;20085978

LRX6PRO   ;;3892082

LRXO0     ;;2244780

LRXO00    ;;11600233

LRXO1     ;;10821866

LRXO10    ;;4100641

LRXO11    ;;9945043

LRXO1A    ;;10417967

LRXO2     ;;10312556

LRXO3     ;;6346859

LRXO4     ;;15854526

LRXO4A    ;;7531049

LRXO5     ;;18115224

LRXO6     ;;6504620

LRXO7     ;;3502103

LRXO8     ;;3966298

LRXO9     ;;8693186

LRXOS0    ;;2439944

LRXOS1    ;;3868247

LRXREF    ;;9253913

LRXREF1   ;;7533129