Oracle EBS 建立物資類別

--建立物料類別
DECLARE
  l_category_rec  INV_ITEM_CATEGORY_PUB.CATEGORY_REC_TYPE;
  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 * from cux.cux_jenrry_debug2;
BEGIN
  for i in tmp loop
    l_category_rec.STRUCTURE_ID := 101;
    l_category_rec.segment1     := i.segment1;
    l_category_rec.segment2     := i.segment2;
    l_category_rec.segment3     := i.segment3;
    l_category_rec.segment4     := i.segment4;
    l_category_rec.segment5     := i.segment5;
    l_category_rec.DESCRIPTION  := i.description;
    inv_item_category_pub.Create_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_rec  => l_category_rec,
                                          x_category_id   => x_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;
/*select * from mtl_categories_vl  a where a.CATEGORY_ID = 17782;
*/
/*
create table cux.cux_jenrry_debug2
(
segment1 varchar2(240),
segment2 varchar2(240),
segment3 varchar2(240),
segment4 varchar2(240),
segment5 varchar2(240),
description varchar2(4000)
)
;

select * from cux.cux_jenrry_debug2 for update;*/