求助储存过程哪里出错了

通过编译，但是运行系统时候没有效果出来，一下是储存过程代码
create or replace procedure test_zc as
  Z_OBJMRC     R5OBJECTS.OBJ_MRC%TYPE;
  Z_OBJDESC    R5OBJECTS.OBJ_DESC%TYPE;
  z_ordqty    r5orderlines.orl_ordqty%TYPE;
  z_part      r5orderlines.orl_part%TYPE;
  z_order      r5orderlines.orl_order%TYPE;
  d        NUMBER := 1;
cursor cur_part
  is
   SELECT orl_order,orl_part,orl_ordqty FROM R5ORDERLINES where ORL_PART in(select par_code from R5PARTS where par_byasset='+');
 begin
  open cur_part ;
  loop
  fetch cur_part into z_order,z_part,z_ordqty;
   while d <z_ordqty
     loop
       select par_desc into Z_OBJDESC from R5PARTS where par_byasset='+'and par_code =z_part;
       SELECT W.USR_MRC INTO  Z_OBJMRC FROM R5USERS W WHERE W.USR_CODE IN(SELECT ORD_ORIGIN FROM R5ORDERS WHERE ORD_code=z_order );
        INSERT INTO R5OBJECTS ( OBJ_CODE, OBJ_DESC, OBJ_OBTYPE, OBJ_OBRTYPE, OBJ_CLASS, OBJ_DEPEND, OBJ_STATUS, OBJ_RSTATUS, OBJ_GROUP, OBJ_USER, OBJ_NOTUSED, OBJ_SAFETY, OBJ_ORG, OBJ_CLASS_ORG, OBJ_MRC) VALUES(S5AUTOOBJ.nextval,Z_OBJDESC,'A','A','','-','A','A','R5','R5','-','-','*','',Z_OBJMRC);
       d:=d+1;
      end loop;     exit when cur_part%notfound;
     DBMS_OUTPUT.put_line('结束循环');
   end loop;  end;Cursorselect