PRXANTEG.m

PRXANTEG ;ISC/XTSUMBLD KERNEL - Package checksum checker ;OCT 03, 1995@11:25:17

 ;;5.0;IFCAP;**27**;4/21/95

 ;;7.2;OCT 03, 1995@11:25:17

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

PRC0F ;;940036

PRC5B ;;9897020

PRC5B6 ;;9509988

PRC5B7 ;;9115410

PRC5C1 ;;2522427

PRC5CON ;;10749827

PRC5CON1 ;;7057960

PRC5CON2 ;;11941105

PRC5CON3 ;;5090489

PRCBCS ;;11571422

PRCD1A ;;2527933

PRCD1B ;;4147645

PRCD1C ;;3613465

PRCD1D ;;5529279

PRCD1E ;;2362794

PRCD1F ;;3640797

PRCEN ;;10084888

PRCFFU21 ;;9614101

PRCFFU3 ;;4818504

PRCFFU41 ;;10615692

PRCFOOR1 ;;8064386

PRCFSITE ;;11073982

PRCFU ;;2990414

PRCH58OB ;;8640531

PRCHNPO3 ;;20498739

PRCHPRCV ;;10262637

PRCS58 ;;10977114

PRCSAPP2 ;;9997597

PRCSCPY ;;7401127

PRCSEA ;;18209802

PRCSEB ;;11349881

PRCSUT ;;14407906

PRCSUT2 ;;15477170

PRCSUT3 ;;6101301

PRXAI001 ;;9453815

PRXAI002 ;;3668599

PRXAI003 ;;7510282

PRXAI004 ;;10954787

PRXAI005 ;;12075950

PRXAI006 ;;12203972

PRXAI007 ;;7771814

PRXAI008 ;;10619596

PRXAI009 ;;7641083

PRXAI00A ;;6423876

PRXAI00B ;;11438621

PRXAI00C ;;935787

PRXAI00D ;;3934387

PRXAI00E ;;10261903

PRXAI00F ;;1166050

PRXAI00G ;;24590032

PRXAI00H ;;24058602

PRXAI00I ;;22885428

PRXAI00J ;;24765220

PRXAI00K ;;11296479

PRXAI00L ;;1185112

PRXAINI1 ;;4857874

PRXAINI2 ;;5232599

PRXAINI3 ;;16807754

PRXAINI4 ;;3357771

PRXAINI5 ;;901582

PRXAINIS ;;2214769

PRXAINIT ;;10208464

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---PRXANTEG   1945     printed  Apr 09, 2024@21:07:05                                                                                                                                                                                                    Page 2

PRXANTEG  ;ISC/XTSUMBLD KERNEL - Package checksum checker ;OCT 03, 1995@11:25:17

 +1       ;;5.0;IFCAP;**27**;4/21/95

 +2       ;;7.2;OCT 03, 1995@11:25:17

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

PRC0F     ;;940036

PRC5B     ;;9897020

PRC5B6    ;;9509988

PRC5B7    ;;9115410

PRC5C1    ;;2522427

PRC5CON   ;;10749827

PRC5CON1  ;;7057960

PRC5CON2  ;;11941105

PRC5CON3  ;;5090489

PRCBCS    ;;11571422

PRCD1A    ;;2527933

PRCD1B    ;;4147645

PRCD1C    ;;3613465

PRCD1D    ;;5529279

PRCD1E    ;;2362794

PRCD1F    ;;3640797

PRCEN     ;;10084888

PRCFFU21  ;;9614101

PRCFFU3   ;;4818504

PRCFFU41  ;;10615692

PRCFOOR1  ;;8064386

PRCFSITE  ;;11073982

PRCFU     ;;2990414

PRCH58OB  ;;8640531

PRCHNPO3  ;;20498739

PRCHPRCV  ;;10262637

PRCS58    ;;10977114

PRCSAPP2  ;;9997597

PRCSCPY   ;;7401127

PRCSEA    ;;18209802

PRCSEB    ;;11349881

PRCSUT    ;;14407906

PRCSUT2   ;;15477170

PRCSUT3   ;;6101301

PRXAI001  ;;9453815

PRXAI002  ;;3668599

PRXAI003  ;;7510282

PRXAI004  ;;10954787

PRXAI005  ;;12075950

PRXAI006  ;;12203972

PRXAI007  ;;7771814

PRXAI008  ;;10619596

PRXAI009  ;;7641083

PRXAI00A  ;;6423876

PRXAI00B  ;;11438621

PRXAI00C  ;;935787

PRXAI00D  ;;3934387

PRXAI00E  ;;10261903

PRXAI00F  ;;1166050

PRXAI00G  ;;24590032

PRXAI00H  ;;24058602

PRXAI00I  ;;22885428

PRXAI00J  ;;24765220

PRXAI00K  ;;11296479

PRXAI00L  ;;1185112

PRXAINI1  ;;4857874

PRXAINI2  ;;5232599

PRXAINI3  ;;16807754

PRXAINI4  ;;3357771

PRXAINI5  ;;901582

PRXAINIS  ;;2214769

PRXAINIT  ;;10208464