CREATE TABLE AMOUNTS (
    CAID    D_ID NOT NULL /* D_ID = INTEGER */,
    MODID   D_ID NOT NULL /* D_ID = INTEGER */,
    ADATE   D_DATE DEFAULT 'now' NOT NULL /* D_DATE = DATE */,
    MODCNT  D_PRICE /* D_PRICE = NUMERIC(15,2) */
);

ALTER TABLE AMOUNTS ADD CONSTRAINT PK_AMOUNTS PRIMARY KEY (CAID, MODID, ADATE);

CREATE INDEX AMOUNTS_IDX1 ON AMOUNTS (MODID);

create or alter procedure GETAMOUNTS4MODID (
    ACAID_ D_ID,
    MODID_ D_ID,
    ADATE_ D_DBDATE)
returns (
    MODCNT D_PRICE)
as
begin
  select MODCNT
  from AMOUNTS AA
  where (CAID = :ACAID_) and
        (MODID = :MODID_) and
        (ADATE = (select max(ADATE)
                  from AMOUNTS A1
                  where (A1.CAID = :ACAID_) and
                        (A1.MODID = :MODID_) and
                        A1.ADATE <= :ADATE_))
  into :MODCNT;
  suspend;
end

create or alter procedure GETAMOUNTS (
    ADATE D_DATE,
    CAID D_ID)
returns (
    MODID_ D_ID,
    ADATE_ D_DATE,
    MODCNT_ D_PRICE)
as
begin
  for select AA.MODID, AA.ADATE, AA.MODCNT
      from AMOUNTS AA
      where (AA.CAID = :CAID) and
            (AA.ADATE = (select max(ADATE)
                         from AMOUNTS A1
                         where (A1.CAID = :CAID) and
                               (A1.MODID = AA.MODID) and
                               (A1.ADATE <= :ADATE)))
      into :MODID_, :ADATE_, :MODCNT_
  do
    suspend;
end