plsql 的循环之 goto

/* 测试goto 的用法,
   
  */
  procedure test_loop_go(pi_aab001 in number,
                         po_fhz    out varchar2,
                         po_msg    out varchar2) is
    cursor cur_ac02 is
      select * from ac02 where aab001 = pi_aab001;
  
  begin
    -- aab001 = 511500009511 , aac001 = 1000687490 ,如果是1000687490 这个人，那么就不更新
    for v_cur in cur_ac02 loop
      if v_cur.aac001 = 1000687490 then
        goto the_next;
      elsif v_cur.aac008 = 1 then
        update ac02 a
           set a.aac008 = 6
         where aac001 = v_cur.aac001
           and aae140 = v_cur.aae140;
      end if;
      <<the_next>>
      null;
    end loop;
  end test_loop_go;