Oracle 12cR2 DBMS

Oracle DBMS_PICKLER Version 12.2.0.1

General Information

Library Note

Morgan's Library Page Header

Coming to OpenWorld 2018? Be sure to visit the TidalScale booth in Moscone South and learn how to solve performance problems and lower costs with Software Defined Servers. Before you visit the booth, or if you can't make it this year, check out TidalScale at www.tidalscale.com. Be sure to click on the Solutions link and look through the Oracle resources.

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