DEFINITION MODULE DBStuff;
FROM DBIndxes IMPORT DBIndex;
FROM ModBase3 IMPORT DBFile,DBFieldDescriptor;
FROM ScrnTypes IMPORT DisplayFrame;
FROM DateFunctions IMPORT Date;
FROM GenLists IMPORT GenList;
FROM SYSTEM IMPORT ADDRESS;
TYPE
  ConditionType =(LT,LE,EQ,GE,GT,BeginsWith,Contains,Between);
  ReadRec = PROCEDURE ( VAR ADDRESS, VAR CARDINAL);


PROCEDURE MakeDescriptor(VAR Desc : DBFieldDescriptor;
                         Name : ARRAY OF CHAR; Size : CARDINAL;
			 Dec  : CARDINAL; Type : CHAR);
PROCEDURE MakeSeqNbr(SeqFile,  (* file name where seq kept -no extention *)
                     Prefix : ARRAY OF CHAR; (*key prefix "91-','C'*)
	 VAR  Key : ARRAY OF CHAR); (* returned key *)
	
PROCEDURE MakeKey(VAR Key : ARRAY OF CHAR);
PROCEDURE ReadAllRecs(VAR DBF : DBFile; ReadProc :ReadRec; VAR TheList : GenList);
PROCEDURE FindAll(Idx : DBIndex; KeyExp : ARRAY OF CHAR;
		  Condition : ConditionType;
		  VAR TheList : GenList );
PROCEDURE DeleteAllRecs(VAR DBF : DBFile; TheList : GenList);

PROCEDURE ReadDateField( DF : DisplayFrame; VAR D : Date;
                        FldName : ARRAY OF CHAR);
PROCEDURE ChangeDateField(VAR DF : DisplayFrame; D : Date;
                          FldName : ARRAY OF CHAR);			



END DBStuff.