create or alter procedure TEST (
    T integer)
returns (
    I integer)
as
begin
  i = case t
        when null then 1
        when 1 then 1
      end;
end