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é)��~ü