I got Class category is invalid error. while i am trying to create project by using pa_project_pub API trough backend

Question

Hi Everyone,
Can you please help me.. how can i solve this problem.
please find out the following code which was i written..
DECLARE
  -- Variables needed to create task hierachy
  level1               NUMBER;
  level2               NUMBER;
  level3               NUMBER;
  a                    NUMBER;
  m                    NUMBER;
  parent_level1         VARCHAR2(30);
  parent_level2         VARCHAR2(30);
  parent_level3         VARCHAR2(30);
  number_of_tasks1      NUMBER;        -- number of tasks/levels
  number_of_tasks2      NUMBER;
  number_of_tasks3      NUMBER;
  number_of_tasks4      NUMBER;
  -- Variables needed for API standard parameters
  l_api_version_number  NUMBER := 1.0;
  l_commit                VARCHAR2(1) := 'F';
  l_return_status       VARCHAR2(1);
  l_init_msg_list       VARCHAR2(1) := 'F';
  l_msg_count           NUMBER;
  l_msg_index_out       NUMBER;
  l_msg_data            VARCHAR2(2000);
  l_data                VARCHAR2(2000);
  l_workflow_started    VARCHAR2(1) := 'Y';
  l_pm_product_code     VARCHAR2(10);
-- Predefined Composit data types
  l_project_in          PA_PROJECT_PUB.PROJECT_IN_REC_TYPE;
  l_project_out         PA_PROJECT_PUB.PROJECT_OUT_REC_TYPE;
  l_key_members         PA_PROJECT_PUB.PROJECT_ROLE_TBL_TYPE;
  l_class_categories    PA_PROJECT_PUB.CLASS_CATEGORY_TBL_TYPE;
  l_tasks_in_rec        PA_PROJECT_PUB.TASK_IN_REC_TYPE;
  l_tasks_in            PA_PROJECT_PUB.TASK_IN_TBL_TYPE;
  l_tasks_out_rec       PA_PROJECT_PUB.TASK_OUT_REC_TYPE;
  l_tasks_out           PA_PROJECT_PUB.TASK_OUT_TBL_TYPE;
  l_cust_rec            PA_PROJECT_PUB.CUSTOMER_IN_REC_TYPE;
  l_cust_tbl            PA_PROJECT_PUB.CUSTOMER_TBL_TYPE;
  l_person_id           NUMBER;
  l_project_role_type   VARCHAR2(20);
  l_responsibility_id    NUMBER;
  l_user_id        NUMBER;
  v_ind            NUMBER;
  API_ERROR                EXCEPTION;
BEGIN
-- GET GLOBAL VALUES
  select user_id, responsibility_id
  into  l_user_id, l_responsibility_id
  from pa_user_resp_v
  where user_name = 'SATISH'                    -- substitute valid username
  and responsibility_name = '*PAC Projects Administrator';    -- substitute responsibility name
dbms_output.put_line( 'initilaization');
-- SET GLOBAL VALUES
  pa_interface_utils_pub.set_global_info(
    p_api_version_number    => 1.0,
    p_responsibility_id     => l_responsibility_id,
    p_user_id               => l_user_id, 
    p_msg_count             => l_msg_count,
    p_msg_data              => l_msg_data,
    p_return_status         => l_return_status);
  dbms_output.put_line( 'Assigning values');
-- PRODUCT RELATED DATA
  l_pm_product_code := 'GMS';         -- can be user defined
-- PRODUCT DATA (PROJECT_IN_REC_TYPE)
  l_project_in.created_from_project_id := 11759;--'1746';--'11759';  -- Project id from template
  l_project_in.project_name := 'TEST_VS_14052014';
  l_project_in.pm_project_reference := 'TEST_VS_14052014';
  l_project_in.description := 'CREATION OF PROJECT(VS)';
  l_project_in.project_status_code := 'APPROVED';
  l_project_in.carrying_out_organization_id := 652;--3274;    -- can default from template
  l_project_in.start_date := '01-JAN-2007'; -- can override default from template
  l_project_in.completion_date := '31-JAN-2010';       -- can override default from template
  l_project_in.actual_start_date := '01-JAN-2010';
  l_project_in.actual_finish_date := '31-JAN-2010';
  l_project_in.early_start_date := '01-JAN-2010';
  l_project_in.early_finish_date :='31-JAN-2010';
  l_project_in.late_start_date := '01-JAN-2010';
  l_project_in.late_finish_date :='31-JAN-2010';
-- l_proj_in.process_mode := 'ONLINE';
-- l_project_in.customer_id := 1001;
--KEY MEMBERS DATA (PROJECT_ROLE_TBL_TYPE)
-- can be defaulted from the Template, but not from a Project
  m := 1;
  l_person_id := 34;            -- need to get from Apps
  l_project_role_type := 'PROJECT MANAGER';
  l_key_members(m).person_id := 53;
  l_key_members(m).project_role_type := 'PROJECT MANAGER';
-- l_class_categories(1).class_category := 'Engineering';
  --l_class_categories(1).class_code := 'Programs';
  --l_class_categories(2).class_category := 'Planned';
  --l_class_categories(2).class_code := 'Active';
  l_class_categories(3).class_category := 'Rank';
  l_class_categories(3).class_code := 'CUST';
-- CUSTOMERS
  v_ind := 0;
  l_cust_rec.customer_id                    := 1001;
  l_cust_rec.project_relationship_code      := 'CLIENT'; --cus.project_relationship_code;
  l_cust_rec.Bill_To_Customer_id            := NULL; --cus.x_bill_customer_id;    
  l_cust_rec.contact_id                     := NULL;                   --  pa_interface_utils_pub.g_pa_miss_num;
  l_cust_rec.project_contact_type_code      := NULL;  --  pa_interface_utils_pub.g_pa_miss_char;
  l_cust_rec.customer_bill_split            := NULL; --nvl(cus.customer_bill_split, pa_interface_utils_pub.g_pa_miss_num);
  l_cust_rec.allow_inv_user_rate_type_flag  := NULL; --nvl(cus.allow_inv_user_rate_type_flag, pa_interface_utils_pub.g_pa_miss_char);
  l_cust_rec.inv_rate_date                  := NULL; --nvl(cus.inv_rate_date, pa_interface_utils_pub.g_pa_miss_date);
  l_cust_rec.inv_rate_type                  := NULL; --nvl(cus.inv_rate_type, pa_interface_utils_pub.g_pa_miss_char);
  l_cust_rec.inv_currency_code              := NULL; --nvl(cus.inv_currency_code, pa_interface_utils_pub.g_pa_miss_char);
  l_cust_rec.inv_exchange_rate              := NULL; --nvl(cus.inv_exchange_rate, pa_interface_utils_pub.g_pa_miss_num);
  l_cust_rec.bill_another_project_flag      := 'Y'; --nvl(cus.bill_another_project_flag, pa_interface_utils_pub.g_pa_miss_char);
  l_cust_rec.RECEIVER_TASK_ID               := 35078;
  v_ind  :=  v_ind  +  1;
  l_cust_tbl   (v_ind)  :=  l_cust_rec;
--CLASS CATEGORIES DATA (CLASS_CATEGORY_TBL_TYPE)
--  l_class_categories(1).class_category := 'Product'; --value from template
--  l_class_categories(1).class_code := 'Product 1';
--TASKS DATA
  --Set the number of tasks for every level (there are 4 levels)
  number_of_tasks1 := 1;
  number_of_tasks2 := 2;
  number_of_tasks3 := 0;
  number_of_tasks4 := 0;
-- This is just a set of looping structures to create the tasks and sub-tasks
-- If it is difficult to understand, then feel free to create them individually.
  a := 0;
  for level1 in 1..number_of_tasks1 loop
    a := a + 1;
    l_tasks_in_rec.pm_task_reference := level1 || '.' || '0';
    l_tasks_in_rec.task_name := 'Top Level ' || level1 || '.' || '0';
    l_tasks_in_rec.pm_parent_task_reference := '';
    l_tasks_in_rec.task_start_date := '01-JAN-2010';
    l_tasks_in_rec.task_completion_date := '31-JAN-2010';
    l_tasks_in_rec.actual_start_date := '01-JAN-2010';
    l_tasks_in_rec.actual_finish_date :='31-JAN-2010';
    l_tasks_in_rec.early_start_date := '01-JAN-2010';
    l_tasks_in_rec.early_finish_date :='31-JAN-2010';
    l_tasks_in_rec.late_start_date := '01-JAN-2010';
    l_tasks_in_rec.late_finish_date :='31-JAN-2010';
    l_tasks_in_rec.receive_project_invoice_flag := 'Y';
    l_tasks_in(a) := l_tasks_in_rec;
    parent_level1 := level1 || '.' || '0';
    for level2 in 1..number_of_tasks2 loop
      a := a + 1;
      l_tasks_in_rec.pm_task_reference := level1 || '.' || level2;
      l_tasks_in_rec.task_name := '2 Level ' || level1 || '.' || level2;
      l_tasks_in_rec.pm_parent_task_reference := parent_level1;
      l_tasks_in(a) := l_tasks_in_rec;
      parent_level2 := level1 || '.' || level2;
    end loop;
  end loop;
--INIT_CREATE_PROJECT
  pa_project_pub.init_project;
--CREATE_PROJECT
  pa_project_pub.create_project(
    l_api_version_number,
    p_commit            => l_commit,
    p_init_msg_list     => l_init_msg_list,
    p_msg_count         => l_msg_count,
    p_msg_data          => l_msg_data,
    p_return_status     => l_return_status,
    p_workflow_started  => l_workflow_started,
    p_pm_product_code   => l_pm_product_code,
    p_project_in        => l_project_in,
    p_project_out       => l_project_out,
    p_key_members       => l_key_members,
    p_class_categories  => l_class_categories,
    p_tasks_in          => l_tasks_in,
    p_tasks_out         => l_tasks_out,
    p_customers_in      => l_cust_tbl);
-- Check for errors
  if l_return_status != 'S'
  then
    raise API_ERROR;
  end if;
  dbms_output.put_line('New Project Id: ' || l_project_out.pa_project_id);
  dbms_output.put_line('New Project Number: ' || l_project_out.pa_project_number);
  Commit;
--HANDLE EXCEPTIONS
-- Get the error message that were returned if it did not complete sucessfully
  EXCEPTION
  When API_ERROR then
    if l_msg_count >= 1
    then
      for i in 1..l_msg_count loop
        pa_interface_utils_pub.get_messages(
        p_msg_data      => l_msg_data,
        p_encoded       => 'F',
        p_data          => l_data,
        p_msg_count     => l_msg_count,
        p_msg_index     => l_msg_count,    -- Added in 11i.PA.I
        p_msg_index_out => l_msg_index_out);
        dbms_output.put_line('error message: ' || l_data);
      end loop;
      rollback;
    end if;
  When OTHERS then
    if l_msg_count >= 1
      then
      for i in 1..l_msg_count loop
        pa_interface_utils_pub.get_messages(
        p_msg_count     => l_msg_count,
        p_encoded    => 'F',
        p_msg_data     => l_msg_data,
        p_data         => l_data,
        p_msg_index     => l_msg_count,    -- Added in 11i.PA.I
        p_msg_index_out => l_msg_index_out);
        dbms_output.put_line('error message: ' || l_data);
      end loop;
      rollback;
    end if;
END;
ERROR:=
initilaization
Assigning values
debug message -->: Start..
debug message -->: 1
debug message -->: 2
debug message -->: 3
debug message -->: 4
debug message -->: 5
debug message -->: 6
debug message -->: 7
debug message -->: 8
debug message -->: 9
debug message -->: 10
debug message -->: 11
debug message -->: 12
debug message -->: 13
debug message -->: 14
debug message -->: 15
debug message -->: 16
debug message -->: 17
debug message -->: 18
debug message -->: 19
debug message -->: 20
debug message -->: 21
debug message -->: 22
debug message -->: 23
debug message -->: 25
debug message -->: 26
debug message -->: 26-I
debug message -->: 26-II
debug message -->: 26-I
debug message -->: 26-II
debug message -->: 26-I
debug message -->: 26-II
debug message -->: 26-I
debug message -->: 26-II
debug message -->: 26-Vi
debug message -->: 26-I
debug message -->: 26-II
debug message -->: 26-VII
debug message -->: 27
debug message -->: 28
debug message -->: 30
error message: Project: 'TEST_VS_14052014'
The class category is invalid.

Answer 1

Please see if (PA_PROJECT_PUB.create_project Errors - The Class Category Is Invalid (Doc ID 1323904.1)) helps.
Thanks,
Hussein