Oracle 12cR2 DBMS

Oracle DBMS_PICKLER Version 12.2.0.1

General Information

Library Note

Morgan's Library Page Header

The Library is currently in the process of being upgraded from Oracle Database Version 12.1.0.2 to 12.2.0.1. 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.

Also important ... there are rumors on the web about SPARC and Solaris being discontinued. Welcome to the age of fake news. There is absolutely not a byte of truth to these irresponsible rumors.

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 No

First Available 8i

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

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