create table AAA (ID integer not null, NAME varchar(100) not null, SYSDT timestamp default current_timestamp not null);
alter table AAA add constraint PK_AAA primary key (ID);
insert into AAA (ID, NAME) values (1, 'test');
commit work;

SET TERM ^ ;
create or alter procedure AAA$ (ID type of column AAA.ID, NAME type of column AAA.NAME)
returns (OUT_ID type of column AAA.ID) as
begin
  OUT_ID = :ID;
  update AAA T
  set T.NAME = coalesce(:NAME, T.NAME),
      T.SYSDT = current_timestamp
  where T.ID = :OUT_ID;
  suspend;
end^
SET TERM ; ^

select *
from AAA$(1, 'test1') P
left join AAA T on T.id=P.OUT_ID;

select null, null,  null from AAA$(1, 'test100500') P
union all
select T.id, T.name, T.sysdt from AAA T where T.id=1;

select * from AAA T 
where T.id = (select P.OUT_ID from AAA$(1, 'test100500') P)