Oracle | DBMS

Oracle DBMS_PICKLER Version 21c

General Information

Library Note

Morgan's Library Page Header

Which has the higher priority in your organization: Deploying a new database or securing the ones you already have? Looking for a website, and resources, dedicated solely to securing Oracle databases? Check out DBSecWorx.

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 8.1

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