/*Изменение пульт номеров с 47/xxx на 40/xxx */
/*Вместо 47 и 40 могут быть другие числа*/

SET TERM ^ ;

CREATE PROCEDURE TEMP_CORR_PULTNUMBER
RETURNS (
    PN VARCHAR(20),
    NEWPN VARCHAR(20))
AS
DECLARE VARIABLE CD INTEGER;
begin
  for select pult_number, code_device_list
  from device_list
  where pult_number like('47/%')
  into PN, CD
  do
    begin
    NEWPN='40/' || SUBSTR(pn, 4, 20);
    update device_list
    set PULT_NUMBER = :newpn
    where code_device_list = :cd;
    suspend;
    end
end^

SET TERM ; ^

select * from TEMP_CORR_PULTNUMBER;
commit work;

drop PROCEDURE TEMP_CORR_PULTNUMBER;
commit work;