How do i loop through a pl/sql collection based on a condition.

Question

hi, can any one help me or provide me sample code where  i have to loop through a collection  based on condition . just like where clause in sql. your help is highly appreciated....
{code}
create table MODEL1
  model_id  NUMBER ,
  model_seq NUMBER,
  p_ind     VARCHAR2(1)
insert into model1 (MODEL_ID, MODEL_SEQ, P_IND)
values (4, 103, 'U');
insert into model1 (MODEL_ID, MODEL_SEQ, P_IND)
values (3, 102, 'P');
insert into model1 (MODEL_ID, MODEL_SEQ, P_IND)
values (2, 101, 'U');
insert into model1 (MODEL_ID, MODEL_SEQ, P_IND)
values (1, 100, 'P');
MODEL PROCEDURE......
procedure (  param1,param2)        ( assume this procedure is being called from other procedure and collection has been populated already)
TYPE  l_tab is table of  MODEL1%rowtype;
begin
loop through l_tab records where  ltab.model_id=param1  and  p_ind =p
Join based on if else condition.
if   param2 is not null then
   l_tab.model_seq=param2 and ltab.p_ind='P'
if param2 is null then
         l_tab.p_ind='P'          etc...........
   {code}

Answer 1

Hi,
Try something like this:
DECLARE
TYPE L_TAB IS  TABLE OF MODEL1%rowtype;
TAB L_TAB;
param1 number := 1;
param2 number := 999;
BEGIN
select
  model_id
  ,model_seq
  ,p_ind
bulk collect into TAB
from
  MODEL1
DBMS_OUTPUT.PUT_LINE('PARAM1: ' || PARAM1);
DBMS_OUTPUT.PUT_LINE('PARAM2: ' || PARAM2);
DBMS_OUTPUT.PUT_LINE('     MODEL_ID, MODEL_SEQ, P_IND' );
FOR X IN TAB.FIRST .. TAB.LAST
LOOP
DBMS_OUTPUT.PUT_LINE('OLD: ' || TAB(X).MODEL_ID || '         ' || TAB(X).MODEL_SEQ || '        ' || TAB(X).P_IND );
    IF TAB(X).model_id = param1 AND TAB(X).p_ind = 'P' THEN
      IF param2       IS NOT NULL THEN
        TAB(X).model_seq := param2;
--        TAB(X).p_ind := 'P';     -- THIS IS NOT NEEDED SINCE THE CONDITION STATE L_TAB(X).P_IND = 'P' ALREADY
NULL;
      END IF;
      IF param2     IS NULL THEN
--          TAB(X).p_ind  := 'P'; -- THIS IS NOT NEEDED SINCE THE CONDITION STATE L_TAB(X).P_IND = 'P' ALREADY
NULL;
      END IF;
    END IF;
DBMS_OUTPUT.PUT_LINE('NEW: ' || TAB(X).MODEL_ID || '         ' || TAB(X).MODEL_SEQ || '        ' || TAB(X).P_IND );
END LOOP;
END;
PARAM1: 1
PARAM2: 999
     MODEL_ID, MODEL_SEQ, P_IND
OLD: 4         103        U
NEW: 4         103        U
OLD: 3         102        P
NEW: 3         102        P
OLD: 2         101        U
NEW: 2         101        U
OLD: 1         100        P
NEW: 1         999        P
Regards,
Peter