/*Изменение пульт номеров с 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;