create or replace TYPE VR_TEXT IS TABLE OF VARCHAR2(100) ;

  CREATE OR REPLACE PACKAGE test_pkg as
    PROCEDURE P_try(
                              CUR_WARNING OUT SYS_REFCURSOR
                            );
    END test_pkg;

    cREATE OR REPLACE PACKAGE BODY test_pkg AS
            PROCEDURE P_try(
                              CUR_WARNING OUT SYS_REFCURSOR
                            )
            AS VR_WARNING VR_TEXT;
            BEGIN
              VR_WARNING:= VR_TEXT(10);
              VR_WARNING(VR_WARNING.count+1):= 'war1';
              VR_WARNING(VR_WARNING.count+1):= 'war2';
              VR_WARNING(VR_WARNING.count+1):= 'war3';

              OPEN CUR_WARNING FOR SELECT column_value as warninig FROM TABLE(CAST(VR_WARNING AS VR_TEXT));
            END P_TRY;
    END test_pkg;

ORA-06533: Subscript beyond count
 *Cause:  An in-limit subscript was greater than the count of a varray
          or too large for a nested table.
 *Action: Check the program logic and explicitly extend if necessary.

SQL> create or replace TYPE VR_TEXT IS TABLE OF VARCHAR2(100) ;
  2  /

Type created.

SQL>   CREATE OR REPLACE PACKAGE test_pkg as
  2      PROCEDURE P_try(
  3                                CUR_WARNING OUT SYS_REFCURSOR
  4                              );
  5      END test_pkg;
  6  /

Package created.

SQL>     cREATE OR REPLACE PACKAGE BODY test_pkg AS
  2              PROCEDURE P_try(
  3                                CUR_WARNING OUT SYS_REFCURSOR
  4                              )
  5              AS VR_WARNING VR_TEXT;
  6              BEGIN
  7                VR_WARNING:= VR_TEXT(10);
  8  dbms_output.put_line('>>>>>>>>>>>>>>> count is '||VR_WARNING.count||
  9                       ', first is '||VR_WARNING.first||', last is '||VR_WARNING.last||
 10                       ', value is '||VR_WARNING(1));
 11                VR_WARNING(VR_WARNING.count+1):= 'war1';
 12                VR_WARNING(VR_WARNING.count+1):= 'war2';
 13                VR_WARNING(VR_WARNING.count+1):= 'war3';
 14
 15                OPEN CUR_WARNING FOR SELECT column_value as warninig FROM TABLE(CAST(VR_WARNING AS VR_TEXT));
 16              END P_TRY;
 17      END test_pkg;
 18  /

Package body created.

SQL> set serveroutput on
SQL> var c refcursor
SQL> exec test_pkg.p_try(:c)
>>>>>>>>>>>>>>> count is 1, first is 1, last is 1, value is 10
BEGIN test_pkg.p_try(:c); END;

*
ERROR at line 1:
ORA-06533: Subscript beyond count
ORA-06512: at "MICHEL.TEST_PKG", line 11
ORA-06512: at line 1

VR_WARNING.EXTEND(3) 

VR_WARNING(VR_WARNING.count):= 'war1'; vr_warning.extend ();
VR_WARNING(VR_WARNING.count):= 'war2'; vr_warning.extend ();
VR_WARNING(VR_WARNING.count):= 'war3';

SQL>     cREATE OR REPLACE PACKAGE BODY test_pkg AS
  2              PROCEDURE P_try(
  3                                CUR_WARNING OUT SYS_REFCURSOR
  4                              )
  5              AS VR_WARNING VR_TEXT;
  6              BEGIN
  7                VR_WARNING:= VR_TEXT();
  8  VR_WARNING.EXTEND(3);
  9  dbms_output.put_line('>>>>>>>>>>>>>>> count is '||VR_WARNING.count||
 10                       ', first is '||VR_WARNING.first||', last is '||VR_WARNING.last);
 11  for i in VR_WARNING.first..VR_WARNING.last
 12  loop
 13    if VR_WARNING.exists(i) then
 14      dbms_output.put_line('VR_WARNING('||i||') exists and value is "'||VR_WARNING(i)||'"');
 15    else
 16      dbms_output.put_line('VR_WARNING('||i||') does not exist');
 17    end if;
 18  end loop;
 19  /*
 20                VR_WARNING(VR_WARNING.count+1):= 'war1';
 21                VR_WARNING(VR_WARNING.count+1):= 'war2';
 22                VR_WARNING(VR_WARNING.count+1):= 'war3';
 23
 24                OPEN CUR_WARNING FOR SELECT column_value as warninig FROM TABLE(CAST(VR_WARNING AS VR_TEXT));
 25  */
 26              END P_TRY;
 27      END test_pkg;
 28  /

Package body created.

SQL> exec test_pkg.p_try(:c)
>>>>>>>>>>>>>>> count is 3, first is 1, last is 3
VR_WARNING(1) exists and value is ""
VR_WARNING(2) exists and value is ""
VR_WARNING(3) exists and value is ""

PL/SQL procedure successfully completed.

SQL>     cREATE OR REPLACE PACKAGE BODY test_pkg AS
  2              PROCEDURE P_try(
  3                                CUR_WARNING OUT SYS_REFCURSOR
  4                              )
  5              AS VR_WARNING VR_TEXT;
  6              BEGIN
  7                VR_WARNING:= VR_TEXT();
  8  VR_WARNING.EXTEND(3);
  9  VR_WARNING.DELETE(1,3);
 10  dbms_output.put_line('>>>>>>>>>>>>>>> count is '||VR_WARNING.count||
 11                       ', first is '||VR_WARNING.first||', last is '||VR_WARNING.last);
 12                VR_WARNING(VR_WARNING.count+1):= 'war1';
 13                VR_WARNING(VR_WARNING.count+1):= 'war2';
 14                VR_WARNING(VR_WARNING.count+1):= 'war3';
 15  dbms_output.new_line;
 16  dbms_output.put_line('>>>>>>>>>>>>>>> count is '||VR_WARNING.count||
 17                       ', first is '||VR_WARNING.first||', last is '||VR_WARNING.last);
 18  for i in VR_WARNING.first..VR_WARNING.last
 19  loop
 20    if VR_WARNING.exists(i) then
 21      dbms_output.put_line('VR_WARNING('||i||') exists and value is "'||VR_WARNING(i)||'"');
 22    else
 23      dbms_output.put_line('VR_WARNING('||i||') does not exist');
 24    end if;
 25  end loop;
 26  /*
 27                OPEN CUR_WARNING FOR SELECT column_value as warninig FROM TABLE(CAST(VR_WARNING AS VR_TEXT));
 28  */
 29              END P_TRY;
 30      END test_pkg;
 31  /

Package body created.

SQL> exec test_pkg.p_try(:c)
>>>>>>>>>>>>>>> count is 0, first is , last is
>>>>>>>>>>>>>>> count is 3, first is 1, last is 3
VR_WARNING(1) exists and value is "war1"
VR_WARNING(2) exists and value is "war2"
VR_WARNING(3) exists and value is "war3"

PL/SQL procedure successfully completed.

          IF NOT MISCILANIOUS.F_CHEK_xyz(TO_NUMBER(ARRAY_INPARAMS(1)))  THEN 
            VR_WARNING.EXTEND(); VR_WARNING(VR_WARNING.LAST):= 'war1'; 
          END IF;

OPEN CUR_WARNING FOR SELECT column_value as warning FROM TABLE(CAST(VR_WARNING AS VR_TEXT));