extend.sql

来自「介绍Oracle PL SQL编程」· SQL 代码 · 共 67 行

/*
 * extend.sql
 * Chapter 6, Oracle10g PL/SQL Programming
 * by Ron Hardman, Michael McLaughlin and Scott Urman
 *
 * This script demonstrates how to use the Oracle10g Collection API
 * EXTEND method against an element.
 */

SET ECHO ON
SET SERVEROUTPUT ON SIZE 1000000

DECLARE

  -- Define a nested table type of INTEGER.
  TYPE number_table IS TABLE OF INTEGER;

  -- Define a variable of the nested table type.
  number_list NUMBER_TABLE := number_table(1,2);

  -- Define a local procedure to check and print elements.
  PROCEDURE print_list
    (list_in NUMBER_TABLE) IS

  BEGIN

    -- Loop through the possible index values of the list.
    FOR i IN list_in.FIRST..list_in.LAST LOOP

      -- Check if the subscripted element is there.
      IF list_in.EXISTS(i) THEN

        -- Print the element.
        DBMS_OUTPUT.PUT_LINE('List ['||list_in(i)||']');

      END IF;

    END LOOP;

  END print_list;

BEGIN

  -- Print a title.
  DBMS_OUTPUT.PUT_LINE('Nested table before extension');
  DBMS_OUTPUT.PUT_LINE('-----------------------------');

  -- Print the list.
  print_list(number_list);

  -- Allocate two null elements.
  number_list.EXTEND(2);

  -- Allocate three elements and copy element two.
  number_list.EXTEND(3,2);

  -- Print a title.
  DBMS_OUTPUT.PUT_LINE(CHR(10)||
                       'Nested table after extension');
  DBMS_OUTPUT.PUT_LINE('----------------------------');

  -- Print the list.
  print_list(number_list);  

END;
/