PACKAGE my_pkg IS
    TYPE my_rec IS RECORD
    (
      myID PRODUCT.ID%TYPE,      
      myImage PRODUCT.ProductImage%TYPE
    );
   TYPE my_tbl IS TABLE OF my_rec INDEX BY BINARY_INTEGER;   
   PROCEDURE Do_Query (p_my_tbl IN OUT my_tbl);
END my_pkg;

PACKAGE BODY my_pkg IS
  PROCEDURE Do_Query (p_my_tbl IN OUT my_tbl) IS
    CURSOR my_cur IS
      SELECT p.ID, p.ProductImage
      FROM PRODUCT p;
      idx NUMBER := 1;
  BEGIN
    FOR rec IN my_cur LOOP
      p_my_tbl(idx) := rec;
      idx := idx + 1;
    END LOOP;
  END Do_Query;

END my_pkg;