Topspeed_JPI/TS-V3/MODBASE/CHK.MOD

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 (*QMLB�l�ÛB�Û“��Q
�
a
��
�þ�����)i
���ÿ
����o/0O_pO oO0to/o/������������������������������������������������������������������������
�

�����������
��
�����goiq¤–st\[w^ub]_a|}xz

��������

����
OBJ�                            SYM�                            mod;..\sbm2dos\mod�             def;..\sbm2dos\def�             �               MASM %S/R/MX,%O;�                       
WIN�              �������������������������ÿÿ��ÿÿ��ÿÿ��ÿÿ��ÿÿ��ÿÿ��ÿÿ��ÿÿ��ÿÿ��ÿÿ��ÿÿ��ÿÿ��ÿÿ��ÿÿ��ÿÿ��ÿÿ��ÿÿ��ÿÿ��ÿÿ��ÿÿ��ÿÿ��ÿÿ��ÿÿ��ÿÿ��ÿÿ��ÿÿ��ÿÿ��ÿÿ��ÿÿ��ÿÿ��ÿÿ��ÿÿ��ÿÿ��ÿÿ��ÿÿ��ÿÿ��ÿÿ��ÿÿ��ÿÿ��ÿÿ��ÿÿ��ÿÿ��ÿÿ��ÿÿ��ÿÿ��ÿÿ��ÿÿ��ÿÿ��ÿÿ��ÿÿ��ÿÿ��ÿÿ��ÿÿ��ÿÿ��ÿÿ��ÿÿ��ÿÿ��ÿÿ��ÿÿ��ÿÿ��ÿÿ��ÿÿ��ÿÿ��ÿÿ��ÿÿ��ÿÿ��ÿÿ��ÿÿ��ÿÿ��ÿÿ��ÿÿ��ÿÿ��ÿÿ��ÿÿ��ÿÿ��ÿÿ��ÿÿ��ÿÿ��ÿÿ��ÿÿ��ÿÿ��ÿÿ��ÿÿ��ÿÿ��ÿÿ��ÿÿ��ÿÿ��ÿÿ��ÿÿ��ÿÿ��ÿÿ��ÿÿ��ÿÿ��ÿÿ��ÿÿ��ÿÿ��ÿÿ��ÿÿ��ÿÿ��ÿÿ��ÿÿ��ÿÿ��ÿÿ��ÿÿ��ÿÿ��ÿÿ��ÿÿ��ÿÿ��ÿÿ��ÿÿ��ÿÿ��ÿÿ��ÿÿ��ÿÿ��ÿÿ��ÿÿ��ÿÿ��ÿÿ��ÿÿ��ÿÿ��ÿÿ��ÿÿ��ÿÿ��ÿÿ��ÿÿ��ÿÿ��ÿÿ��ÿÿ�� �@��������������‘¢Ç�Os2Error€>���t
Ëþ��U‰å]Ë���������������SYSTEM��Os2Error*���"�����ä�������������”Z�ConversiU‰åSV6‹��6Ä_
&‹6‹��6;Gvé*�ŠF6‹��6Äw
&‹46‹��6Ä_&ˆ�6‹��6Ä_
&ÿé
�6‹��6Ä_&Æ�^[]Â�U‰åƒì6ÿ6��6‰.��QSVWÄ^&Æ
¿'ŠF0ä�‰Füé�¹
�‰ø1Ò÷ñ‰ÇÿNü;~wé�ƒÿ
wå‹F‰Fú¸
�Fü‰Fþé�¸ �PèDÿÿFþué�‹Fþ;Fúvé€~�ué�¸-�Pè$ÿé"�‹F1Ò÷÷¹
�1Ò÷ñ‰Ð0�Pè
ÿ¹
�‰ø1Ò÷ñ‰Çƒÿ�wÙÄ^
&‹;Fvé
�Äv
&‹4Ä^&Æ��_^[Y6���‰ì]Ê�U‰åSÿvÿv¸��Pÿvÿvÿvÿvÿv
ÿvÿvèÿ[]Ê�U‰åQS±�ƒ~�|é
�‹F÷؉F±
ÿvÿvQÿvÿvÿvÿvÿv
ÿvÿvèÆþ[Y]Ê�U‰åPQSVÄ^
&Ç��Ä^&Æ�é|�Äv&‹4Ä^&Š�ˆFÿ€~ÿ0sé[�€~ÿ9véR�Ä^
&�?™vé�Ä^
&�?™té�€~ÿ6sé
�Ä^&Æ�é<�Ä^
¹
�&‹÷áŠVÿ0ö
Ð-0�Ä^
&‰Ä^&Æ
é�é�Ä^&ÿÄ^&‹;Fwévÿ^[Y]]Ê�U‰åPQSVW¿��Ä^&Ç��ÆFþ�é“�Ä^
&Š
ˆFÿG€~ÿ0séT�€~ÿ9véK�Ä^&�?™vé�Ä^&�?™té�€~ÿ6sé�¸��é[�ÆFþ
Ä^¹
�&‹÷áŠVÿ0ö
Ð-0�Ä^&‰é,�€~ÿ�té�ŠFþ´�é(�é�€~ÿ té	�€~þ�ué�¸��é
�;~wéeÿŠFþ´�_^[Y]]Ê
�U‰åPQSV±�Ä^&‹;Fvé5�Äv&‹4Ä^&€8-té�Ä^&ÿ±
é�Äv&‹4Ä^&€8+té�Ä^&ÿÿvÿvÿvÿvÿv�FþPÿvÿvè(þÄ^&€?�uéG�€ù�ué"��~þ�€vé�‹Fþ÷ØÄ^
&‰é�Ä^&Æ�é��~þ�€ré�‹FþÄ^
&‰é�Ä^&Æ�^[Y]]Ê�U‰åƒìQSVWÆFû�ÆFý�ÆFü8¿��ÇFþ��éž�‹vþÄ^
&ŠÿFþ€ù0sé?�€ù9vé7��ÿÌvé��ÿÌté�:Nüsé�¸��éŽ�ÆFû
¸
�÷ç0í‰Ê
Ð-0�‰ÇéK�€ù�té�ÇFþÿÿé;�€~û�té,�€ù-té�ÆFý
ÆFü9é�€ù+ué�€ù ué�¸��é5�é�¸��é,�‹Fþ;FwéWÿ€~ý�ué
�‰ø÷ØÄ^&‰é�Ä^&‰?ŠFû´�_^[Y‰ì]Ê
�€>���t
Ëþ��U‰å]Ë�����������SYSTEM��ConversiHP
��H|
��H¼
��H*��(g��(ï��î��æ���� ������������e[§�LongConv0123456789ABCDEFU‰åƒìQSVWÄ^&Æ
Ä^
&Ç��&ÇG��ÆFþ�Ä^&‹;Fvé4�Äv&‹4Ä^&Š�ˆFÿ€~ÿ+té	�Ä^&ÿé�€~ÿ-té
�Ä^&ÿÆFþ
Ä^&‹;Fwé�éÑ�Äv&‹4Ä^&Š�ˆFÿ€~ÿ0sé	�€~ÿ9wé�é­�ŠFÿ0äº��-0�ƒÚ�‰Fú‰VüÄ^
&�Ì}é�~é9�&�?ÌÌvé/�Ä^
&�Ìté+�&�?ÌÌté!�ƒ~ü�~é�}é�ƒ~úwé
�Ä^&Æ�ég�ŠFÿ0ä-0�‰Á»��¸
�º��RPÄv
&ÿt&ÿ4š����‰×‰Æ‰È‰Ú
ðúÄ^
&‰&‰WÄ^&ÿéÿ€~þ�ué�Ä^
&‹&‹W÷؃Ò�÷ÚÄ^
&‰&‰W_^[Y‰ì]Ê�U‰åƒìQSVWÆFø�ÆFû�ÆFù8ÇFü��ÇFþ��¿��éØ�Ä^
&Š
ˆFúG€~ú0séx�€~ú9véo��~þÌsé�vé)��~ü