create or alter procedure ASP_GET_CARINFO (
    D_ID integer)
returns (
    MODEL varchar(30),
    RELDATE char(16),
    REGNUM char(14),
    PAWNED smallint)
as
begin
  
  for select c.model,
             c.reldate,
             c.regnum,
             c.pawned
      from CLIENTS d
      left join cars c on d.id=c.clientid
      where d.id=:d_id
      into
           :model,
           :reldate,
           :regnum,
           :pawned
  do
  begin
    suspend;
  end
end

CREATE TABLE CARS (
    ID        INTEGER NOT NULL,
    CLIENTID INTEGER,
    MODEL     VARCHAR(30),
    RELDATE   CHAR(16),
    REGNUM    CHAR(14),
    PAWNED    SMALLINT
);