--删除物料类别
DECLARE
x_error_code NUMBER;
x_msg_count NUMBER;
x_category_id number;
x_return_status varchar2(30);
x_msg_data VARCHAR2(2000);
cursor tmp is
select mck.category_id
from cux.cux_jenrry_debug3 a, mtl_categories_kfv mck
where mck.concatenated_segments = a.segment
and mck.category_id <> 17781;
BEGIN
for i in tmp loop
inv_item_category_pub.Delete_Category(p_api_version => 1.0,
p_init_msg_list => FND_API.G_FALSE,
p_commit => FND_API.G_FALSE,
x_return_status => x_return_status,
x_errorcode => x_error_code,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data,
p_category_id => i.category_id);
dbms_output.put_line('x_return_status ' || x_return_status);
dbms_output.put_line('x_error_code ' || x_error_code);
dbms_output.put_line('x_msg_count ' || x_msg_count);
dbms_output.put_line('x_msg_data ' || x_msg_data);
dbms_output.put_line('x_category_id ' || x_category_id);
end loop;
END;