Ora-06531 reference to uninitialized collection --- Please help

Question

Hello,
I am getting this "ora-06531 reference to uninitialized collection" while executing the below procedure.
=======================
PROCEDURE iud_account_col
( pv_account_version IN account_version_t
AS
LC_USR_ID CONSTANT VARCHAR2(30) := pkg_util.get_usr_id ;
LC_TMSTMP CONSTANT TIMESTAMP /*WITH TIME ZONE*/ := pkg_util.get_tmstmp ;
lv_level VARCHAR2(100);
lv_am_key_id number;
lv_acct_cusip VARCHAR2(12);
LC_AM_KEY_ID number;
LC_AM_VER_NUM number;
BEGIN
DECLARE
lv_am account_version_t;
lv_amv account_maint_t;
lv_amvv account_maint_version_t;
cursor c_acct_cusip ( cv_am_key_id varchar2) is
select acct_cusip
from account_maintenance
where am_key_id = lv_amv.am_key_id;
BEGIN
lv_am := pv_account_version;
lv_level := 'ACCOUNT_MAINT' ;
lv_amv := pv_account_version.account_maint;
LC_AM_KEY_ID := lv_amv.am_key_id;
FOR acct_cusip_info in c_acct_cusip (lv_am_key_id)
LOOP
lv_acct_cusip := acct_cusip_info.acct_cusip;
END LOOP;
IF lv_amv.action = 'I'
THEN
INSERT
INTO
account_maintenance
( am_key_id
, acct_cusip
, am_orig_cre_tmstp
, am_orig_usr_id
, delete_ind
, add_usr_id
, add_tmstmp
, lock_level_num
VALUES
( lv_amv.am_key_id
, lv_amv.acct_cusip
, LC_TMSTMP
, LC_USR_ID
, lv_amv.delete_ind
, LC_USR_ID
, LC_TMSTMP
, lv_amv.lock_level_num
END IF;
lv_amvv := pv_account_version.account_maint.account_maint_version;
lv_level := 'ACCOUNT_MAINT_VERSION';
LC_AM_VER_NUM := lv_amvv.am_ver_num;
IF lv_amvv.action = 'I'
THEN
-- Insert issue maint version
INSERT
INTO
ACCOUNT_MAINTENANCE_VERSION
( AM_KEY_ID
, AM_VER_NUM
, ACCT_CUSIP
, LEGAL_ENTITY
, APPR_STATUS_REF_ID
, INACTIVE_IND
, ADD_USR_ID
, ADD_TMSTMP
, UPD_USR_ID
, UPD_TMSTMP
, LOCK_LEVEL_NUM
VALUES
( lv_amv.am_key_id
, lv_amvv.am_ver_num
, lv_acct_cusip
, lv_amvv.legal_entity
, lv_amvv.appr_status_ref_id
, 'N'
, LC_USR_ID
, LC_TMSTMP
, LC_USR_ID
, LC_TMSTMP
, lv_amvv.lock_level_num
END IF; --- end for account maint version.
FOR j IN lv_amv.account_maint_comment_col.FIRST
.. lv_amv.account_maint_comment_col.LAST
LOOP
DECLARE
lv_amvc account_maint_comment_t;
BEGIN
lv_amvc := lv_amv.account_maint_comment_col(j);
lv_level := 'ACCOUNT_MAINT_COMMENT';
IF lv_amvc.action = 'I'
THEN
--- Insert into account maintenance comment table
INSERT
INTO
ACCOUNT_MAINTENANCE_COMMENT
( AM_KEY_ID
, AM_VER_NUM
, COMMENT_NUM
, COMMENT_TMSTP
, COMMENT_TXT
, INACTIVE_IND
, ADD_USR_ID
, ADD_TMSTMP
, LOCK_LEVEL_NUM
VALUES
( LC_AM_KEY_ID
, LC_AM_VER_NUM
, lv_amvc.comment_num
, LC_TMSTMP
, lv_amvc.comment_txt
, 'N'
, LC_USR_ID
, LC_TMSTMP
, lv_amvc.lock_level_num
END IF;
END;
END LOOP; --- end loop for account maint comments
END;
COMMIT WORK;
RETURN;
EXCEPTION
WHEN OTHERS THEN
ROLLBACK WORK;
RAISE;
END iud_account_col;
====================
The UDT's are below:
CREATE OR REPLACE TYPE ACCOUNT_VERSION_T
AS OBJECT
     PORTFOLIO     PORTFOLIO_T
,     ACCOUNT_MAINT          ACCOUNT_MAINT_T
CREATE OR REPLACE TYPE ACCOUNT_MAINT_T
AS OBJECT
( AM_KEY_ID number
, ACCT_CUSIP     varchar2(12)
, DELETE_IND varchar2(1)
, ADD_USR_ID varchar2(20)
, ADD_TMSTMP timestamp
, UPD_USR_ID varchar2(20)
, UPD_TMSTMP timestamp
, LOCK_LEVEL_NUM number
, ACTION VARCHAR2(1)
, ACCOUNT_MAINT_VERSION ACCOUNT_MAINT_VERSION_T
, ACCOUNT_MAINT_COMMENT_COL ACCOUNT_MAINT_COMMENT_COL_T
CREATE OR REPLACE TYPE ACCOUNT_MAINT_VERSION_T
AS OBJECT
( AM_KEY_ID number
, AM_VER_NUM number
, ACCT_CUSIP     varchar2(12)
, LEGAL_ENTITY varchar2(100)
, APPR_STATUS_REF_ID number
, FUND_INACTIVE_TMSTMP timestamp
, ADD_USR_ID varchar2(20)
, ADD_TMSTMP timestamp
, UPD_USR_ID varchar2(20)
, UPD_TMSTMP timestamp
, LOCK_LEVEL_NUM number
, ACTION VARCHAR2(1)
CREATE OR REPLACE TYPE ACCOUNT_MAINT_COMMENT_T
AS OBJECT
( AM_KEY_ID number
, AM_VER_NUM number
, COMMENT_NUM     number
, COMMENT_TXT varchar2(400)
, ADD_USR_ID varchar2(20)
, ADD_TMSTMP timestamp
, UPD_USR_ID varchar2(20)
, UPD_TMSTMP timestamp
, LOCK_LEVEL_NUM number
, ACTION VARCHAR2(1)
=====================================================
This is how I am trying to execute:
Declare
pv_account_version account_version_t := account_version_t(null
, account_maint_t ( 10041
, '11111111'
, 'N'
,'abc'
, NULL
, NULL
, NULL
, 1
,NULL-- 'I'
,ACCOUNT_MAINT_VERSION_T(10031
, 10001
, NULL
,'Legal entity'
,22
,NULL
,'abc'
,NULL
, NULL
,NULL
, 1
,NULL --'I'
,ACCOUNT_MAINT_COMMENT_COL_T(
10031
,10001
,1001
,'My first comment'
,'abc'
, NULL
, NULL
, NULL
, 1
, 'I')
Begin
pkg_cdm_process_v2.iud_account(pv_account_version);
END;
What am I doing wrong here....
Please help.
Thanks.

Answer 1

Now if we only knew where the error was flagged.
PROCEDURE Iud_account_col
     (pv_account_version  IN ACCOUNT_VERSION_T)
AS
  lc_usr_id      CONSTANT VARCHAR2(30) := pkg_util.get_usr_id;
  lc_tmstmp      CONSTANT TIMESTAMP /*WITH TIME ZONE*/ := pkg_util.get_tmstmp;
  lv_level       VARCHAR2(100);
  lv_am_key_id   NUMBER;
  lv_acct_cusip  VARCHAR2(12);
  lc_am_key_id   NUMBER;
  lc_am_ver_num  NUMBER;
BEGIN
  DECLARE
    lv_am    ACCOUNT_VERSION_T;
     lv_amv   ACCOUNT_MAINT_T;
     lv_amvv  ACCOUNT_MAINT_VERSION_T;
     CURSOR c_acct_cusip(cv_am_key_id VARCHAR2) IS
       SELECT acct_cusip
       FROM   account_maintenance
       WHERE  am_key_id = lv_amv.am_key_id;
  BEGIN
    lv_am := pv_account_version;
    lv_level := 'ACCOUNT_MAINT';
    lv_amv := pv_account_version.account_maint;
    lc_am_key_id := lv_amv.am_key_id;
    FOR acct_cusip_info IN c_acct_cusip(lv_am_key_id) LOOP
      lv_acct_cusip := acct_cusip_info.acct_cusip;
    END LOOP;
    IF lv_amv.ACTION = 'I' THEN
      INSERT INTO account_maintenance
                 (am_key_id,
                  acct_cusip,
                  am_orig_cre_tmstp,
                  am_orig_usr_id,
                  delete_ind,
                  add_usr_id,
                  add_tmstmp,
                  lock_level_num)
      VALUES     (lv_amv.am_key_id,
                  lv_amv.acct_cusip,
                  lc_tmstmp,
                  lc_usr_id,
                  lv_amv.delete_ind,
                  lc_usr_id,
                  lc_tmstmp,
                  lv_amv.lock_level_num);
    END IF;
    lv_amvv := pv_account_version.account_maint.account_maint_version;
    lv_level := 'ACCOUNT_MAINT_VERSION';
    lc_am_ver_num := lv_amvv.am_ver_num;
    IF lv_amvv.ACTION = 'I' THEN
      -- Insert issue maint version
      INSERT INTO account_maintenance_version
                 (am_key_id,
                  am_ver_num,
                  acct_cusip,
                  legal_entity,
                  appr_status_ref_id,
                  inactive_ind,
                  add_usr_id,
                  add_tmstmp,
                  upd_usr_id,
                  upd_tmstmp,
                  lock_level_num)
      VALUES     (lv_amv.am_key_id,
                  lv_amvv.am_ver_num,
                  lv_acct_cusip,
                  lv_amvv.legal_entity,
                  lv_amvv.appr_status_ref_id,
                  'N',
                  lc_usr_id,
                  lc_tmstmp,
                  lc_usr_id,
                  lc_tmstmp,
                  lv_amvv.lock_level_num);
    END IF; --- end for account maint version.
    FOR j IN lv_amv.account_maint_comment_col.FIRST.. lv_amv.account_maint_comment_col.LAST LOOP
      DECLARE
        lv_amvc  ACCOUNT_MAINT_COMMENT_T;
      BEGIN
        lv_amvc := lv_amv.Account_maint_comment_col(j);
        lv_level := 'ACCOUNT_MAINT_COMMENT';
        IF lv_amvc.ACTION = 'I' THEN
          --- Insert into account maintenance comment table
          INSERT INTO account_maintenance_comment
                     (am_key_id,
                      am_ver_num,
                      comment_num,
                      comment_tmstp,
                      comment_txt,
                      inactive_ind,
                      add_usr_id,
                      add_tmstmp,
                      lock_level_num)
          VALUES     (lc_am_key_id,
                      lc_am_ver_num,
                      lv_amvc.comment_num,
                      lc_tmstmp,
                      lv_amvc.comment_txt,
                      'N',
                      lc_usr_id,
                      lc_tmstmp,
                      lv_amvc.lock_level_num);
        END IF;
      END;
    END LOOP; --- end loop for account maint comments
  END;
  COMMIT WORK;
  RETURN;
EXCEPTION
  WHEN OTHERS THEN
    ROLLBACK WORK;
    RAISE;
END iud_account_col;