create or replace procedure qqq (p_id in integer) as 

TYPE t_rec IS RECORD ( id integer, ....);

TYPE t IS TABLE OF t_rec INDEX BY BINARY_INTEGER;

abc t;

BEGIN

   SELECT ....
   BULK COLLECT INTO abc 
   FROM table 
   WHERE table.id = p_id; 

   FOR idx IN abc.FIRST..abc.LAST LOOP
      dbms_output('id :'||abc(idx).id||.......);
   END LOOP; 

END;

CREATE TYPE t_rec AS ( id integer, ....);

CREATE OR REPLACE FUNCTION qqq(p_id IN INTEGER  ) RETURNS void AS
$BODY$
DECLARE 
   abc t_rec ARRAY[ 5 ]; 
BEGIN
...
END;
$BODY$
  LANGUAGE 'plpgsql' VOLATILE;

 abc t_rec ARRAY[ 5 ];