DECLARE CURSOR AM 
IS
SELECT...

UPDATE CMS_RBRU.T_PE_COBJECT SET CURRENTACCOUNTBALANCE = 'XXXXXX', ACCOUNTCREDITED = 'YYYYYYYYYYYYYYYYYYYY', ACCOUNTDEBITED = 'ZZZZZZZZZZZZZZ' where CMSID = 'WWWWWWWW' ;

OPEN AM;
LOOP
   FETCH AM INTO proc_str; 
   EXIT WHEN AM%NOTFOUND;

EXECUTE IMMEDIATE proc_str; 

proc_str VARCHAR(500);

 EXECUTE IMMEDIATE  proc_str;

DECLARE CRUSOR AM 
IS
SELECT DISTINCT 
CASE
WHEN co.CONTRACTGROUPID = 'G4' THEN 'UPDATE CMS_RBRU.T_PE_COBJECT SET CURRENTACCOUNTBALANCE = '''|| regexp_replace(co.amount, '^(-?)([.,])', '\10\2') ||''', ACCOUNTCREDITED = '''|| cra.ACCNO || ''', ACCOUNTDEBITED = '''|| dea.ACCNO ||''' where CMSID = '''|| co.SOURCEID || ''' ;'
WHEN co.CONTRACTGROUPID != 'G4' THEN 'UPDATE CMS_RBRU.T_PE_COBJECT SET CURRENTACCOUNTBALANCE = '''|| regexp_replace(co.amount, '^(-?)([.,])', '\10\2') ||''', ACCOUNTDEBITED = '''|| cra.ACCNO || ''', ACCOUNTCREDITED = '''|| dea.ACCNO ||''' where CMSID = '''|| co.SOURCEID || ''' ;'
END AS "script"
FROM CMS_OBJECTS co
INNER JOIN CMS_ACCOUNTS cra ON cra.id = co.CONTRAACCOUNT_ID
INNER JOIN CMS_ACCOUNTS dea ON dea.id = co.MAINACCOUNT_ID
INNER JOIN CMS_MSG_OBJECTS cmo ON cmo.SOURCEID = co.SOURCEID
WHERE cmo.MESSAGE_ID in (select m.id
from cms_am.cms_MSG_OBJECTS mo
right join cms_am.cms_messages m on mo.message_id=m.id
where 1=1
and mo.id > 106484987
and mo.RESPONSEMESSAGEDATE >= TO_TIMESTAMP(CURRENT_DATE,'dd.mm.yy')
and mo.status ='SENT'
and m.operation = 'bindToDeal');

EXECUTE IMMEDIATE  proc_str."script" ;

DBMS_OUTPUT.PUT_LINE('upd= '|| proc_str."script");

SET SERVEROUTPUT ON  
declare  cursor am 
is
SELECT DISTINCT 
CASE
WHEN co.CONTRACTGROUPID = 'G4' THEN 'UPDATE CMS_RBRU.T_PE_COBJECT SET CURRENTACCOUNTBALANCE = '''|| regexp_replace(co.amount, '^(-?)([.,])', '\10\2') ||''', ACCOUNTCREDITED = '''|| cra.ACCNO || ''', ACCOUNTDEBITED = '''|| dea.ACCNO ||''' where CMSID = '''|| co.SOURCEID || ''' ;'
WHEN co.CONTRACTGROUPID != 'G4' THEN 'UPDATE CMS_RBRU.T_PE_COBJECT SET CURRENTACCOUNTBALANCE = '''|| regexp_replace(co.amount, '^(-?)([.,])', '\10\2') ||''', ACCOUNTDEBITED = '''|| cra.ACCNO || ''', ACCOUNTCREDITED = '''|| dea.ACCNO ||''' where CMSID = '''|| co.SOURCEID || ''' ;'
END AS "script"
FROM CMS_OBJECTS co
INNER JOIN CMS_ACCOUNTS cra ON cra.id = co.CONTRAACCOUNT_ID
INNER JOIN CMS_ACCOUNTS dea ON dea.id = co.MAINACCOUNT_ID
INNER JOIN CMS_MSG_OBJECTS cmo ON cmo.SOURCEID = co.SOURCEID
WHERE cmo.MESSAGE_ID in (select m.id
from cms_am.cms_MSG_OBJECTS mo
right join cms_am.cms_messages m on mo.message_id=m.id
where 1=1
and mo.id > 106484987
and mo.RESPONSEMESSAGEDATE >= TO_TIMESTAMP(CURRENT_DATE,'dd.mm.yy')
and mo.status ='SENT'
and m.operation = 'bindToDeal');

--Объявление переменных
proc_str am%ROWTYPE; 
obj_counter NUMBER:=0;


BEGIN
DBMS_OUTPUT.PUT_LINE ('STARTING');
DBMS_OUTPUT.PUT_LINE ('-----------------------------------------------------------------------------------------------');
OPEN am;
LOOP
   FETCH am INTO proc_str; 
   EXIT WHEN am%NOTFOUND;
   EXECUTE IMMEDIATE  proc_str."script" ;
   DBMS_OUTPUT.PUT_LINE('upd= '|| proc_str."script");
   obj_counter:=obj_counter+1;
END LOOP;
DBMS_OUTPUT.PUT_LINE('Количество апдейтов = ' || obj_counter);
CLOSE am;
END;