How to use a loop for a object

Question

Hi, All
I have a procedure that needs a collection to pass in. The pass_in collection has multiple records with multiple fields, so I guess I need a loop for each record.
How to assign each record of multiple fields to each corresponding local variables?
Thanks In advance
T_Object is a table object
T_ProfileInfo is a collection
procedure P_Updateprofile(UserId in number, NewProfileInfo in T_ProfileInfo) as
V_B_ID number;
V_A_ID number;
V_Profile      T_ProfileInfo;     
begin
     V_Profile := NewProfileInfo;
     --use the loop for each records
FORALL i IN V_Profile.FIRST..V_Profile.LAST
-- assign each value to the local variables
-- I got error here. ideally I want to assign each record to the local variables
     select B_ID, A_ID
     into V_B_ID, V_A_ID
     from table(V_Profile(i));
     -- insert the record into the table
     INSERT INTO PROFILE
     VALUES (UserId, V_B_ID, V_A_ID);
     commit;
end;

Answer 1

You don't say which version of the database you are using. Oracle extended the collections functionality in 9.2....
Cheers, APC
SQL> CREATE OR REPLACE PACKAGE t1_utl AS
  2      TYPE rt_t1 IS TABLE OF t1%ROWTYPE;
  3      FUNCTION gen_t1 (p1 IN NUMBER) RETURN rt_t1;
  4      PROCEDURE pop_t1 (t1rows IN rt_t1);
  5  END t1_utl;
  6  /
Package created.
SQL> CREATE OR REPLACE PACKAGE BODY t1_utl AS
  2      FUNCTION gen_t1 (p1 IN NUMBER) RETURN rt_t1
  3      IS 
  4          CURSOR cur (pn NUMBER) IS
  5              SELECT a12.NEXTVAL, col1, col2, rownum AS rn, substr(col3,30), sysdate
  6              FROM t2
  7              WHERE rownum <= pn;
  8          return_value rt_t1;
  9      BEGIN
10          OPEN cur(p1);
11          LOOP
12              FETCH cur BULK COLLECT INTO return_value LIMIT 100;
13              EXIT WHEN cur%NOTFOUND;
14          END LOOP;
15          RETURN return_value;
16      END gen_t1;
17      PROCEDURE pop_t1 (t1rows IN rt_t1) IS
18      BEGIN
19          FORALL indx IN t1rows.FIRST .. t1rows.LAST
20              INSERT INTO t1
21                VALUES t1rows (indx);
22      END pop_t1;
23  END t1_utl;
24  /
Package body created.
SQL> SELECT * FROM t1
  2  /
no rows selected
SQL> DECLARE
  2      x t1_utl.rt_t1;
  3  BEGIN
  4      x := t1_utl.gen_t1(2);
  5      t1_utl.pop_t1(x);
  6  END;
  7  /
PL/SQL procedure successfully completed.
SQL> SELECT * FROM t1
  2  /
      COL1       COL2       COL3       COL4 COLA
COLD
        56     165765      87979          1
11-AUG-04
        57       3128    8217220          2
11-AUG-04
SQL>