create procedure Test (adate date)
as
declare variable date1 date;
begin
date1 = :adate; <- this line does not work. Why?
suspend;
end;

Cheers

Johannes