Error in using one's collection values in other collection

Question

hi,
I want to fetch cursor s values based upon cursor r part_no column to populate childbkp table.but i m getting eror .plz help me to resolve.in code it might b many mistakes also.
declare
          TYPE PartNum IS TABLE OF parent.part_num%TYPE
          INDEX BY BINARY_INTEGER;
          pnum_t PartNum;
          TYPE PartName IS TABLE OF parent.part_name%TYPE
          INDEX BY BINARY_INTEGER;
          pnam_t PartName;
          CURSOR r IS
               SELECT part_num, part_name
               FROM parent;
          type r_part_num_arry IS TABLE OF r%rowtype;
          r_part_num r_part_num_arry;
          r_pnum_t parent.PART_NO%type;
          CURSOR s IS
               SELECT part_num, part_name
               FROM parent p where rownum=1 and p.PART_NO = r_pnum_t ;          
BEGIN
OPEN r;
LOOP
FETCH r BULK COLLECT INTO pnum_t, pnam_t LIMIT 1000;
     FORALL i IN pnum_t.FIRST .. pnum_t.LAST
     INSERT INTO child
     (part_num, part_name)
     VALUES
     (pnum_t(i), pnam_t(i));
     COMMIT;
               begin
                         OPEN s;
                         LOOP
                              r_pnum_t := pnum_t(i);
                         FETCH s BULK COLLECT INTO pnum_t, pnam_t LIMIT 1000;
                              FORALL i IN pnum_t.FIRST .. pnum_t.LAST
                              INSERT INTO child_bkp
                              (part_num, part_name)
                              VALUES
                              (pnum_t(i), pnam_t(i));
                              COMMIT;
                         EXIT WHEN s%NOTFOUND;
                         END LOOP;
                         COMMIT;
                         CLOSE s;     
               end;
EXIT WHEN r%NOTFOUND;
END LOOP;
COMMIT;
CLOSE r;
END ;

Answer 1

i need to run 1st qry based upoin below senerio.i need to do this work in collection case also.how to do it by collection.
declare
     CURSOR r IS
          SELECT part_num, part_name
          FROM parent;
          r_pnum_t parent.PART_Num%type;
          pnum_t      parent.PART_Num%type;
          pnam_t      parent.PART_Name%type;
          CURSOR s IS
          SELECT part_num, part_name
          FROM parent p where rownum=1 and p.PART_Num = r_pnum_t ;
BEGIN
     OPEN r;
     LOOP
          FETCH r INTO pnum_t, pnam_t ;
          INSERT INTO child(part_num, part_name)
          VALUES(pnum_t, pnam_t);
                              begin
                                   OPEN s;
                                   LOOP
                                        r_pnum_t := pnum_t ;
                                        FETCH s INTO pnum_t, pnam_t ;
                                        INSERT INTO child_bkp(part_num, part_name)
                                             VALUES(pnum_t, pnam_t);
                                        COMMIT;
                                   EXIT WHEN s%NOTFOUND;
                                   END LOOP;
                              COMMIT;
                              CLOSE s;
                              end;          
     EXIT WHEN r%NOTFOUND;
     END LOOP;
     COMMIT;
     CLOSE r;
     END