for Select right(t.psi_name,2) from obj t where ((t.id_vida_ob=:id_vida) and (char_length(t.psi_name)=8)) into :PSI_NAME_OBJ AS CURSOR TCUR do
    begin

      if (:name is not null) then
        update obj set name_obj=:name where current of TCUR;    
    end

SET TERM ^ ;

create or alter procedure NORMAL_NAME_KS
as
declare variable ID_VIDA integer;
declare variable PSI_NAME_OBJ varchar(2);
declare variable NAME varchar(100);
BEGIN
  select id_vida_ob from vid_obj where name_vida_obj like 'КС%' into :id_vida;
  for Select right(t.psi_name,2) from obj t where ((t.id_vida_ob=:id_vida) and (char_length(t.psi_name)=8)) into :PSI_NAME_OBJ AS CURSOR TCUR do
    begin
      NAME=(case
        when :PSI_NAME_OBJ='03' then 'КС VVV1'
        when :PSI_NAME_OBJ='0S' then 'КС SSSX'
        ...
        when :PSI_NAME_OBJ='49' then 'КС BBBS'
        else null end);
      if (:name is not null) then
        update obj set name_obj=:name where current of TCUR;
    end
END
^

SET TERM ; ^

select id_vida_ob from vid_obj where name_vida_obj like 'КС%' into :id_vida;
  for Select right(t.psi_name,2) as col1 from obj t where ((t.id_vida_ob=:id_vida) and (char_length(t.psi_name)=8)) AS CURSOR TCUR do
    begin
      NAME=(case
        when TCUR.col1='03' then then 'КС VVV1'
        when TCUR.col1='0S' then 'КС SSSX'
        ...
        else null end);
      if (:name is not null) then
        update obj set name_obj=:name where current of TCUR;
    end