MODULE Chk; (* * ModBase * Release 3.0 * By Don Fletcher & John McMonagle * (c) Copyright 1986 - 1991 PMI * BOX 8402 * Green Bay WI 54308-8402 * All Rights Reserved * *) FROM ModBase3 IMPORT DBFile,InitDBF,OpenDBF,DefaultFixUp; FROM DBIndxes IMPORT GoTop, OpenIndex, BuildIndex, DBIndex, NextRecord, PrevRecord, DisposeIndex,InitIndex,CurrentRec,CurrentKeyCh,CurrentKeyN,NumKeyType; FROM StrConv IMPORT CardinalToStr; FROM EnvironUtils IMPORT ParsedParam; FROM StringIO IMPORT ReadStr, WriteStr, WriteEol; FROM M2Strings IMPORT Assign, CompareStr,Concat; FROM BigSets IMPORT InitSet,InSet,InclSet; FROM Storage IMPORT ALLOCATE, DEALLOCATE; FROM NumTypes IMPORT Real8; FROM StrConv IMPORT RealToStr; IMPORT InitCompilerMods; CONST inp = 0; outp = 1; prn = 4; stderror = 2; VAR dbf : DBFile; ndx : DBIndex; Name: ARRAY[0..70] OF CHAR; PROCEDURE NDXChk(VAR ndx:DBIndex); VAR KeyStr,LastKey : ARRAY[ 0 .. 127 ] OF CHAR; str,string :ARRAY[0..127] OF CHAR; cardrec, Keys :CARDINAL; CurRec : LONGINT; ok, error, dumbool : BOOLEAN; set : POINTER TO ARRAY[0..4095] OF BITSET; BEGIN NEW( set); error:=FALSE; Keys:=1; InitSet(set^); GoTop( ndx ); InclSet(set^,VAL(CARDINAL,CurrentRec(ndx))); CurrentKeyCh( ndx, LastKey ); WHILE NextRecord( ndx, CurRec ) DO cardrec:=VAL(CARDINAL,CurRec); CurrentKeyCh(ndx,KeyStr); IF InSet(set^,cardrec) THEN error:=TRUE; Concat('duplicate entry for ',KeyStr,str); Concat(str,' record number ',str); CardinalToStr(cardrec,1,string); Concat(str,string,str); WriteEol(outp,str); ELSE InclSet(set^,cardrec); END; INC(Keys); IF CompareStr( LastKey, KeyStr ) > 0 THEN WriteEol(outp,'sort error in index'); error:=TRUE; (* HALT; *) END (*QMLBlBۓQa)io/0O_pO  oO0to/o/goiqst\[w^ub]_a|}xz  OBJ SYM mod;..\sbm2dos\mod def;..\sbm2dos\def                MASM %S/R/MX,%O;                       WIN              @Os2Error>tU]SYSTEMOs2Error*"ZConversiUSV66_ &66;Gv*F66w &466_&66_ & 66_&^[]U666.QSVW^&'F0F 1N;~wwFFFF PDFuF;Fv~u-P$"F1 10P 1ǃw^ &;Fv v &4^&_^[Y6]USvvPvvvv v vv[]UQS~| F؉FvvQvvvv v vv[Y]UPQSV^ &^&|v&4^&F~0s[~9vR^ &?v^ &?t~6s ^&<^ &V0-0^ &^&^&^&;Fwv^[Y]]UPQSVW^&F^ &FG~0sT~9vK^&?v^&?t~6s[F^ &V0-0^&,~t F(~ t ~u ;~weF_^[Y]] UPQSV^&;Fv5v&4^&8-t ^&v&4^&8+t^&vvvvvFPvv(^&?uGu"~vF^ &^&~r F^ &^&^[Y]]UQSVWFFF8Fv^ &F0s?9v7 v t:NsF 0-0KtF;~t,-t FF9+u u5,F;FwW~u ^&^&?F_^[Y] >tU]SYSTEMConversiHPH|HH*(g( e[LongConv0123456789ABCDEFUQSVW^&^ &&GF^&;Fv4v&4^&F~+t ^&~-t ^&F^&;Fwv&4^&F~0s ~9wF0-0FV^ & }~9&?v/^ & t+&?t!~~}~w ^&gF0-0 RPv &t&4׉Ɖȉ^ &&W^&~u^ &&W؃^ &&W_^[Y]UQSVWFFF8FF^ &FG~0sx~9vo~ sv)~