oracle语句块

declare
  cursor v_is is
    select distinct aac001 from sic84 where aab001=511500000999 ;
  pi_data lew_pub.data;
  po_fhz varchar2(1000);
  po_msg varchar2(2000);
begin
  for x in v_is loop
    --select x.aac001 into  PI_DATA.AAC001 from dual;
    --select ‘110‘ into PI_DATA.AAE140 from dual ;
    PI_DATA.AAC001 := x.aac001;
    PI_DATA.AAE140 := ‘110‘;
    lew_pub.repair_ac20_by_sj(pi_data, po_fhz, po_msg);
    if po_fhz <> ‘1‘ then
      dbms_output.put_line(‘出错了：‘||po_msg);
    end if;
  end loop;
end;