Error report: ORA-06531: Reference to uninitialized collection

Question

I have Procedure like this
declare
CURSOR lcu_emp
  IS
    (SELECT *
    FROM
  emp);
ln_count PLS_INTEGER := 1;
  TYPE emp_TBL_TYPE
IS
  TABLE OF LCU_emp%ROWTYPE;
  LT_emp emp_TBL_TYPE;
begin
FOR Lr_EMP IN LCU_EMP
  LOOP
    ln_count             :=1;
Lr_EMP.EMP_NO:='1234';  -- updating the loop variable ... just for eg its 1234
--Transferring the loop variable to collection
lt_PREV_ASSIGN(ln_count):= Lr_PREV_ASSIGN;   -- THis line its errorring it as Error report: ORA-06531: Reference to uninitialized collection
  END LOOP;
FOR lr_emp IN lt_emp.FIRST..lt_emp.LAST
  LOOP
-- printing records when  LT_emp (lr_emp ).emp_no = 1234;
END LOOP;
end;Please help how to assign cursor record to collection...
Thanks
Vinoth.

Answer 1

The realtime procedure is below... i thought it will be easy for u guys to understand
PROCEDURE MAIN(
    P_ERRBUFF OUT VARCHAR2,
    P_RETCODE OUT NUMBER,
    P_BUSINESS_GROUP_ID IN NUMBER,
    P_EFFECTIVE_DATE    IN VARCHAR2,
    p_debug_flag        IN VARCHAR2 )
AS
  LN_ELEMENT_LINK_ID pay_element_links_f.element_link_id%TYPE;
  LN_INPUT_VALUE_ID1 pay_input_values_f.input_value_id%TYPE;
  LN_INPUT_VALUE_ID2 pay_input_values_f.input_value_id%TYPE;
  ld_effective_start_date pay_element_entries_f.effective_start_date%TYPE;
  LD_EFFECTIVE_END_DATE PAY_ELEMENT_ENTRIES_F.EFFECTIVE_END_DATE%TYPE;
  LN_ELEMENT_ENTRY_ID PAY_ELEMENT_ENTRIES_F.ELEMENT_ENTRY_ID%TYPE;
  ln_object_version_number pay_element_entries_f.object_version_number%TYPE;
  lc_create_warning BOOLEAN;
  CURSOR lcu_prev_assign
  IS
    (SELECT *
    FROM
      (SELECT P_PAAF.ASSIGNMENT_ID PREV_ASSIGNMENT_ID,
        C_PAAF.ASSIGNMENT_ID CURR_ASSIGNMENT_ID,
        PAP.ACCRUAL_PLAN_NAME ACCRUAL_PLAN_NAME,
        APPS.PER_UTILITY_FUNCTIONS.GET_NET_ACCRUAL ( P_PAAF.ASSIGNMENT_ID, P_PAAF.PAYROLL_ID , P_PAAF.BUSINESS_GROUP_ID, -1 , TRUNC(XPPOS.PREV_ACTUAL_TERMINATION_DATE) , PAP.ACCRUAL_PLAN_ID) NET_ACCRUAL,
        XPPOS.PERIOD_OF_SERVICE_ID,
        XPPOS.PERSON_ID,
        XPPOS.CURRENT_DATE_START ,
        XPPOS.PREVIOUS_DATE_START,
        XPPOS.CURR_ACTUAL_TERMINATION_DATE,
        XPPOS.PREV_ACTUAL_TERMINATION_DATE ,
        XPPOS.PREV_LSP_DATE PREV_LSP_DATE,
        P_PAAF.BUSINESS_GROUP_ID PREV_BG_ID ,
        c_paaf.business_group_id curr_bg_id ,
        'N' NEW_ASSIGNMENT_ELEIGIBLE ,
        NULL PTO_ELIGBLE_DATE,
        NULL status,
        NULL ERROR_MESSAGE,
        NULL PREV_ASS_ELEMENT_ENTRY_ID,
        null curr_ass_element_entry_id
      FROM
        (SELECT PERIOD_OF_SERVICE_ID,
          PERSON_ID,
          DATE_START CURRENT_DATE_START,
          LEAD(DATE_START,1,NULL) OVER(PARTITION BY PERSON_ID ORDER BY DMY_ORDER) PREVIOUS_DATE_START,
          ACTUAL_TERMINATION_DATE CURR_ACTUAL_TERMINATION_DATE,
          LEAD(ACTUAL_TERMINATION_DATE,1,NULL) OVER(PARTITION BY PERSON_ID ORDER BY DMY_ORDER) PREV_ACTUAL_TERMINATION_DATE,
          lead(last_standard_process_date ,1,NULL) over(PARTITION BY person_id ORDER BY DMY_ORDER) prev_lsp_date,
          row_number() over (PARTITION BY person_id ORDER BY date_start DESC) DMY_SLCT
        FROM
          (SELECT period_of_service_id ,
            PERSON_ID ,
            DATE_START,
            ACTUAL_TERMINATION_DATE,
            last_standard_process_date,
            COUNT(PERSON_ID) OVER (PARTITION BY PERSON_ID) "CNT",
            row_number() over (PARTITION BY person_id ORDER BY date_start DESC) "DMY_ORDER"
          FROM PER_PERIODS_OF_SERVICE PPOS
      WHERE CNT     >=2
      AND DMY_ORDER IN (1,2)
        ) XPPOS,
        PER_ALL_ASSIGNMENTS_F C_PAAF ,
        PER_ALL_ASSIGNMENTS_F P_PAAF,
        PAY_ELEMENT_ENTRIES_F P_PEEF,
        PAY_ACCRUAL_PLANS PAP,
        PER_PERSON_TYPE_USAGES_F P_PPTUF,
        PER_PERSON_TYPES P_PPT
      WHERE XPPOS.DMY_SLCT =1
      AND C_PAAF.PERSON_ID = XPPOS.PERSON_ID
      AND TRUNC(CURRENT_DATE_START) BETWEEN C_PAAF.EFFECTIVE_START_DATE AND C_PAAF.EFFECTIVE_END_DATE
      AND C_PAAF.PRIMARY_FLAG = 'Y'
      AND P_PAAF.PERSON_ID    = XPPOS.PERSON_ID
      AND TRUNC(prev_actual_termination_date) BETWEEN P_PAAF.EFFECTIVE_START_DATE AND P_PAAF.EFFECTIVE_END_DATE
      AND P_PAAF.PRIMARY_FLAG  = 'Y'
      AND P_PEEF.ASSIGNMENT_ID = P_PAAF.ASSIGNMENT_ID
      AND TRUNC(PREV_ACTUAL_TERMINATION_DATE) BETWEEN P_PEEF.EFFECTIVE_START_DATE AND P_PEEF.EFFECTIVE_END_DATE
      AND PAP.ACCRUAL_PLAN_ELEMENT_TYPE_ID = P_PEEF.ELEMENT_TYPE_ID
      AND C_PAAF.BUSINESS_GROUP_ID         = P_BUSINESS_GROUP_ID
      AND TRUNC(PREV_ACTUAL_TERMINATION_DATE) BETWEEN P_PPTUF.EFFECTIVE_START_DATE AND P_PPTUF.EFFECTIVE_END_DATE
      AND P_PPTUF.PERSON_ID                                                                                                                                                                       = P_PAAF.PERSON_ID
      AND P_PPTUF.PERSON_TYPE_ID                                                                                                                                                                  = P_PPT.PERSON_TYPE_ID
      AND P_PPT.SYSTEM_PERSON_TYPE                                                                                                                                                               IN ('EMP', 'EMP_APL')
      AND P_PAAF.EMPLOYMENT_CATEGORY                                                                                                                                                             IN ('LOCAL' , 'FR')
      AND C_PAAF.ASSIGNMENT_ID                                                                                                                                                                    = 83528
      AND APPS.PER_UTILITY_FUNCTIONS.GET_NET_ACCRUAL ( P_PAAF.ASSIGNMENT_ID, P_PAAF.PAYROLL_ID , P_PAAF.BUSINESS_GROUP_ID, -1 , TRUNC(XPPOS.PREV_ACTUAL_TERMINATION_DATE) , PAP.ACCRUAL_PLAN_ID) <> 0
      ORDER BY NEW_ASSIGNMENT_ELEIGIBLE
    CURSOR LCU_PTO_ELGIBLE(P_ASSIGNMENT_ID NUMBER , P_PLAN_NAME VARCHAR2 , P_EFF_DATE DATE)
    IS
      (SELECT MIN(peef.EFFECTIVE_START_DATE) pto_eligble_date
      FROM PAY_ELEMENT_ENTRIES_F PEEF,
        PAY_ELEMENT_TYPES_F PETF
      WHERE PEEF.ASSIGNMENT_ID = P_ASSIGNMENT_ID
      AND PETF.element_NAME    = P_PLAN_NAME
      AND TRUNC(p_eff_date) BETWEEN petf.effective_start_date AND petf.effective_end_date
    CURSOR LCU_ELEMENT_LINK(p_plan_name VARCHAR2,p_eff_date DATE)
    IS
      (SELECT PIVF1.INPUT_VALUE_ID INPUT_VALUE_ID1,
        PIVF2.INPUT_VALUE_ID INPUT_VALUE_ID2,
        PELF.ELEMENT_LINK_ID
      FROM PAY_ELEMENT_LINKS_F PELF ,
        PAY_ELEMENT_TYPES_F PETF,
        pay_input_values_f pivf1 ,
        pay_input_values_f pivf2
      WHERE PELF.ELEMENT_TYPE_ID = PETF.ELEMENT_TYPE_ID
      AND PIVF1.ELEMENT_TYPE_ID  = PETF.ELEMENT_TYPE_ID
      AND PIVF2.ELEMENT_TYPE_ID  = PETF.ELEMENT_TYPE_ID
      AND TRUNC(P_EFF_DATE) BETWEEN PELF.EFFECTIVE_START_DATE AND PELF.EFFECTIVE_END_DATE
      AND TRUNC(P_EFF_DATE) BETWEEN PETF.EFFECTIVE_START_DATE AND PETF.EFFECTIVE_END_DATE
      AND TRUNC(P_EFF_DATE) BETWEEN PIVF1.EFFECTIVE_START_DATE AND PIVF1.EFFECTIVE_END_DATE
      AND TRUNC(p_eff_date) BETWEEN pivf2.effective_start_date AND pivf2.effective_end_date
      AND ELEMENT_NAME = p_plan_name
        ||' RollOver Adj'
      AND PIVF2.NAME             = 'Hours'
      AND PIVF1.NAME             = 'Effective Date'
      AND petf.BUSINESS_GROUP_ID = P_BUSINESS_GROUP_ID
    ln_count PLS_INTEGER := 1;
  TYPE PREV_ASSIGN_TBL_TYPE
IS
  TABLE OF LCU_PREV_ASSIGN%ROWTYPE;
  LT_PREV_ASSIGN PREV_ASSIGN_TBL_TYPE;
  --LR_PREV_ASSIGN LCU_PREV_ASSIGN%ROWTYPE;
  --Lb_PREV_ASSIGN LCU_PREV_ASSIGN%ROWTYPE;
BEGIN
  FOR Lr_PREV_ASSIGN IN LCU_PREV_ASSIGN
  LOOP
    ln_count             :=1;
    LN_ELEMENT_LINK_ID   := NULL;
    LN_INPUT_VALUE_ID1   := NULL;
    LN_INPUT_VALUE_ID2   := NULL;
    FOR LRU_ELEMENT_LINK IN LCU_ELEMENT_LINK (Lr_PREV_ASSIGN.ACCRUAL_PLAN_NAME,LR_PREV_ASSIGN.PREV_LSP_DATE )
    LOOP
      LN_ELEMENT_LINK_ID :=LRU_ELEMENT_LINK.ELEMENT_LINK_ID;
      LN_INPUT_VALUE_ID1 := LRU_ELEMENT_LINK.input_value_id1;
      LN_INPUT_VALUE_ID2 := LRU_ELEMENT_LINK.INPUT_VALUE_ID2;
      BEGIN
        apps.pay_element_entry_api.create_element_entry ( P_EFFECTIVE_DATE => LR_PREV_ASSIGN.PREV_LSP_DATE, P_BUSINESS_GROUP_ID => LR_PREV_ASSIGN.PREV_BG_ID ,p_assignment_id => Lr_PREV_ASSIGN.prev_assignment_id ,p_element_link_id => ln_element_link_id ,p_entry_type => 'E'
        --,p_creator_type => 'F'
        --,p_cost_allocation_keyflex_id => cost_keyflex_id
        --,p_date_earned => l_week_ending_date
        ,p_input_value_id1 => LN_INPUT_VALUE_ID1 ,p_input_value_id2 => LN_INPUT_VALUE_ID2
        --,p_input_value_id3 => l_inp_value3_id
        --,p_input_value_id4 => l_inp_value4_id
        ,P_ENTRY_VALUE1 => LR_PREV_ASSIGN.PREV_ACTUAL_TERMINATION_DATE ,p_entry_value2 => (-1)* LR_PREV_ASSIGN.net_accrual
        --,p_entry_value3 => l_constant_all_deductions
        --,p_entry_value4 => l_constant_no
        ,p_effective_start_date => ld_effective_start_date ,p_effective_end_date => ld_effective_end_date ,p_element_entry_id => ln_element_entry_id ,p_object_version_number => ln_object_version_number ,P_CREATE_WARNING => LC_CREATE_WARNING );
        LR_PREV_ASSIGN.STATUS                    :='P';
        Lr_PREV_ASSIGN.prev_ass_element_entry_id := ln_element_entry_id;
      EXCEPTION
      WHEN OTHERS THEN
        LR_PREV_ASSIGN.STATUS        :='E';
        Lr_PREV_ASSIGN.error_message := SQLERRM;
      END;
    END LOOP;
    FOR LR_PTO_ELGIBLE IN LCU_PTO_ELGIBLE(LR_PREV_ASSIGN.CURR_ASSIGNMENT_ID ,LR_PREV_ASSIGN.ACCRUAL_PLAN_NAME , LR_PREV_ASSIGN.CURRENT_DATE_START )
    LOOP
      LR_PREV_ASSIGN.NEW_ASSIGNMENT_ELEIGIBLE := 'Y';
      LR_PREV_ASSIGN.pto_eligble_date         := LR_PTO_ELGIBLE.pto_eligble_date ;
    END LOOP;
    IF(LR_PREV_ASSIGN.STATUS = 'P')
    then
    BEGIN
        apps.pay_element_entry_api.create_element_entry (
        P_EFFECTIVE_DATE => LR_PREV_ASSIGN.pto_eligble_date ,
        P_BUSINESS_GROUP_ID => LR_PREV_ASSIGN.CURR_BG_ID ,
        P_ASSIGNMENT_ID => LR_PREV_ASSIGN.CURR_ASSIGNMENT_ID ,
        P_ELEMENT_LINK_ID => LN_ELEMENT_LINK_ID ,
        p_entry_type => 'E'
        --,p_creator_type => 'F'
        --,p_cost_allocation_keyflex_id => cost_keyflex_id
        --,p_date_earned => l_week_ending_date
        ,P_INPUT_VALUE_ID1 => LN_INPUT_VALUE_ID1
        ,p_input_value_id2 => LN_INPUT_VALUE_ID2
        --,p_input_value_id3 => l_inp_value3_id
        --,p_input_value_id4 => l_inp_value4_id
        ,P_ENTRY_VALUE1 => LR_PREV_ASSIGN.PTO_ELIGBLE_DATE ,
        p_entry_value2 =>  LR_PREV_ASSIGN.net_accrual
        --,p_entry_value3 => l_constant_all_deductions
        --,p_entry_value4 => l_constant_no
        ,P_EFFECTIVE_START_DATE => LD_EFFECTIVE_START_DATE ,
        P_EFFECTIVE_END_DATE => LD_EFFECTIVE_END_DATE ,
        P_ELEMENT_ENTRY_ID => LN_ELEMENT_ENTRY_ID ,
        P_OBJECT_VERSION_NUMBER => LN_OBJECT_VERSION_NUMBER ,
        P_CREATE_WARNING => LC_CREATE_WARNING );
        LR_PREV_ASSIGN.STATUS                    :='S';
        LR_PREV_ASSIGN.CURR_ASS_ELEMENT_ENTRY_ID := LN_ELEMENT_ENTRY_ID;
        commit;
      EXCEPTION
      WHEN OTHERS THEN
      rollback;
        LR_PREV_ASSIGN.STATUS        :='E';
        LR_PREV_ASSIGN.ERROR_MESSAGE := SQLERRM;
      END;
      END IF;
    lt_PREV_ASSIGN(ln_count):= Lr_PREV_ASSIGN;
ln_count:=ln_count+1;
  END LOOP;
  FOR lr_prev_assign IN lt_prev_assign.FIRST..lt_prev_assign.LAST
  LOOP
  IF(lt_prev_assign(lr_prev_assign).status = 'E')
  THEN
  FND_FILE.PUT_LINE(FND_FILE.LOG,lt_prev_assign(lr_prev_assign).error_message);
  end if;
    --print the error records here
  END LOOP;
END MAIN;