Delete Person in Oracle HRMS

DECLARE
cursor c is
select * from per_all_people_f
where current_employee_flag is null
and rownum < 100;
x_validate_mode BOOLEAN := FALSE;
x_person_id INTEGER ;
x_man_message VARCHAR2(300);
BEGIN
for i in c
loop
x_person_id := i.person_id;
HR_PERSON_API.DELETE_PERSON(
P_VALIDATE => x_validate_mode,
P_EFFECTIVE_DATE => '09-Mar-2010',
P_PERSON_ID => x_person_id,
P_PERFORM_PREDEL_VALIDATION => FALSE,
P_PERSON_ORG_MANAGER_WARNING => x_man_message
);
dbms_output.put_line('Success'||x_person_id);
end loop;
--commit;
END;
select DISTINCT PERSON_ID from per_all_people_f --where person_id = 118