Listing:

    1  
    2  (*
    3   * ModBase
    4   * Release 3.0
    5   * (c) copyright 1990 PMI
    6   *  P.O. Box 8402
    7   *  Green Bay Wi 53308
    8   *  All Rights Reserved
    9   *
   10   *)
   11  
   12  IMPLEMENTATION MODULE DBRelate;
   13  (* Copywright 1990-1991 John McMonagle
   14    ModBase  3.0 *)
   15  FROM ModBase3 IMPORT
   16     DBFile,ReadDBRec;
   17  FROM DBIndxes IMPORT
   18     DBIndex,FindPositionCh,FindPositionN,CurrentRec,NumKeyType;
   19  
   20  PROCEDURE ReadRelate(key:ARRAY OF CHAR; ndx:DBIndex;
*****                                    ^ not supported yet
   21      dbf:DBFile):BOOLEAN;
   22  VAR
   23    ok:BOOLEAN;
   24  BEGIN
   25    IF NumKeyType(ndx)
*****       ^ not supported yet
*****                  ^ not supported yet
   26     THEN
   27      FindPositionN(ndx,key,ok);
*****      ^ not supported yet
*****                    ^ not supported yet
*****                        ^ not supported yet
*****                              ^ not supported yet
   28    ELSE
   29      FindPositionCh(ndx,key,ok);
*****      ^ not supported yet
*****                     ^ not supported yet
*****                         ^ not supported yet
*****                               ^ not supported yet
   30    END;
   31    IF NOT ok
   32    THEN
   33      RETURN FALSE;
   34    END;
   35    ReadDBRec(dbf,CurrentRec(ndx));
*****    ^ not supported yet
*****              ^ not supported yet
*****                  ^ not supported yet
*****                             ^ not supported yet
   36    (* assume if ReadDBREC fails program will terminate *)
   37    RETURN TRUE;
   38  END ReadRelate;
*****      ^ not supported yet
   39  
   40  END DBRelate.
*****      ^ not supported yet

   17 errors