How to use collection in my code

Question

PROCEDURE irp_status_check_list(P_YEAR IN VARCHAR2,P_SEASON IN VARCHAR2)  AS
g_count NUMBER;
BEGIN
       FOR CUR_GID IN (SELECT GENERATION_ID
                       FROM VRESS_GEN_DDLB_VW
                       WHERE SEASON_YEAR=P_YEAR AND SEASON_CODE=P_SEASON)
           LOOP
               SELECT COUNT(1)
               INTO g_count
               FROM dual
               WHERE EXISTS
                     (SELECT p.generation_id
                      FROM pvress_plan_irp_list p,pvress_tran_irp_list t
                      WHERE  p.generation_id=t.generation_id
                      AND   p.generation_id = cur_gid.generation_id);
                 IF G_COUNT=0
                 THEN
                     dbms_output.put_line(CUR_GID.generation_id||' NOT ARRANGEMENT FIX  ');
                 ELSE
                      SELECT COUNT(1)
                      INTO g_count
                      FROM dual
                      WHERE  EXISTS
                              (SELECT p.generation_id
                               FROM pvress_plan_irp_list p,pvress_tran_irp_list t,
                                    pvress_vaboss_judgement j
                               WHERE  p.generation_id=t.generation_id
                               AND  t.generation_id=j.generation_id
                               AND   p.generation_id = cur_gid.generation_id);
                  IF G_COUNT=0
                  THEN
                      dbms_output.put_line(CUR_GID.generation_id ||'  NOT VABOSS FIX  ');
                  ELSE
                      SELECT COUNT(1)
                      INTO g_count
                      FROM dual
                      WHERE EXISTS
                             (SELECT p.generation_id
                              FROM pvress_plan_irp_list p,pvress_tran_irp_list t
                              WHERE  p.generation_id=t.generation_id
                              AND p.release_no=t.release_no
                              AND p.generation_id=cur_gid.generation_id);
                  IF G_COUNT=0
                  THEN
                      dbms_output.put_line( CUR_GID.generation_id ||'  NOT RELEASE NOTE  ');
                    END IF;
                 END IF;
             END IF;
         END LOOP;
     END irp_status_check_list;
END vress_irp_check_list_pkg;Edited by: newbie on Nov 4, 2011 12:34 AM

Answer 1

Once you have done the BULK COLLECT you can CLOSE the cursor right now.
After that if there is any data in the collection, then you can LOOP through it
Something like this :
PROCEDURE irp_status_check_list(
          P_YEAR   IN VARCHAR2,
          P_SEASON IN VARCHAR2)
AS
     g_count NUMBER;
     CURSOR cur_sme_tbl
     IS
          SELECT
               GENERATION_ID
          FROM
               VRESS_GEN_DDLB_VW
          WHERE
               SEASON_YEAR   =P_YEAR
          AND SEASON_CODE=P_SEASON;
TYPE t_sme_col
IS
     TABLE OF cur_sme_tbl%ROWTYPE INDEX BY BINARY_INTEGER;
     l_sme_col t_sme_col;
BEGIN
     OPEN cur_sme_tbl;
     FETCH cur_sme_tbl BULK COLLECT INTO l_sme_col;
     CLOSE cur_sme_tbl;
     IF l_sme_col.COUNT >0 THEN
          FOR i            IN 1..l_sme_col.COUNT
          LOOP
               SELECT
                    COUNT(1)
               INTO
                    g_count
               FROM
                    pvress_plan_irp_list p,
                    pvress_tran_irp_list t
               WHERE
                    p.generation_id   =t.generation_id
               AND p.release_no   =t.release_no
               AND p.generation_id=l_sme_col(i).generation_id;
               IF G_COUNT         =0 THEN
                    dbms_output.put_line(l_sme_col(i).generation_id||' NOT ARRANGEMENT FIX  ');
               ELSE
                    SELECT
                         COUNT(1)
                    INTO
                         g_count
                    FROM
                         pvress_plan_irp_list p,
                         pvress_tran_irp_list t,
                         pvress_vaboss_judgement j
                    WHERE
                         p.generation_id    =t.generation_id
                    AND t.generation_id =j.generation_id
                    AND p.generation_id = l_sme_col(i).generation_id);
                    IF G_COUNT          =0 THEN
                         dbms_output.put_line(l_sme_col(i).generation_id ||'  NOT VABOSS FIX  ');
                    ELSE
                         SELECT
                              COUNT(1)
                         INTO
                              g_count
                         FROM
                              pvress_plan_irp_list p,
                              pvress_tran_irp_list t
                         WHERE
                              p.generation_id   =t.generation_id
                         AND p.release_no   =t.release_no
                         AND p.generation_id=l_sme_col(i).generation_id);
                         IF G_COUNT         =0 THEN
                              dbms_output.put_line( l_sme_col(i).generation_id ||'  NOT RELEASE NOTE  ');
                         END IF;
                    END IF;
               END IF;
          END LOOP;
     END IF;
END;