Oracle 12c DBMS_PICKLER Demos

Oracle DBMS_PICKLER Version 12.1.0.2

General Information

Library Note

Morgan's Library Page Footer

The Library is currently in the process of being upgraded from Oracle Database Version 12.1.0.1 to 12.1.0.2. Demos are being upgraded to reflect the new Container paradigm as well as EBR (Edition Based Redefinition) and may contain references to CDBs, PDBs, and other objects you may not be familiar with such as CDB_OBJECTS_AE: Welcome to 12c.

Interested in Oracle GoldenGate? Check out the IGGOUG,

Purpose

Undocumented

Acronyms

TDS: Type Descriptor Source

AUTHID

DEFINER

Dependencies

ALL_OBJECTS	DBMS_PICKLER_LIB	TYPE$
ALL_TAB_COLUMNS	OBJ$	USER$
ATTRIBUTE$	OID$	_CURRENT_EDITION_OBJ
COLLECTION$	PRIVATE_JDBC

Documented

First Available

Security Model

Owned by SYS with EXECUTE granted to PUBLIC

Source

{ORACLE_HOME}/rdbms/admin/prvtpckl.plb

Subprograms

Undocumented

dbms_pickler.get_format(fdo OUT RAW) RETURN BINARY_INTEGER;

DECLARE
o PLS_INTEGER;
r RAW(128);
BEGIN
o := dbms_pickler.get_format(r);
dbms_output.put_line('Returned Value: ' || TO_CHAR(o));
dbms_output.put_line('FDO: ' || r);
END;
/

GET_TYPE_SHAPE (new 12.1 overloads 3 and 4)

Undocumented

Overload 1

dbms_pickler.get_type_shape(
schema IN VARCHAR2,
typnam IN VARCHAR2,
typoid OUT RAW,
version OUT BINARY_INTEGER,
tds OUT LONG_RAW,
lds OUT LONG_RAW)
RETURN BINARY_INTEGER;

DECLARE
toid RAW(128);
vers PLS_INTEGER;
tdsval LONG RAW;
ldsval LONG RAW;
retVal PLS_INTEGER;
BEGIN
retVal := dbms_pickler.get_type_shape('OE', 'PURCHASEORDER_T', toid, vers, tdsval, ldsval);
dbms_output.put_line('Returned Value: ' || TO_CHAR(retVal));
dbms_output.put_line('TOID: ' || toid);
dbms_output.put_line('Version: ' || TO_CHAR(vers));
dbms_output.put_line('TDS: ' || tdsval);
dbms_output.put_line('LDS: ' || ldsval);
END;
/

Overload 2

dbms_pickler.get_type_shape(
schema IN VARCHAR2,
typnam IN VARCHAR2,
typoid OUT RAW,
version OUT BINARY_INTEGER,
tds OUT BLOB,
lds OUT LONG_RAW)
RETURN BINARY_INTEGER;

DECLARE
toid RAW(128);
vers PLS_INTEGER;
tdsval BLOB;
ldsval LONG RAW;
retVal PLS_INTEGER;
BEGIN
retVal := dbms_pickler.get_type_shape('OE', 'PURCHASEORDER_T', toid, vers, tdsval, ldsval);
dbms_output.put_line('Returned Value: ' || TO_CHAR(retVal));
dbms_output.put_line('TOID: ' || toid);
dbms_output.put_line('Version: ' || TO_CHAR(vers));
dbms_output.put_line('TDS: Blobs Can Not Be Displayed');
dbms_output.put_line('LDS: ' || ldsval);
END;
/

Overload 3

dbms_pickler.get_type_shape(
fulltypename IN OUT VARCHAR2,
typeoid         OUT RAW,
version         OUT BINARY_INTEGER,
tds             OUT LONG_RAW,
instantiable    OUT VARCHAR2,
supertype_owner OUT VARCHAR2,
supertype_name OUT VARCHAR2,
attr_rc         OUT REF CURSOR,
subtype_rc      OUT REF CURSOR)
RETURN BINARY_INTEGER;

DECLARE
ftname   VARCHAR2(30) := 'OE.PURCHASEORDER_T';
toid     RAW(128);
vers     PLS_INTEGER;
tdsval   LONG RAW;
instan   VARCHAR2(128);
st_owner VARCHAR2(30);
st_name VARCHAR2(30);
attrc    SYS_REFCURSOR;
subtrc   SYS_REFCURSOR;
retVal   PLS_INTEGER;
BEGIN
retVal := dbms_pickler.get_type_shape(ftname, toid, vers, tdsval, instan, st_owner, st_name, attrc, subtrc);
dbms_output.put_line('Returns: ' || TO_CHAR(retVal));
END;
/

Overload 4

dbms_pickler.get_type_shape(
fulltypename IN OUT VARCHAR2,
typeoid         OUT RAW,
version         OUT BINARY_INTEGER,
tds             OUT BLOB,
instantiable    OUT VARCHAR2,
supertype_owner OUT VARCHAR2,
supertype_name OUT VARCHAR2,
attr_rc         OUT REF CURSOR,
subtype_rc      OUT REF CURSOR)
RETURN BINARY_INTEGER;

DECLARE
ftname   VARCHAR2(30) := 'OE.PURCHASEORDER_T';
toid     RAW(128);
vers     PLS_INTEGER;
tdsval   BLOB;
instan   VARCHAR2(128);
st_owner VARCHAR2(30);
st_name VARCHAR2(30);
attrc    SYS_REFCURSOR;
subtrc   SYS_REFCURSOR;
retVal   PLS_INTEGER;
BEGIN
retVal := dbms_pickler.get_type_shape(ftname, toid, vers, tdsval, instan, st_owner, st_name, attrc, subtrc);
dbms_output.put_line('Returns: ' || TO_CHAR(retVal));
END;
/

UPDATE_THROUGH_REF

Undocumented

dbms_pickler.update_through_ref(
prf     IN RAW,
version IN BINARY_INTEGER,
toid    IN RAW,
image   IN LONG RAW);
RETURN BINARY_INTEGER;

TBD