--
-- Teste dos Métodos do PL/SQL Table
--
-- Fernando Boaglio - 24/09/98
--
--
DECLARE
-- Declaração
TYPE dept_table_type IS TABLE OF NUMBER(5);
--    INDEX BY BINARY_INTEGER;  compatibilidade com o PL/SQL 2 (Oracle7)
dept_table dept_table_type:=dept_table_type();  -- já inicializa com NULL
BEGIN
dbms_output.enable;
-- Inicialização
dbms_output.put_line('Variável tipo Table PL/SQL 8:');
dbms_output.put_line('*****************************');
dbms_output.new_line;
dbms_output.put_line('Alocando 10 espaços nulos...');
-- EXTEND
dept_table.extend(10);
-- Atribuição
dbms_output.put_line('Inicializando as variáveis...');
FOR i IN 1..10 loop
IF MOD(i,2)=1 THEN dept_table(i):=i*10;
END IF;
END loop;
-- Mostra o conteúdo
FOR i IN 1..16 loop
IF dept_table.EXISTS(i)
THEN dbms_output.put_line(' Posição '||to_char(i)||' declarada contendo '||nvl(to_char(dept_table(i)),'NULL') );
ELSE dbms_output.put_line(' Posição '||to_char(i)||' não declarada');
END IF;
END loop;
-- COUNT
dbms_output.put_line('A variável Table tem '||to_char(dept_table.COUNT)||' elementos.');
-- FIRST
dbms_output.put_line('A posição do primeiro é :'||to_char(dept_table.FIRST)||'.');
-- LAST
dbms_output.put_line('A posição do último é :'||to_char(dept_table.LAST)||'.');
-- PRIOR
dbms_output.put_line('A posição que precede a 3 é :'||to_char(dept_table.prior(3))||'.');
-- NEXT
dbms_output.put_line('A posição depois do 3 é :'||to_char(dept_table.NEXT(3))||'.');
-- EXTEND
dbms_output.put_line('Alocando mais 5 espaços como cópia da posição 3');
dept_table.extend(5,3);
FOR i IN 1..16 loop
IF dept_table.EXISTS(i)
THEN dbms_output.put_line(' Posição '||to_char(i)||' declarada contendo '||nvl(to_char(dept_table(i)),'NULL') );
ELSE dbms_output.put_line(' Posição '||to_char(i)||' não declarada');
END IF;
END loop;
dbms_output.put_line('A variável Table tem '||to_char(dept_table.COUNT)||' elementos.');
-- TRIM
dbms_output.put_line('Removendo o último campo...');
dept_table.TRIM;
FOR i IN 1..16 loop
IF dept_table.EXISTS(i)
THEN dbms_output.put_line(' Posição '||to_char(i)||' declarada contendo '||nvl(to_char(dept_table(i)),'NULL') );
ELSE dbms_output.put_line(' Posição '||to_char(i)||' não declarada');
END IF;
END loop;
-- DELETE
dbms_output.put_line('Removendo o primeiro campo...');
dept_table.DELETE(1);
FOR i IN 1..16 loop
IF dept_table.EXISTS(i)
THEN dbms_output.put_line(' Posição '||to_char(i)||' declarada contendo '||nvl(to_char(dept_table(i)),'NULL') );
ELSE dbms_output.put_line(' Posição '||to_char(i)||' não declarada');
END IF;
END loop;
END;
/

<a href="http://otn.oracle.com">http://otn.oracle.com </a>