REF operator : REF function « Large Objects « Oracle PL/SQL Tutorial

1. Oracle PL/SQL Tutorial
2. Large Objects
3. REF function

SQL>
SQL>
SQL>
SQL> CREATE OR REPLACE TYPE address AS OBJECT
  2              (line1 VARCHAR2(20),
  3               line2 VARCHAR2(20),
  4               city VARCHAR2(20),
  5               state_code VARCHAR2(2),
  6               zip VARCHAR2(13),
  7    MEMBER FUNCTION get_address RETURN VARCHAR2,
  8    MEMBER PROCEDURE set_address
  9              (addressLine1 VARCHAR2,
 10               addressLine2 VARCHAR2,
 11               address_city VARCHAR2,
 12               address_state VARCHAR2,
 13               address_zip VARCHAR2)
 14  );
 15  /

Type created.

SQL> CREATE OR REPLACE TYPE BODY address AS
  2    MEMBER FUNCTION get_address RETURN VARCHAR2
  3    IS
  4    BEGIN
  5      RETURN (SELF.line1||' '||SELF.line2||' '||SELF.city||', '|| SELF.state_code||' '||SELF.zip);
  6    END get_address;
  7    MEMBER PROCEDURE set_address (addressLine1 VARCHAR2,
  8                  addressLine2 VARCHAR2,
  9                  address_city VARCHAR2,
 10                  address_state VARCHAR2,
 11                  address_zip VARCHAR2)
 12    IS
 13    BEGIN
 14      line1 :=addressLine1;
 15      line2 :=addressLine2;
 16      city :=address_city;
 17      state_code :=address_state;
 18      zip :=address_zip;
 19    END set_address;
 20  END;
 21  /

Type body created.

SQL>
SQL> CREATE TABLE address_master OF address;

Table created.

SQL>
SQL> INSERT INTO address_master VALUES (address('19 J','Reading Rd','Vancouver','NJ','00000'));

1 row created.

SQL>
SQL> select * from address_master;

LINE1                LINE2                CITY                 ST
-------------------- -------------------- -------------------- --
ZIP
-------------
19 J                 Reading Rd           Vancouver            NJ
00000


1 row selected.

SQL>
SQL> DECLARE
  2    addressValue_ref REF address;
  3  BEGIN
  4    SELECT REF(a) INTO addressValue_ref FROM address_master a WHERE a.city ='Vancouver';
  5  END;
  6  /

PL/SQL procedure successfully completed.

SQL>
SQL>
SQL> DECLARE
  2    addressValue_ref REF address;
  3    v_zip VARCHAR2(30);
  4  BEGIN
  5    SELECT REF(a), a.zip INTO addressValue_ref,v_zip FROM address_master a WHERE a.city ='Vancouver';
  6  END;
  7  /

PL/SQL procedure successfully completed.

SQL>
SQL> drop table address_master;

Table dropped.

SQL>