(******************************************************************************
*                                CPIS11 .DEF                                  *
*                              ABO Software Dep.                              *
* Purpose : To provide a simple database of CPI details                       *
*                                                                             *
*   Notes :                                                                   *
*                                                                             *
*         Version Date : 10/6/92                                              *
******************************************************************************)
DEFINITION MODULE CPIS11;

FROM OBJ11 IMPORT Object;
FROM DATA21 IMPORT DBase;
FROM DATE11 IMPORT Date;
FROM FIO IMPORT File;
CONST

TYPE


CLASS CPI(Date);
	value:REAL;
VIRTUAL PROCEDURE clear;
VIRTUAL PROCEDURE copy(VAR o:Object);
VIRTUAL PROCEDURE rd(f:File);
VIRTUAL PROCEDURE wr(f:File);
END CPI;


CLASS CPIDB(DBase);
PROCEDURE value(VAR dt:Date):REAL;
END CPIDB;


VAR
	cpis:CPIDB;

END CPIS11.