VENCS264.m

VENCS264 ; IHS/OIT/GIS - INTEGRITY CHECKER FOR PCC+ 2.6, PATCH 4 ; 30 Sep 2011  9:56 AM

 ;;2.6;PCC+;**1,3,4**;OCT 26, 2011;Build 20

 ;;7.3;3110422.110554

 ; 

 N OK S OK=0 D CSUM(.OK) W !,OK Q

 ; 

CSUM(OK) ; VALIDATE CHECKSUMS

 N %1,%2,%3,RTN,X,Y,XT1,XT2,XT3,XT4

 S XT4="I 1",X=$T(+2),OK=0

 ; W !!,"Checksum routine created on ",$P(X,";",6)

CONT F XT1=1:1 S XT2=$T(ROU+XT1) Q:XT2=""  S (X,RTN)=$P(XT2," ",1),XT3=$P(XT2,";",3) X XT4 I $T X ^%ZOSF("TEST") S:'$T XT3=0 X:XT3 ^%ZOSF("RSUM") I Y'=XT3  W !,RTN,?10,$S('XT3:"Not found!",1:"Calculated "_$C(7)_Y_", off by "_(Y-XT3)) S OK=1

 Q

 ;

ROU ;;

VEN8I001 ;;14156117

VEN8I002 ;;1331878

VEN8I003 ;;16875215

VEN8I004 ;;13556555

VEN8I005 ;;13533920

VEN8I006 ;;13371453

VEN8I007 ;;12753095

VEN8I008 ;;13581760

VEN8I009 ;;14315679

VEN8I00A ;;13594254

VEN8I00B ;;12697089

VEN8I00C ;;12876144

VEN8I00D ;;12173845

VEN8I00E ;;12850578

VEN8I00F ;;13222831

VEN8I00G ;;13081341

VEN8I00H ;;12526644

VEN8I00I ;;12946366

VEN8I00J ;;14175591

VEN8I00K ;;13959257

VEN8I00L ;;13122146

VEN8I00M ;;12590101

VEN8I00N ;;12971027

VEN8I00O ;;13081194

VEN8I00P ;;14165883

VEN8I00Q ;;13635160

VEN8I00R ;;13935933

VEN8I00S ;;14492127

VEN8I00T ;;14771028

VEN8I00U ;;15565309

VEN8I00V ;;14868870

VEN8I00W ;;14781753

VEN8I00X ;;13555124

VEN8I00Y ;;14351932

VEN8I00Z ;;14481880

VEN8I010 ;;15009878

VEN8I011 ;;14519303

VEN8I012 ;;15054556

VEN8I013 ;;15135321

VEN8I014 ;;15250606

VEN8I015 ;;15959305

VEN8I016 ;;16624414

VEN8I017 ;;16376995

VEN8I018 ;;16922958

VEN8I019 ;;17007582

VEN8I01A ;;17193513

VEN8I01B ;;15728378

VEN8I01C ;;16397769

VEN8I01D ;;15735360

VEN8I01E ;;14451734

VEN8I01F ;;18299456

VEN8I01G ;;13910857

VEN8I01H ;;14999009

VEN8I01I ;;14611545

VEN8I01J ;;13789157

VEN8I01K ;;14520405

VEN8I01L ;;15702373

VEN8I01M ;;15280641

VEN8I01N ;;13709801

VEN8I01O ;;13787294

VEN8I01P ;;14427280

VEN8I01Q ;;12796910

VEN8I01R ;;14428250

VEN8I01S ;;14130156

VEN8I01T ;;14565458

VEN8I01U ;;13684866

VEN8I01V ;;13979699

VEN8I01W ;;15101234

VEN8I01X ;;15326058

VEN8I01Y ;;15044287

VEN8I01Z ;;13672227

VEN8I020 ;;14130862

VEN8I021 ;;14244446

VEN8I022 ;;14134677

VEN8I023 ;;10928287

VEN8I024 ;;5189475

VEN8I025 ;;874363

VEN8I026 ;;746571

VEN8INI1 ;;4312514

VEN8INI2 ;;5232513

VEN8INI3 ;;16993612

VEN8INI4 ;;3363625

VEN8INI5 ;;459390

VEN8INIT ;;9992005

VENPCC1 ;;17593908

VENPCC1A ;;12765035

VENPCC1M ;;12634272

VENPCC1N ;;11399240

VENPCCA ;;31198337

VENPCCK ;;19295956

VENPCCKB ;;10384290

VENPCCKD ;;8075880

VENPCCKG ;;9402224

VENPCCKT ;;15750519

VENPCCKX ;;19268925

VENPCCM2 ;;17560839

VENPCCMX ;;5339395

VENPCCP ;;19768102

VENPCCP1 ;;13379025

VENPCCP2 ;;15371961

VENPCCP3 ;;7179325

VENPCCQ ;;10691711

VENPCCQ1 ;;25947498

VENPCCQ2 ;;16285026

VENPCCQ6 ;;21544417

VENPCCQ7 ;;16541321

VENPCCQ8 ;;18394149

VENPCCQA ;;12661554

VENPCCQB ;;21219312

VENPCCQC ;;19787732

VENPCCQD ;;6745891

VENPCCS1 ;;9137239

VENPCCU ;;7645210

VENPCCUR ;;2264680

VENPCCYR ;;10758461

VENPCCYV ;;4596742

VENCS264  ; IHS/OIT/GIS - INTEGRITY CHECKER FOR PCC+ 2.6, PATCH 4 ; 30 Sep 2011  9:56 AM

 +1       ;;2.6;PCC+;**1,3,4**;OCT 26, 2011;Build 20

 +2       ;;7.3;3110422.110554

 +3       ; 

 +4        NEW OK

           SET OK=0

           DO CSUM(.OK)

           WRITE !,OK

           QUIT 

 +5       ; 

CSUM(OK)  ; VALIDATE CHECKSUMS

 +1        NEW %1,%2,%3,RTN,X,Y,XT1,XT2,XT3,XT4

 +2        SET XT4="I 1"

           SET X=$TEXT(+2)

           SET OK=0

 +3       ; W !!,"Checksum routine created on ",$P(X,";",6)

CONT       FOR XT1=1:1

               SET XT2=$TEXT(ROU+XT1)

               IF XT2=""

                   QUIT 

               SET (X,RTN)=$PIECE(XT2," ",1)

               SET XT3=$PIECE(XT2,";",3)

               XECUTE XT4

               IF $TEST

                   XECUTE ^%ZOSF("TEST")

                   IF '$TEST

                       SET XT3=0

                   IF XT3

                       XECUTE ^%ZOSF("RSUM")

                   IF Y'=XT3

                       WRITE !,RTN,?10,$SELECT('XT3:"Not found!",1:"Calculated "_$CHAR(7)_Y_", off by "_(Y-XT3))

                       SET OK=1

 +1        QUIT 

 +2       ;

ROU       ;;

VEN8I001  ;;14156117

VEN8I002  ;;1331878

VEN8I003  ;;16875215

VEN8I004  ;;13556555

VEN8I005  ;;13533920

VEN8I006  ;;13371453

VEN8I007  ;;12753095

VEN8I008  ;;13581760

VEN8I009  ;;14315679

VEN8I00A  ;;13594254

VEN8I00B  ;;12697089

VEN8I00C  ;;12876144

VEN8I00D  ;;12173845

VEN8I00E  ;;12850578

VEN8I00F  ;;13222831

VEN8I00G  ;;13081341

VEN8I00H  ;;12526644

VEN8I00I  ;;12946366

VEN8I00J  ;;14175591

VEN8I00K  ;;13959257

VEN8I00L  ;;13122146

VEN8I00M  ;;12590101

VEN8I00N  ;;12971027

VEN8I00O  ;;13081194

VEN8I00P  ;;14165883

VEN8I00Q  ;;13635160

VEN8I00R  ;;13935933

VEN8I00S  ;;14492127

VEN8I00T  ;;14771028

VEN8I00U  ;;15565309

VEN8I00V  ;;14868870

VEN8I00W  ;;14781753

VEN8I00X  ;;13555124

VEN8I00Y  ;;14351932

VEN8I00Z  ;;14481880

VEN8I010  ;;15009878

VEN8I011  ;;14519303

VEN8I012  ;;15054556

VEN8I013  ;;15135321

VEN8I014  ;;15250606

VEN8I015  ;;15959305

VEN8I016  ;;16624414

VEN8I017  ;;16376995

VEN8I018  ;;16922958

VEN8I019  ;;17007582

VEN8I01A  ;;17193513

VEN8I01B  ;;15728378

VEN8I01C  ;;16397769

VEN8I01D  ;;15735360

VEN8I01E  ;;14451734

VEN8I01F  ;;18299456

VEN8I01G  ;;13910857

VEN8I01H  ;;14999009

VEN8I01I  ;;14611545

VEN8I01J  ;;13789157

VEN8I01K  ;;14520405

VEN8I01L  ;;15702373

VEN8I01M  ;;15280641

VEN8I01N  ;;13709801

VEN8I01O  ;;13787294

VEN8I01P  ;;14427280

VEN8I01Q  ;;12796910

VEN8I01R  ;;14428250

VEN8I01S  ;;14130156

VEN8I01T  ;;14565458

VEN8I01U  ;;13684866

VEN8I01V  ;;13979699

VEN8I01W  ;;15101234

VEN8I01X  ;;15326058

VEN8I01Y  ;;15044287

VEN8I01Z  ;;13672227

VEN8I020  ;;14130862

VEN8I021  ;;14244446

VEN8I022  ;;14134677

VEN8I023  ;;10928287

VEN8I024  ;;5189475

VEN8I025  ;;874363

VEN8I026  ;;746571

VEN8INI1  ;;4312514

VEN8INI2  ;;5232513

VEN8INI3  ;;16993612

VEN8INI4  ;;3363625

VEN8INI5  ;;459390

VEN8INIT  ;;9992005

VENPCC1   ;;17593908

VENPCC1A  ;;12765035

VENPCC1M  ;;12634272

VENPCC1N  ;;11399240

VENPCCA   ;;31198337

VENPCCK   ;;19295956

VENPCCKB  ;;10384290

VENPCCKD  ;;8075880

VENPCCKG  ;;9402224

VENPCCKT  ;;15750519

VENPCCKX  ;;19268925

VENPCCM2  ;;17560839

VENPCCMX  ;;5339395

VENPCCP   ;;19768102

VENPCCP1  ;;13379025

VENPCCP2  ;;15371961

VENPCCP3  ;;7179325

VENPCCQ   ;;10691711

VENPCCQ1  ;;25947498

VENPCCQ2  ;;16285026

VENPCCQ6  ;;21544417

VENPCCQ7  ;;16541321

VENPCCQ8  ;;18394149

VENPCCQA  ;;12661554

VENPCCQB  ;;21219312

VENPCCQC  ;;19787732

VENPCCQD  ;;6745891

VENPCCS1  ;;9137239

VENPCCU   ;;7645210

VENPCCUR  ;;2264680

VENPCCYR  ;;10758461

VENPCCYV  ;;4596742