TYPE numberofdays_aa IS RECORD
        (tablename        IRF_PURGE_CNTRL_PRCS.purge_cntrl_table_nm%TYPE ,
         numberofdays     IRF_PURGE_CNTRL_PRCS.purged_cntrl_value_qty%TYPE);
    
     TYPE la_noofdays_aa   IS TABLE OF numberofdays_aa INDEX BY PLS_INTEGER;

PROCEDURE getnoofdays(g_PURGE_CNTRL_CD1 IN IRF_PURGE_CNTRL_PRCS.purge_cntrl_cd%TYPE,
                      p_tOuttablename     OUT la_noofdays_aa)
IS

    lv_Num_index         PLS_INTEGER;
    
BEGIN
   
       
       SELECT purge_cntrl_table_nm,purged_cntrl_value_qty 
       BULK COLLECT INTO lv_aa_noofdays
       FROM   irf_purge_cntrl_prcs
       WHERE  purge_cntrl_cd = g_PURGE_CNTRL_CD1
       AND    purge_cntrl_table_nm <> 'CMF_EDI_ERR_PURGE'; 
       
       lv_Num_index:=lv_aa_noofdays.COUNT;
     
        DBMS_OUTPUT.put_line(to_char(lv_Num_index));
        
       
        FOR I in lv_aa_noofdays.FIRST..lv_aa_noofdays.LAST
        LOOP
            DBMS_OUTPUT.put_line(to_char(lv_aa_noofdays(I).tablename) ||'-'||to_char(lv_aa_noofdays(I).numberofdays));   
        END LOOP;
          
END;                                                
      

p_tOuttblnm   la_noofdays_aa;



--***********SAMPLE TESTING TO GET INTO AN ARRAY****************************
        
            getnoofdays(g_PURGE_CNTRL_CD1, p_tOuttblnm);
         
          FOR nIndex IN 1..p_tOuttblnm.COUNT LOOP
            DBMS_OUTPUT.put_line(TO_CHAR(p_tOuttblnm(nIndex).tablename)||'-'||TO_CHAR(p_tOuttblnm(nIndex).numberofdays));
             
          END LOOP;
        --***********************************************************************

SCOTT@orcl> CREATE TABLE irf_purge_cntrl_prcs
  2    (purge_cntrl_table_nm	VARCHAR2(30),
  3  	purged_cntrl_value_qty	NUMBER,
  4  	purge_cntrl_cd		NUMBER)
  5  /

Table created.

SCOTT@orcl> INSERT ALL
  2  INTO irf_purge_cntrl_prcs VALUES ('table1', 10, 1)
  3  INTO irf_purge_cntrl_prcs VALUES ('table2', 20, 1)
  4  INTO irf_purge_cntrl_prcs VALUES ('CMF_EDI_ERR_PURGE', 30, 1)
  5  INTO irf_purge_cntrl_prcs VALUES ('table4', 40, 4)
  6  SELECT * FROM DUAL
  7  /

4 rows created.

SCOTT@orcl> CREATE OR REPLACE PACKAGE your_package
  2  AS
  3    TYPE numberofdays_aa IS RECORD
  4  	 (tablename	   IRF_PURGE_CNTRL_PRCS.purge_cntrl_table_nm%TYPE ,
  5  	  numberofdays	   IRF_PURGE_CNTRL_PRCS.purged_cntrl_value_qty%TYPE);
  6    TYPE la_noofdays_aa   IS TABLE OF numberofdays_aa INDEX BY PLS_INTEGER;
  7    PROCEDURE getnoofdays
  8  	 (g_PURGE_CNTRL_CD1 IN	IRF_PURGE_CNTRL_PRCS.purge_cntrl_cd%TYPE,
  9  	  p_tOuttablename   OUT la_noofdays_aa);
 10    PROCEDURE different_procedure
 11  	 (g_PURGE_CNTRL_CD1 IN	IRF_PURGE_CNTRL_PRCS.purge_cntrl_cd%TYPE);
 12  END your_package;
 13  /

Package created.

SCOTT@orcl> SHOW ERRORS
No errors.
SCOTT@orcl> CREATE OR REPLACE PACKAGE BODY your_package
  2  AS
  3    PROCEDURE getnoofdays
  4  	 (g_PURGE_CNTRL_CD1 IN	IRF_PURGE_CNTRL_PRCS.purge_cntrl_cd%TYPE,
  5  	  p_tOuttablename   OUT la_noofdays_aa)
  6    IS
  7  	 lv_aa_noofdays 	la_noofdays_aa;
  8  	 lv_Num_index		PLS_INTEGER;
  9    BEGIN
 10  	 SELECT purge_cntrl_table_nm,purged_cntrl_value_qty
 11  	 BULK COLLECT INTO lv_aa_noofdays
 12  	 FROM	irf_purge_cntrl_prcs
 13  	 WHERE	purge_cntrl_cd = g_PURGE_CNTRL_CD1
 14  	 AND	purge_cntrl_table_nm <> 'CMF_EDI_ERR_PURGE';
 15  
 16  	 lv_Num_index:=lv_aa_noofdays.COUNT;
 17  
 18  	 DBMS_OUTPUT.put_line(to_char(lv_Num_index));
 19  
 20  	 FOR I in 1..lv_aa_noofdays.COUNT
 21  	 LOOP
 22  	   DBMS_OUTPUT.put_line(to_char(lv_aa_noofdays(I).tablename) ||'-'||to_char(lv_aa_noofdays(I).numberofdays));
 23  	 END LOOP;
 24  
 25  	 p_tOuttablename := lv_aa_noofdays;
 26    END getnoofdays;
 27  
 28    PROCEDURE different_procedure
 29  	 (g_PURGE_CNTRL_CD1 IN	IRF_PURGE_CNTRL_PRCS.purge_cntrl_cd%TYPE)
 30    IS
 31  	 p_tOuttblnm   la_noofdays_aa;
 32    BEGIN
 33  	 getnoofdays(g_PURGE_CNTRL_CD1, p_tOuttblnm);
 34  
 35  	 FOR nIndex IN 1..p_tOuttblnm.COUNT LOOP
 36  	   DBMS_OUTPUT.put_line(TO_CHAR(p_tOuttblnm(nIndex).tablename)||'-'||TO_CHAR(p_tOuttblnm(nIndex).numberofdays));
 37  	  END LOOP;
 38    END different_procedure;
 39  END your_package;
 40  /

Package body created.

SCOTT@orcl> SHOW ERRORS
No errors.
SCOTT@orcl> EXEC your_package.different_procedure (1)
2
table1-10
table2-20
table1-10
table2-20

PL/SQL procedure successfully completed.

SCOTT@orcl> EXEC your_package.different_procedure (5)
0

PL/SQL procedure successfully completed.

PROCEDURE getnoofdays(g_PURGE_CNTRL_CD1 IN IRF_PURGE_CNTRL_PRCS.purge_cntrl_cd%TYPE,
                      p_tOuttablename     OUT la_noofdays_aa)
IS
    lv_aa_noofdays      la_noofdays_aa;   
    lv_Num_index         PLS_INTEGER;


BEGIN
   
       
       SELECT purge_cntrl_table_nm,purged_cntrl_value_qty 
       BULK COLLECT INTO lv_aa_noofdays
       FROM   irf_purge_cntrl_prcs
       WHERE  purge_cntrl_cd = g_PURGE_CNTRL_CD1
       AND    purge_cntrl_table_nm <> 'CMF_EDI_ERR_PURGE'; 
       
       lv_Num_index:=lv_aa_noofdays.COUNT;
      
        FOR I in 1..lv_Num_index 
        LOOP
            --DBMS_OUTPUT.put_line(TO_CHAR(lv_aa_noofdays(I).tablename)||'-'||TO_CHAR(lv_aa_noofdays(I).numberofdays));
            p_tOuttablename(I).tablename:=lv_aa_noofdays(I).tablename;
            p_tOuttablename(I).numberofdays:=lv_aa_noofdays(I).numberofdays;
        END LOOP;
END getnoofdays; 

  PROCEDURE getnoofdays
    (g_PURGE_CNTRL_CD1 IN  IRF_PURGE_CNTRL_PRCS.purge_cntrl_cd%TYPE,
     p_tOuttablename   OUT la_noofdays_aa)
  IS
  BEGIN
    SELECT purge_cntrl_table_nm,purged_cntrl_value_qty 
    BULK COLLECT INTO p_tOuttablename
    FROM   irf_purge_cntrl_prcs
    WHERE  purge_cntrl_cd = g_PURGE_CNTRL_CD1
    AND    purge_cntrl_table_nm <> 'CMF_EDI_ERR_PURGE'; 
  END getnoofdays;