Topspeed_JPI/TS-V3/MODBASE/DBRELATE.MOD

(*
 * ModBase
 * Release 3.0
 * (c) copyright 1990 PMI
 *  P.O. Box 8402
 *  Green Bay Wi 53308
 *  All Rights Reserved
 *
 *)

IMPLEMENTATION MODULE DBRelate;
(* Copywright 1990-1991 John McMonagle
  ModBase  3.0 *)
FROM ModBase3 IMPORT
   DBFile,ReadDBRec;
FROM DBIndxes IMPORT
   DBIndex,FindPositionCh,FindPositionN,CurrentRec,NumKeyType;

PROCEDURE ReadRelate(key:ARRAY OF CHAR; ndx:DBIndex;
    dbf:DBFile):BOOLEAN;
VAR
  ok:BOOLEAN;
BEGIN
  IF NumKeyType(ndx)
   THEN
    FindPositionN(ndx,key,ok);
  ELSE
    FindPositionCh(ndx,key,ok);
  END;
  IF NOT ok
  THEN
    RETURN FALSE;
  END;
  ReadDBRec(dbf,CurrentRec(ndx));
  (* assume if ReadDBREC fails program will terminate *)
  RETURN TRUE;
END ReadRelate;

END DBRelate.