DECLARE

  TYPE NameList IS TABLE OF VARCHAR2(10);

  names NameList := NameList('John', 'Paul', 'Jorge');

  PROCEDURE print_names IS

  BEGIN

    DBMS_OUTPUT.PUT_LINE(names.COUNT || ' values:');

    FOR i IN names.FIRST .. names.LAST LOOP

      DBMS_OUTPUT.PUT_LINE(names(i));

    END LOOP;

    DBMS_OUTPUT.PUT_LINE('---');

  END;

BEGIN 

  print_names();

  names(3) := 'Ringo';

  print_names();

  names.extend(1);

  names(4) := 'Jorge';

  print_names();

  names := NameList('Chuck', 'Bruce');

  print_names();

END;

3 values:

John

Paul

Jorge

---

3 values:

John

Paul

Ringo

---

4 values:

John

Paul

Ringo

Jorge

---

2 values:

Chuck

Bruce

---