PLSQL - Criar colecao e percorrer lista

gistfile1.txt

DECLARE
	TYPE DEF_REGISTRO IS RECORD (CODIGO INT, DESCRICAO VARCHAR2(100));
	TYPE DEF_TABELA IS TABLE OF DEF_REGISTRO;
	TABELA DEF_TABELA := DEF_TABELA();
BEGIN
	TABELA.EXTEND(1);
	TABELA(TABELA.LAST).CODIGO := 1;
	TABELA(TABELA.LAST).DESCRICAO := 'UM';

	TABELA.EXTEND(1);
	TABELA(TABELA.LAST).CODIGO := 2;
	TABELA(TABELA.LAST).DESCRICAO := 'DOIS';

	TABELA.EXTEND(1);
	TABELA(TABELA.LAST).CODIGO := 3;
	TABELA(TABELA.LAST).DESCRICAO := 'TRES';

	FOR i IN tabela.first..tabela.last LOOP
		DBMS_OUTPUT.PUT_LINE(tabela(i).codigo || ' - ' || tabela(i).descricao);
	END LOOP;
END;