How to initialize this collection?

Question

Hello:
Is it correct?
In a package I have defined
TYPE REG_SITUACION_TRIB IS RECORD (
SITR VARCHAR2(50),
ESTADO_SITUACION Varchar2(1)
TYPE TABLA_SITUACION_TRIB IS TABLE OF REG_SITUACION_TRIB INDEX BY BINARY_INTEGER;
g_tabla_situacion_trib TABLA_SITUACION_TRIB;
And in the package body, inside a function
v_cont_sit:=0;
FOR v_cursor IN c_cursor( parameter1 )
LOOP
     v_cont_sit:= v_cont_sit + 1;
     g_TABLA_SITUACION_TRIB( v_cont_sit ).SITR := V_cursor.SITR;
     g_tabla_situacion_trib( v_cont_sit ).ESTADO_SITUACION:='S';
END LOOP;
Am I properly initializing the collection g_tabla_situacion_trib?
Do I need an EXTEND method?
If cursor returns no results, is g_tabla_situacion_trib variable initialized to NULL?
Thanks

Answer 1

If cursor returns no results, is g_tabla_situacion_trib variable initialized to NULL?Contrary to previous replies, No. It is an empty collection, not the same. See below.
Also, if you going to do this:
v_cont_sit:=0;
FOR v_cursor IN c_cursor( parameter1 )
LOOP
v_cont_sit:= v_cont_sit + 1;
g_TABLA_SITUACION_TRIB( v_cont_sit ).SITR := V_cursor.SITR;
g_tabla_situacion_trib( v_cont_sit ).ESTADO_SITUACION:='S';
END LOOP;Why not just bulk collect into a collection with a type of cursor%rowtype?
using the limit clause if necessary (but [being aware of SQL%NOTFOUND|http://www.oracle.com/technology/oramag/oracle/08-mar/o28plsql.html])
Connected to:
Oracle Database 11g Enterprise Edition Release 11.1.0.6.0 - 64bit Production
With the Partitioning, OLAP, Data Mining and Real Application Testing options
SQL> CREATE OR REPLACE PROCEDURE p3
  2  AS
  3    CURSOR c1
  4    IS
  5      SELECT SYSDATE dt
  6      FROM   DUAL;
  7    --
  8    TYPE t1 IS TABLE OF c1%ROWTYPE INDEX BY PLS_INTEGER;
  9    --
10    l1 t1;
11    --
12  BEGIN
13     --
14     IF l1 IS NULL
15     THEN
16         DBMS_OUTPUT.PUT_LINE('Is Null');
17     ELSE
18         DBMS_OUTPUT.PUT_LINE('Is Not Null');
19     END IF;
20     DBMS_OUTPUT.PUT_LINE('Empty collection: '||l1.COUNT);
21     --
22     OPEN c1;
23     FETCH c1 BULK COLLECT INTO l1;
24     CLOSE c1;
25     DBMS_OUTPUT.PUT_LINE(l1.COUNT);
26     --
27  END;
28  /
Procedure created.
SQL> set serveroutput on
SQL> exec p3;
Is Not Null
Empty collection: 0
1
PL/SQL procedure successfully completed.
SQL>