Help needed in Collections

Question

Hi Experts,
I need your help in solving this .
I am getting compilation errors as:
Warning: Package Body created with compilation errors.
SQL> show errors;
Errors for PACKAGE BODY TABLE_EXAMPLE:
LINE/COL ERROR
18/1     PL/SQL: Statement ignored
18/20    PLS-00306: wrong number or types of arguments in call to '='I will try to explain this as simple as possible .
The data in emp is like this:
     EMPNO ENAME      JOB              SAL
   7782 CLARK      MANAGER         2450
   7839 KING       PRESIDENT       5000
   7934 MILLER     CLERK           1300I need to pass parameters and values as table type as follows:
declare
       v_tab TABLE_EXAMPLE.tablet:=TABLE_EXAMPLE.tablet();
    begin
      v_tab.extend;
     v_tab(1).parameter:='ENAME';
     v_tab(1).value:= 'PETER';
     v_tab(1).parameter:='JOB';
     v_tab(1).value:= 'CEO';
      TABLE_EXAMPLE.P1(v_tab);
   end;
   After the package is run the data should look like this :
EMPNO ENAME      JOB              SAL
  7782 PETER      CEO             2450
  7839 PETER      CEO             5000
  7934 PETER      CEO             1300I have tried hard to create the code but i will highlight where i am stuck :
create or replace package table_example as
type tname is record(parameter emp%rowtype,value emp%rowtype);
type tablet is table of tname;
type emp_table is table of emp%rowtype;
procedure p1(arg in table_example.tablet);
end;
Package created
create or replace package body table_example as
procedure p1(arg in table_example.tablet)as
l_emp_tbl emp_table:=emp_table() ;
cursor c is select * from emp;
k number;
m number;
begin
k:=1;
for i in c loop
l_emp_tbl(k).ename:=i.ename;
l_emp_tbl(k).empno:=i.empno;
l_emp_tbl(k).deptno:=i.deptno;
l_emp_tbl(k).sal:=i.sal;
--------------------i am stuck here : how to assign the values?---------------------------
m:=1;
for  j in 1..arg.last loop
if arg(m).parameter= l_emp_tbl(j) then
l_emp_tbl(j):=arg(m).value ;
end if;
end loop;
____________stuck here ___________________
end loop;
exception
when others then
dbms_output.put_line('other errors');
end;
end  table_example;
Warning: Package Body created with compilation errors.
SQL> show errors;
Errors for PACKAGE BODY TABLE_EXAMPLE:
LINE/COL ERROR
18/1     PL/SQL: Statement ignored
18/20    PLS-00306: wrong number or types of arguments in call to '='Please help.Thanks

Answer 1

Hi Tubby,
Version is 10g release 2
SQL> select * from v$version;
BANNER
Oracle Database 10g Enterprise Edition Release 10.2.0.3.0 - 64bi
PL/SQL Release 10.2.0.3.0 - Production
CORE    10.2.0.3.0      Production
TNS for Linux: Version 10.2.0.3.0 - Production
NLSRTL Version 10.2.0.3.0 - ProductionPlease see the real code and AREAS marked as COMMENTS
PROCEDURE items_exist (
      p_source_organization   VARCHAR2,
      p_dest_organization     VARCHAR2,
      p_assembly_item         VARCHAR2
------Parameter needs to be added here as table type having paramter and value--------------------------------------------------------------comments
   AS
      l_item_table          ego_item_pub.item_tbl_type;
      x_item_table          ego_item_pub.item_tbl_type;
      x_inventory_item_id   mtl_system_items_b.inventory_item_id%TYPE;
      x_organization_id     mtl_system_items_b.organization_id%TYPE;
      x_return_status       VARCHAR2 (1);
      x_msg_count           NUMBER (10);
      x_msg_data            VARCHAR2 (1000);
      x_message_list        error_handler.error_tbl_type;
      p_assy_item_id        NUMBER;
      p_dest_org_id         NUMBER;
      p_source_org_id       NUMBER;
  l_err_msg                   VARCHAR2 (240);
      l_error_code                NUMBER;
      CURSOR items_exist
      IS
         SELECT DISTINCT msi.*
                    FROM cux_bom_export_temp a, mtl_system_items_b msi
                   WHERE a.component_item_id = msi.inventory_item_id
                     AND msi.organization_id = a.organization_id
                     AND a.organization_id = p_source_org_id
                     AND a.component_item_id NOT IN (
                                         SELECT inventory_item_id
                                           FROM mtl_system_items_b
                                          WHERE organization_id =
                                                                 p_dest_org_id);
   BEGIN
      FOR i IN items_exist
      LOOP
         --FIRST Item definition
         l_item_table (1).transaction_type := 'CREATE';
         -- Replace this with 'UPDATE' for update transaction.
         l_item_table (1).organization_code := p_dest_organization;
         l_item_table (1).long_description := 'Create test item';
         l_item_table (1).inventory_item_id := i.inventory_item_id;
                 l_item_table (1).summary_flag := i.summary_flag;
         l_item_table (1).enabled_flag := i.enabled_flag;
         l_item_table (1).start_date_active := i.start_date_active;
         l_item_table (1).end_date_active := i.end_date_active;
         l_item_table (1).organization_id := p_dest_org_id;
         l_item_table (1).item_catalog_group_id := i.item_catalog_group_id;
         l_item_table (1).catalog_status_flag := i.catalog_status_flag;
         l_item_table (1).lifecycle_id := i.lifecycle_id;
       *----------400 attributes to follow cutting short--------------------------------------------------------------------------------------------------------------------------------------------------comments
Here i need to look from the input parameter if anyone attribute matches that  from l_item_table.If it matches then apply the value from input paramter into the value of l_item_table----Cments
*Example say enabled_flag in  l_item_table has value 'Y' BUT INPUT PARAMTER IS AS 'N' then 'N' should be passed to enabled_flag  and not 'Y'-------------------------------------------------comments
                ego_item_pub.process_items (p_api_version        => 1.0,
                                     p_init_msg_list      => fnd_api.g_true,
                                     p_commit             => fnd_api.g_true,
                                     p_item_tbl           => l_item_table,
                                     x_item_tbl           => x_item_table,
                                     x_return_status      => x_return_status,
                                     x_msg_count          => x_msg_count
END LOOP;
   EXCEPTION
      WHEN OTHERS
      THEN
l_error_code:=sqlcode;
l_err_msg:=sqlerrm;
  INSERT INTO xxaai_copy_bom_errors
              VALUES ('Items_Exist', p_assembly_item, NULL,
                      p_source_organization, p_dest_organization, l_error_code,
                     l_err_msg);
   END;