define acct_item_t=acct_item_t_0603;
define serv_addr=serv_addr_0401;
DECLARE
CURSOR S_CUR  IS select * From &acct_item_t where exch_id='0';
S S_CUR%ROWTYPE;
i number;
BEGIN
OPEN S_CUR;
LOOP
FETCH S_CUR INTO S;
         EXIT WHEN S_CUR%NOTFOUND;
          begin
           begin 
            select distinct exch_id into i from &serv_addr 
            where serv_id=s.serv_id;
            EXCEPTION
   WHEN OTHERS THEN
    i:=1;
  end;
            update &acct_item_t set exch_id=i where serv_id=s.serv_id;
            commit;
          EXCEPTION
 WHEN OTHERS THEN
 null;
         end;
END LOOP;
CLOSE S_CUR;
END;
/