pl/sql 运行不成功

times18

DBUSER=$STORE_DBID
DBPASS=$STORE_DBPW

$ORACLE_HOME/bin/sqlplus -s $DBUSER/$DBPASS << EOF

     set serverout on;
declare
      v_rowcount number;
      v_i    int;
      v_rowid varchar2(1 ;
begin
     dbms_output.enable;
     dbms_output.put_line('##### S_PLUMST Group_Event Column Update Start... #####');
   for x in (select rowid from s_ext_prod  where rownum <10) loop
     dbms_output.put_line('##### S_PLUMST 11... #####');
      UPDATE s_plumst A
         SET (A.bun_code,
              A.event_flag,
              A.dc_flag,
              A.prod_flag,
              A.count_1,
              A.discount_1,
              A.count_2,
              A.discount_2,
              A.count_3,
              A.discount_3) = (SELECT B.bun_code,
                                      B.event_flag,
                                      B.dc_flag,
                                      B.prod_flag,
                                      B.count_1,
                                      B.discount_1,
                                      B.count_2,
                                      B.discount_2,
                                      B.count_3,
                                      B.discount_3
                                      FROM s_ext_prod B
                                     WHERE A.plu_code = B.plu_code
                                      and  B.rowid =x.rowid);
                     v_rowcount :=SQL%ROWCOUNT;
                     v_i :=v_i+1;
     dbms_output.put_line('Start11... '||to_char(v_rowcount));
     dbms_output.put_line('Start11... '||to_char(x.rowid));
commit;
    end loop;
end;
/
EOF

请段程序运行好了，但ＵＰＤＡＴＥ的动作，没有实现，为什么，请指点