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