Bulk collect in pl/sql

Question

Hi there, need help, is it a right way of using bulk collect here?  As I could not get the correct result. 
The problem is the 'where clause' is only taking 'SEAEGO_CC_FAMILYMODEL_INFO_ENCRYPTION_TYPE' column name
to output but not for the rest of columns. The output given is only 3 records from  'SEAEGO_CC_FAMILYMODEL_INFO_ENCRYPTION_TYPE'. 
In fact, other column names have records existed.  Please advise.  Regards, BE.
FOR i in 1..l_flex_column_list.count LOOP
     dbms_output.put_line('SEAEGO_CC_FAMILYMODEL_INFO_'||l_flex_column_list(i).column_name);
        BEGIN                   
        SELECT evsvv.value_set_name, evsvv.internal_name, evsvv.display_name
            BULK COLLECT INTO l_flex_value_list  -- table collection
           FROM ego_value_set_values_v evsvv
            *WHERE evsvv.value_set_name= 'SEAEGO_CC_FAMILYMODEL_INFO_'||l_flex_column_list(i).column_name;*
     EXCEPTION
       WHEN NO_DATA_FOUND THEN
          l_flex_value_list:=NULL;
       WHEN OTHERS THEN
          dbms_output.put_line('test ');
     END;
     END LOOP;
      dbms_output.put_line('');
      BEGIN
        FOR i in 1..l_flex_value_list.count LOOP
        dbms_output.put_line(l_flex_value_list(i).value_set_name ||' '||
                       l_flex_value_list(i).internal_name||' '||
                       l_flex_value_list(i).display_name);
        END LOOP;
      END;
END;
*Output*
SEAEGO_CC_FAMILYMODEL_INFO_PRODUCT_TYPE
SEAEGO_CC_FAMILYMODEL_INFO_INTERNAL_PRODUCT_NAME
SEAEGO_CC_FAMILYMODEL_INFO_NUMBER_OF_HEADS
SEAEGO_CC_FAMILYMODEL_INFO_NUMBER_OF_DISCS
SEAEGO_CC_FAMILYMODEL_INFO_GENERATION
SEAEGO_CC_FAMILYMODEL_INFO_DESIGN_APPLICATION
SEAEGO_CC_FAMILYMODEL_INFO_FORM_FACTOR
SEAEGO_CC_FAMILYMODEL_INFO_INTERFACE
SEAEGO_CC_FAMILYMODEL_INFO_BASE_WARRANTY_MONTHS
SEAEGO_CC_FAMILYMODEL_INFO_PHYSICAL_SECTOR_SIZE
SEAEGO_CC_FAMILYMODEL_INFO_MODEL_HEIGHT
SEAEGO_CC_FAMILYMODEL_INFO_ENCRYPTION_TYPE
_incorrect result_
SEAEGO_CC_FAMILYMODEL_INFO_ENCRYPTION_TYPE NO ENCRYPTION No Encryption
SEAEGO_CC_FAMILYMODEL_INFO_ENCRYPTION_TYPE FDE BASE FDE Base
SEAEGO_CC_FAMILYMODEL_INFO_ENCRYPTION_TYPE FDE FIPS 140-2 FDE FIPS 140-2
Query Statement for other columns
SELECT evsvv.value_set_name, evsvv.internal_name, evsvv.display_name
            FROM ego_value_set_values_v evsvv
        WHERE evsvv.value_set_name  = 'SEAEGO_CC_FAMILYMODEL_INFO_MODEL_HEIGHT'
*Output*
SEAEGO_CC_FAMILYMODEL_INFO_MODEL_HEIGHT     5MM     0.196 IN/5MM
SEAEGO_CC_FAMILYMODEL_INFO_MODEL_HEIGHT     7MM     0.276 IN/7MM
SEAEGO_CC_FAMILYMODEL_INFO_MODEL_HEIGHT     8MM     0.315 IN/8MM
SEAEGO_CC_FAMILYMODEL_INFO_MODEL_HEIGHT     9.5MM     0.374 IN/9.5MM
SEAEGO_CC_FAMILYMODEL_INFO_MODEL_HEIGHT     10.5MM     0.431 IN/10.5MM

Answer 1

Hi there, the select statement below actually query record into 'l_flex_value_list' record variable by
looping in different values e.g. SEAEGO_CC_FAMILYMODEL_INFO_BASE_WARRANTY_MONTHS,
SEAEGO_CC_FAMILYMODEL_INFO_PHYSICAL_SECTOR_SIZE and SEAEGO_CC_FAMILYMODEL_INFO_ENCRYPTION_TYPE.
But, my problem is the 'l_flex_value_list' is only storing the result for SEAEGO_CC_FAMILYMODEL_INFO_ENCRYPTION_TYPE, overwriting
the values of SEAEGO_CC_FAMILYMODEL_INFO_BASE_WARRANTY_MONTHS and SEAEGO_CC_FAMILYMODEL_INFO_PHYSICAL_SECTOR_SIZE.
What is the logic should be in this case?
   FOR i in 1..l_flex_column_list.count LOOP
  --   dbms_output.put_line('SEAEGO_CC_FAMILYMODEL_INFO_'||l_flex_column_list(i).column_name);
    dbms_output.put_line(l_flex_column_list(i).column_name||' '||
                      l_flex_column_list(i).column_value);
        BEGIN                   
        SELECT evsvv.value_set_name, evsvv.internal_name, evsvv.display_name
        BULK COLLECT INTO l_flex_value_list
        FROM ego_value_set_values_v evsvv
        WHERE evsvv.value_set_name= 'SEAEGO_CC_FAMILYMODEL_INFO_'||l_flex_column_list(i).column_name;
      --  AND internal_name = l_flex_column_list(i).column_value;
     EXCEPTION
       WHEN NO_DATA_FOUND THEN
          l_flex_value_list:=NULL;
       WHEN OTHERS THEN
          dbms_output.put_line(' ');
     END;
     END LOOP;
------------------the PL/SQL -----------------------
Declare
l_query  VARCHAR2(2000);
l_where VARCHAR2(2000);
l_bind_var1      VARCHAR2(40);
l_bind_var2      VARCHAR2(40);
l_sql            NUMBER:=0;
l_column_name    VARCHAR2(100);
l_column_value   VARCHAR2(200);
p_item_id NUMBER :=NULL;--931104 ;
p_item_number       VARCHAR2(40):='9NH2D4-570';
p_stmodel  VARCHAR2(40):='ST901603FGD1E1-RK';
TYPE l_flex_column_rec IS RECORD
    column_name   varchar2(100),
    column_value  varchar2(100));
TYPE l_flex_column_tab IS TABLE OF l_flex_column_rec;
l_flex_column_list l_flex_column_tab;
TYPE l_flex_value_rec IS RECORD
( value_set_name   fnd_flex_value_sets.flex_value_set_name%type,
   internal_name    fnd_flex_values.flex_value%type,
   display_name     fnd_flex_values_tl.description%type);
TYPE l_flex_value_tab IS TABLE OF l_flex_value_rec;
l_flex_value_list l_flex_value_tab;
BEGIN
   IF p_stmodel is not null THEN
      IF p_item_number IS NULL AND p_item_id IS NULL THEN
       l_where  :='and st.stmodelnumber= :1 and sp.detailedproductname=''GENERIC''';
       l_bind_var1 := p_stmodel;
       l_sql := 1;
      ELSIF p_item_number IS NULL AND p_item_id IS NOT NULL THEN
       l_where  :='and st.stmodelnumber=:1 and sc.ccitemnumber = (select msi.segment1                       
                   from mtl_system_items msi                       
                   where msi.inventory_item_id = :2 and rownum=1)';
       l_bind_var1 := p_stmodel;
       l_bind_var2 := p_item_id;
       l_sql :=2;
      ELSE
       l_where  :='and st.stmodelnumber=:1 and sc.ccitemnumber = (select msi.segment1                      
                   from mtl_system_items msi                      
                   where msi.segment1=:2 and rownum=1)';
       l_bind_var1 := p_stmodel;
       l_bind_var2 := p_item_number;
       l_sql :=2;
      END IF; 
   ELSE
     IF p_item_id is null and p_item_number is not null THEN
            l_where := 'and sc.ccitemnumber = (select msi.segment1                      
                       from mtl_system_items msi                      
                       where msi.segment1=:1 and rownum=1)';
            l_bind_var1 :=  p_item_number;
            l_sql := 1;
        ELSIF p_item_id is NOT null and p_item_number is null THEN
            l_where := 'and sc.ccitemnumber = ( select msi.segment1                       
                        from mtl_system_items msi                       
                        where msi.inventory_item_id = :1 and rownum=1)';
             l_bind_var1 := p_item_id;
             l_sql := 1;
        ELSIF p_item_id is not null and p_item_number is not null THEN
            l_where :='and sc.ccitemnumber = (select msi.segment1                      
                       from mtl_system_items msi                      
                       where msi.inventory_item_id =:1                      
                       AND msi.segment1=:2 and rownum=1)';
            l_bind_var1 := p_item_id;
            l_bind_var2 := p_item_number;
            l_sql :=2;
        END IF;
    END IF;
l_query :='select decode(rn,1,''PRODUCT_TYPE'',2,''INTERNAL_PRODUCT_NAME'',3,''NUMBER_OF_HEADS'',4,''NUMBER_OF_DISCS'',5,''GENERATION'',6,''DESIGN_APPLICATION'',
        7,''FORM_FACTOR'',8,''INTERFACE'',9,''BASE_WARRANTY_MONTHS'',10,''PHYSICAL_SECTOR_SIZE'',11,''MODEL_HEIGHT'',''ENCRYPTION_TYPE'') as column_name,
        decode(rn,1,st.producttype,2,sp.internalproductname,3,sp.numberofheads,4,sp.numberofdiscs,5,sp.generation,6,sp.designapplication,7,st.formfactor,
        8,st.interface,9,st.warrantymonths,10,st.physical_sector_size,11,st.modelheight,st.encryption_type) as column_value
        FROM  seaeng_productmodel sp , seaeng_stmodel st, seaeng_ccitemnumber sc , (select rownum rn from dual connect by rownum <=12)
        WHERE sc.productmodelnumber = sp.productmodelnumber
        AND sp.stmodelnumber = st.stmodelnumber ';
  IF l_sql = 1 THEN
      EXECUTE IMMEDIATE  l_query ||l_where
                         BULK COLLECT INTO l_flex_column_list
                         USING l_bind_var1 ;
                 --        dbms_output.put_line(l_query||l_where);
    ELSIF
         l_sql =2 THEN
        EXECUTE IMMEDIATE l_query || l_where
                         BULK COLLECT INTO l_flex_column_list
                         using l_bind_var1,l_bind_var2;
              dbms_output.put_line(l_query||l_where);
    END IF;
   FOR i in 1..l_flex_column_list.count LOOP
  --   dbms_output.put_line('SEAEGO_CC_FAMILYMODEL_INFO_'||l_flex_column_list(i).column_name);
    dbms_output.put_line(l_flex_column_list(i).column_name||' '||
                      l_flex_column_list(i).column_value);
        BEGIN                   
        SELECT evsvv.value_set_name, evsvv.internal_name, evsvv.display_name
        BULK COLLECT INTO l_flex_value_list
        FROM ego_value_set_values_v evsvv
        WHERE evsvv.value_set_name= 'SEAEGO_CC_FAMILYMODEL_INFO_'||l_flex_column_list(i).column_name;
      --  AND internal_name = l_flex_column_list(i).column_value;
     EXCEPTION
       WHEN NO_DATA_FOUND THEN
          l_flex_value_list:=NULL;
       WHEN OTHERS THEN
          dbms_output.put_line(' ');
     END;
     END LOOP;
      dbms_output.put_line('');
      BEGIN
        FOR i in 1..l_flex_value_list.count LOOP
        dbms_output.put_line(l_flex_value_list(i).value_set_name ||' '||
                       l_flex_value_list(i).internal_name||' '||
                       l_flex_value_list(i).display_name);
        END LOOP;
      END;
END;
-------OUTPUT
SEAEGO_CC_FAMILYMODEL_INFO_ENCRYPTION_TYPE NO ENCRYPTION No Encryption
SEAEGO_CC_FAMILYMODEL_INFO_ENCRYPTION_TYPE FDE BASE FDE Base
SEAEGO_CC_FAMILYMODEL_INFO_ENCRYPTION_TYPE FDE FIPS 140-2 FDE FIPS 140-2