declare
cursor c_col is select * from xtgl_jgmcbm where substr(v_jgbm,0,2)in('41');--v_sjbm in( select distinct substr(v_zjhm_mq,0,6) from etbj_fmdj where length(v_dzpath)=7 and substr(v_zjhm_mq,0,2)='45' );
begin
for r_col in c_col loop
update etbj_fmdj set v_dzpath=r_col.v_jgbm where v_xzdz like '%'||r_col.v_dz||'%' and length(v_dzpath)=7 ;
end loop;
end;