Delete and update records in Stored procedures

Question

I AM NOW STUDYING A STORED PROCEDURE ,AND I ENCOUNTER SOME PROBLEM WITH
UPDATE AND DELETE SOME RECORD WHICH ONE IS UPDATED OR DELETED,
THIS IS MY CODE:
PACKAGE table_of_array IS
type emp_rec is record(
     empno emp.empno%type,
     ename emp.ename%type,
     sal          emp.sal%type,
     deptno emp.deptno%type
type arr is table of emp_rec
index by binary_integer;
procedure get_data(a in out table_of_array.arr);
procedure do_insert(a in out table_of_array.arr);
procedure do_update(a in out table_of_array.arr);
procedure do_delete(a in out table_of_array.arr);
END;
PACKAGE BODY table_of_array IS
procedure get_data(a in out table_of_array.arr)
is
i number:=0;
begin
     for cur in (select empno,ename,sal,deptno from emp) loop
          a(i):=cur;
          i:=i+1;     
     end loop;
end;
procedure do_insert(a in out table_of_array.arr)
is
     i number:=0;
     cnt number:=a.count;
begin
     for i in 1..cnt loop
          insert into emp(empno,ename,sal,deptno)
          values(a(i).empno,a(i).ename,a(i).sal,a(i).deptno);
     end loop;
end;
procedure do_update(a in out table_of_array.arr)
is
begin
     /* WHICH RECORD AND ITEM HAD BEEN UPDATED */
end;
     procedure do_delete(a in out table_of_array.arr)
     is
     begin
     /* WHICH RECORD HAD BEEN DELETED */      
     end;
END;

Answer 1

when you want to update, delete or insert records with a stored procedure you have to provide a procedure that locks the records
i'll send you an example of an update procedure and a lock procedure
PROCEDURE p_upd_devices ( resultset IN devtab) IS
BEGIN
FOR i IN 1..resultset.COUNT LOOP
          IF resultset(i).zone <> resultset(i).zone_ref THEN
          p_update_zone(resultset(i).zone, resultset(i).mdv_seq);
          END IF;
     END LOOP;
EXCEPTION WHEN OTHERS THEN
mecoms_general.logging(0, sqlerrm, 'pck$fill_error_devices.p_upd_devices');
END; -- p_upd_devices
PROCEDURE p_update_zone (pi_zone in metering_devices.zne_code%type, pi_device in metering_devices.seq%type) IS
PRAGMA AUTONOMOUS_TRANSACTION;
BEGIN
          UPDATE metering_devices
               SET zne_code = pi_zone
               WHERE seq = pi_device;
               commit;
EXCEPTION WHEN OTHERS THEN
mecoms_general.logging(0, sqlerrm, 'pck$fill_error_devices.p_update_zone');
END;
PROCEDURE p_lock_devices( resultset IN OUT devtab) IS
BEGIN
null;
END;