DECLARE
v_header_id NUMBER;
CURSOR cur_part_list IS
SELECT *
FROM ske_sys_part_list
FOR UPDATE NOWAIT;
BEGIN
FOR rec_part IN cur_part_list
LOOP
SELECT ske_sys_part_list_s.nextval
INTO v_header_id
FROM dual;
IF rec_part.header_id IS NULL THEN
UPDATE ske_sys_part_list
SET header_id = v_header_id
WHERE CURRENT OF cur_part_list;
END IF;
END LOOP;
--COMMIT;
END;
