$page_title = $titlebar_text; $header_bar_text = $titlebar_text; ///////////////////////////////////// // get header include('rlib_header.php'); // print << Oracle UTL_COLL Version 11.1  
General Information
Purpose Enables PL/SQL programs to use collection locators to check whether the input collection is a locator or not
Source {ORACLE_HOME}/rdbms/admin/utlcoll.plb
First Availability 8.1.5
Dependencies dbms_utl_coll_lib
 
IS_LOCATOR

Determines whether a collection item is actually a locator or not
utl_coll.is_locator (coln IN STANDARD) RETURNS BOOLEAN;
CREATE OR REPLACE TYPE CourseList AS TABLE OF VARCHAR2(64);
/

CREATE OR REPLACE TYPE MajorReq AS OBJECT (
major VARCHAR2(30), cl CourseList);
/

CREATE TABLE uw_major OF MajorReq
NESTED TABLE cl STORE AS nt_CourseList_t;

CREATE TABLE uw_majors OF MajorReq
NESTED TABLE cl STORE AS nt_CourseList_tab RETURN LOCATOR;

set describe depth all linenum on indent on

desc uw_major

desc uw_majors

INSERT INTO uw_major
VALUES
('Math', CourseList('Algebra','Geometry', 'Calculus'));

INSERT INTO uw_majors
VALUES
('Science', CourseList('Astronomy', 'Biology', 'Chemistry'));

SELECT cl FROM uw_major;

SELECT cl FROM uw_majors;

COMMIT;

CREATE OR REPLACE PROCEDURE is_coll IS
 mlist1 CourseList;
 mlist2 CourseList;
BEGIN
  SELECT cl
  INTO mlist1
  FROM uw_major
  WHERE major = 'Math';

  SELECT cl
  INTO mlist2
  FROM uw_majors
  WHERE major = 'Science';

  IF (utl_coll.is_locator(mlist1)) THEN
    dbms_output.put_line('uwmajor returns a locator');
  ELSE
    dbms_output.put_line('uwmajor does not return a locator');
  END IF;

  IF (utl_coll.is_locator(mlist2)) THEN
    dbms_output.put_line('uwmajors returns a locator');
  ELSE
    dbms_output.put_line('uwmajors does not return a locator');
  END IF;
END is_coll;
/

set serveroutput on

exec is_coll
 
Related Topics
Collections
Nested Tables
  EOM; ///////////////////////////////////// // get footer include('rlib_footer.php'); ?>