DEFINITION MODULE DBFields;
(*
 *  ModBase
 *  Release 3.0
 *  By Don Fletcher & John McMonagle
 *  (c) Copyright 1986 - 1991 PMI
 *  P.O. Box 8402
 *  Green Bay WI 54308
 *  All Rights Reserved
 *
 *)

FROM ModBase3 IMPORT DBFile;
FROM DateFunctions IMPORT Date;
FROM NumTypes IMPORT Real8;

  PROCEDURE DateToDataFormat(d: Date; VAR datestring:
      ARRAY OF CHAR);

  PROCEDURE DataFormatToDate(dbstring: ARRAY OF CHAR;
      VAR d: Date);

  PROCEDURE GetDateField(VAR alias: DBFile; fieldnum:
      CARDINAL; VAR d: Date);

  PROCEDURE GetLogicalField(VAR alias: DBFile;
      fieldnum: CARDINAL;  VAR l: BOOLEAN);

  PROCEDURE GetNumField(VAR alias: DBFile; fieldnum:
      CARDINAL; VAR n: Real8);

  PROCEDURE Replace(VAR alias: DBFile; fieldnum:
      CARDINAL;  s: ARRAY OF CHAR);

  PROCEDURE ReplaceD(VAR alias: DBFile; fieldnum:
      CARDINAL; d: Date);

  PROCEDURE ReplaceL(VAR alias: DBFile; fieldnum:
      CARDINAL; l: BOOLEAN);

  PROCEDURE ReplaceN(VAR alias: DBFile; fieldnum:
      CARDINAL; n: Real8);

END DBFields.