Iterative assignments to varray elements

Question

I have a problem with assigning values to varray elements in a FOR LOOP, I get the message ORA 06533 SUBSCRIPT_BEYOND_COUNT error, says that I need to initialize the elements first, but this what I am trying to do with the FOR LOOP.
given the following:
CREATE OR REPLACE PACKAGE CATS_P_REPORTDATA AS.......
TYPE DateRecTyp IS RECORD (TRXNDATE DATE);
TYPE DateTabTyp IS TABLE OF DateRecTyp INDEX BY BINARY_INTEGER;
TYPE Calendar IS VARRAY(366) OF DATE;
CREATE OR REPLACE PROCEDURE CATS_SP_PARTAVAILABILITY
(dataset IN OUT CATS_P_REPORTDATA.InvCurTyp, begindate IN CHAR, enddate IN CHAR)
AS........
dteEndDate DATE;
dteBeginDate DATE;
numDays INT;
--tabDate CATS_P_REPORTDATA.DateTabTyp;
tabDate CATS_P_REPORTDATA.Calendar;
i BINARY_INTEGER;
dteEndDate := to_date(enddate);
dteBeginDate := to_date(begindate);
numDays := (dteEndDate - dteBeginDate) + 1;
tabDate := CATS_P_REPORTDATA.Calendar(); tried this prior to FOR LOOP, but no help
--tabDate := CATS_P_REPORTDATA.Calendar(dteBeginDate,dteBeginDate + 1, dteBeginDate + 2); this works but is useless since we never know the delta between enddate and begindate to know how many assignments to do.
FOR i IN 1..numDays LOOP
tabDate(i) := dteBeginDate + i; this is what I want to do but I keep getting the SUBSCRIPT_BEYOND_COUNT error, meaning the elements have not been initialized.......this is what am trying to do.
END LOOP;
Thanks in advance for any suggestions,
Scott

Answer 1

Because you did not **Initialize** the VArray, it is throwing ORA-6533 error.
Consider the following test, which is quite self explanatory.SQL> DECLARE
  2     TYPE VArray_String_Typ IS VARRAY(5) OF VARCHAR2(15);
  3     vListNames VArray_String_Typ := VArray_String_Typ('','','',''); -- only initializing 4 elements
  4  BEGIN
  5     vListNames(1) := 'SriDHAR';
  6     vListNames(2) := 'Scott';
  7     FOR i IN 1..4 -- Printing only 4 elements
  8     LOOP
  9        DBMS_OUTPUT.PUT_LINE(NVL(vListNames(i), 'NULL'));
10     END LOOP;
11  END;
12  /
SriDHAR
Scott
NULL
NULL
PL/SQL procedure successfully completed.
-- Let us try to assign to 5th element which should throw the error
SQL> DECLARE
  2     TYPE VArray_String_Typ IS VARRAY(5) OF VARCHAR2(15);
  3     vListNames VArray_String_Typ := VArray_String_Typ('','','',''); -- Still 4 elements here
  4  BEGIN
  5     vListNames(1) := 'SriDHAR';
  6     vListNames(2) := 'Scott';
  7     -- generate error ORA-6533 here
  8     vListNames(5) := '*****'; -- trying to assign into 5th element here, which does not exist
  9     FOR i IN 1..4
10     LOOP
11        DBMS_OUTPUT.PUT_LINE(NVL(vListNames(i), 'NULL'));
12     END LOOP;
13  END;
14  /
DECLARE
ERROR at line 1:
ORA-06533: Subscript beyond count
ORA-06512: at line 8
-- Let us go back in the program and initialize the 5th element
SQL> DECLARE
  2     TYPE VArray_String_Typ IS VARRAY(5) OF VARCHAR2(15);
  3     vListNames VArray_String_Typ := VArray_String_Typ('','','','', ''); -- initialize 5th element here
  4  BEGIN
  5     vListNames(1) := 'SriDHAR';
  6     vListNames(2) := 'Scott';
  7     -- error ORA-6533 should go away
  8     vListNames(5) := '*****';
  9     FOR i IN 1..5 -- include 5th element for printing here
10     LOOP
11        DBMS_OUTPUT.PUT_LINE(NVL(vListNames(i), 'NULL'));
12     END LOOP;
13  END;
14  /
SriDHAR
Scott
NULL
NULL
PL/SQL procedure successfully completed.Good luck,
Sri