APCHNTEG.m

APCHNTEG ;ISC/XTSUMBLD KERNEL - Package checksum checker ;3070816.173836 [ 08/16/2007  5:39 PM ]

 ;;2.0;IHS RPMS/PCC Health Summary;****16****;JUN 24, 1997

 ;;0.0;

 ;;7.3;3070816.173836

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

APCH20P8 ;;6659440

APCH20P9 ;;9301154

APCH2P10 ;;230352

APCH2P11 ;;10353559

APCH2P13 ;;20475034

APCH2P14 ;;25584792

APCH2P15 ;;26467842

APCH2P16 ;;8762555

APCHBU10 ;;5131587

APCHBU11 ;;11438316

APCHBU12 ;;14517261

APCHBU13 ;;3984177

APCHBU14 ;;7741068

APCHBU15 ;;6864315

APCHBU16 ;;21365958

APCHBUL ;;8649581

APCHBUL9 ;;9018155

APCHHMR1 ;;9972646

APCHHMRD ;;5238320

APCHHMRP ;;8651788

APCHHMRU ;;20628806

APCHMT ;;10288731

APCHMT1 ;;33344838

APCHMT2 ;;16742375

APCHP16 ;;137736

APCHP16A ;;2109292

APCHP16B ;;987517

APCHPALG ;;4898376

APCHPAT ;;398361

APCHPMH ;;3947392

APCHPMH1 ;;36730185

APCHPMH2 ;;4951589

APCHPMH3 ;;13177489

APCHPRE ;;7085207

APCHPRE1 ;;40588971

APCHPST ;;4113410

APCHPST1 ;;36418720

APCHPST2 ;;32634296

APCHS ;;6930580

APCHS0 ;;10515192

APCHS1 ;;19545905

APCHS10 ;;30475601

APCHS11 ;;14880223

APCHS11A ;;13880219

APCHS11B ;;6907201

APCHS11C ;;12641398

APCHS11D ;;10046291

APCHS11E ;;5068839

APCHS11F ;;3749999

APCHS11G ;;19176898

APCHS12 ;;15743161

APCHS1A ;;5800444

APCHS1B ;;11285140

APCHS2 ;;16864476

APCHS2A ;;11270582

APCHS2A3 ;;6548500

APCHS2B ;;12469544

APCHS2D ;;8848513

APCHS2E ;;8414930

APCHS2F ;;9270536

APCHS2G ;;12981066

APCHS2H ;;11583293

APCHS2J ;;8912849

APCHS3 ;;10333989

APCHS3A ;;10117794

APCHS3B ;;10516226

APCHS3C ;;16815273

APCHS3E ;;11162213

APCHS3F ;;8934918

APCHS40 ;;5411898

APCHS4A ;;9680995

APCHS5 ;;13246255

APCHS5A ;;17152774

APCHS6 ;;32730599

APCHS6A ;;15044914

APCHS6B ;;5761894

APCHS7 ;;16116552

APCHS70 ;;7775473

APCHS71 ;;10619460

APCHS72 ;;10716202

APCHS73 ;;14956695

APCHS74 ;;16827431

APCHS77 ;;12237479

APCHS78 ;;18407211

APCHS79 ;;11618034

APCHS7N ;;8717353

APCHS7O ;;8731982

APCHS7X ;;1042063

APCHS8 ;;23909498

APCHS81 ;;4856927

APCHS8A ;;10832157

APCHS9 ;;4374100

APCHS9A ;;5536804

APCHS9B1 ;;30674753

APCHS9B2 ;;27038062

APCHS9B3 ;;10450463

APCHS9B4 ;;24156509

APCHS9B5 ;;15327507

APCHS9B6 ;;11761597

APCHS9B7 ;;3369825

APCHS9D1 ;;27442228

APCHS9D2 ;;13253691

APCHS9M1 ;;26497024

APCHS9M2 ;;28220079

APCHS9M3 ;;26510249

APCHS9M4 ;;28366093

APCHS9M5 ;;30105198

APCHSBAN ;;2794600

APCHSM ;;6714168

APCHSM01 ;;25629969

APCHSM02 ;;30895916

APCHSM03 ;;30223896

APCHSM04 ;;25891703

APCHSM05 ;;24807708

APCHSM06 ;;11380046

APCHSM07 ;;20464676

APCHSM08 ;;24106866

APCHSMAS ;;16121600

APCHSMU ;;23027365

APCHSMU1 ;;171213

APCHSMU2 ;;23243685

APCHSUTL ;;13598624

APCHTAXE ;;15061782

APCHTAXL ;;2483329

APCHTAXM ;;18989446

APCHTAXN ;;6487014

APCHTX ;;416348

APCHTXA ;;3276570

APCHTXB ;;1646944

APCHTXC ;;1139814

APCHTXD ;;1007575

APCHTXE ;;2110494

APCHTXEB ;;3943446

APCHTXEC ;;4061426

APCHTXED ;;4152335

APCHTXEE ;;2235483

APCHTXF ;;2811488

APCHTXG ;;1268905

APCHNTEG  ;ISC/XTSUMBLD KERNEL - Package checksum checker ;3070816.173836 [ 08/16/2007  5:39 PM ]

 +1       ;;2.0;IHS RPMS/PCC Health Summary;****16****;JUN 24, 1997

 +2       ;;0.0;

 +3       ;;7.3;3070816.173836

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

APCH20P8  ;;6659440

APCH20P9  ;;9301154

APCH2P10  ;;230352

APCH2P11  ;;10353559

APCH2P13  ;;20475034

APCH2P14  ;;25584792

APCH2P15  ;;26467842

APCH2P16  ;;8762555

APCHBU10  ;;5131587

APCHBU11  ;;11438316

APCHBU12  ;;14517261

APCHBU13  ;;3984177

APCHBU14  ;;7741068

APCHBU15  ;;6864315

APCHBU16  ;;21365958

APCHBUL   ;;8649581

APCHBUL9  ;;9018155

APCHHMR1  ;;9972646

APCHHMRD  ;;5238320

APCHHMRP  ;;8651788

APCHHMRU  ;;20628806

APCHMT    ;;10288731

APCHMT1   ;;33344838

APCHMT2   ;;16742375

APCHP16   ;;137736

APCHP16A  ;;2109292

APCHP16B  ;;987517

APCHPALG  ;;4898376

APCHPAT   ;;398361

APCHPMH   ;;3947392

APCHPMH1  ;;36730185

APCHPMH2  ;;4951589

APCHPMH3  ;;13177489

APCHPRE   ;;7085207

APCHPRE1  ;;40588971

APCHPST   ;;4113410

APCHPST1  ;;36418720

APCHPST2  ;;32634296

APCHS     ;;6930580

APCHS0    ;;10515192

APCHS1    ;;19545905

APCHS10   ;;30475601

APCHS11   ;;14880223

APCHS11A  ;;13880219

APCHS11B  ;;6907201

APCHS11C  ;;12641398

APCHS11D  ;;10046291

APCHS11E  ;;5068839

APCHS11F  ;;3749999

APCHS11G  ;;19176898

APCHS12   ;;15743161

APCHS1A   ;;5800444

APCHS1B   ;;11285140

APCHS2    ;;16864476

APCHS2A   ;;11270582

APCHS2A3  ;;6548500

APCHS2B   ;;12469544

APCHS2D   ;;8848513

APCHS2E   ;;8414930

APCHS2F   ;;9270536

APCHS2G   ;;12981066

APCHS2H   ;;11583293

APCHS2J   ;;8912849

APCHS3    ;;10333989

APCHS3A   ;;10117794

APCHS3B   ;;10516226

APCHS3C   ;;16815273

APCHS3E   ;;11162213

APCHS3F   ;;8934918

APCHS40   ;;5411898

APCHS4A   ;;9680995

APCHS5    ;;13246255

APCHS5A   ;;17152774

APCHS6    ;;32730599

APCHS6A   ;;15044914

APCHS6B   ;;5761894

APCHS7    ;;16116552

APCHS70   ;;7775473

APCHS71   ;;10619460

APCHS72   ;;10716202

APCHS73   ;;14956695

APCHS74   ;;16827431

APCHS77   ;;12237479

APCHS78   ;;18407211

APCHS79   ;;11618034

APCHS7N   ;;8717353

APCHS7O   ;;8731982

APCHS7X   ;;1042063

APCHS8    ;;23909498

APCHS81   ;;4856927

APCHS8A   ;;10832157

APCHS9    ;;4374100

APCHS9A   ;;5536804

APCHS9B1  ;;30674753

APCHS9B2  ;;27038062

APCHS9B3  ;;10450463

APCHS9B4  ;;24156509

APCHS9B5  ;;15327507

APCHS9B6  ;;11761597

APCHS9B7  ;;3369825

APCHS9D1  ;;27442228

APCHS9D2  ;;13253691

APCHS9M1  ;;26497024

APCHS9M2  ;;28220079

APCHS9M3  ;;26510249

APCHS9M4  ;;28366093

APCHS9M5  ;;30105198

APCHSBAN  ;;2794600

APCHSM    ;;6714168

APCHSM01  ;;25629969

APCHSM02  ;;30895916

APCHSM03  ;;30223896

APCHSM04  ;;25891703

APCHSM05  ;;24807708

APCHSM06  ;;11380046

APCHSM07  ;;20464676

APCHSM08  ;;24106866

APCHSMAS  ;;16121600

APCHSMU   ;;23027365

APCHSMU1  ;;171213

APCHSMU2  ;;23243685

APCHSUTL  ;;13598624

APCHTAXE  ;;15061782

APCHTAXL  ;;2483329

APCHTAXM  ;;18989446

APCHTAXN  ;;6487014

APCHTX    ;;416348

APCHTXA   ;;3276570

APCHTXB   ;;1646944

APCHTXC   ;;1139814

APCHTXD   ;;1007575

APCHTXE   ;;2110494

APCHTXEB  ;;3943446

APCHTXEC  ;;4061426

APCHTXED  ;;4152335

APCHTXEE  ;;2235483

APCHTXF   ;;2811488

APCHTXG   ;;1268905