MINI MINI MANI MO
rem
rem $Header: rdbms/admin/dbmsotpt.sql /main/29 2014/02/20 12:45:51 surman Exp $
rem
Rem Copyright (c) 1991, 2013, Oracle and/or its affiliates.
Rem All rights reserved.
Rem NAME
Rem dbmsotpt.sql - used by sql*dba 'set serveroutput on' cmd
Rem DESCRIPTION
Rem NOTES
Rem SQL*DBA and SQL*PLUS depend on this package.
Rem RETURNS
Rem
Rem
Rem BEGIN SQL_FILE_METADATA
Rem SQL_SOURCE_FILE: rdbms/admin/dbmsotpt.sql
Rem SQL_SHIPPED_FILE: rdbms/admin/dbmsotpt.sql
Rem SQL_PHASE: DBMSOTPT
Rem SQL_STARTUP_MODE: NORMAL
Rem SQL_IGNORABLE_ERRORS: NONE
Rem SQL_CALLING_FILE: rdbms/admin/catpstrt.sql
Rem END SQL_FILE_METADATA
Rem
Rem MODIFIED (MM/DD/YY)
Rem surman 12/29/13 - 13922626: Update SQL metadata
Rem surman 03/27/12 - 13615447: Add SQL patching tags
Rem traney 01/08/09 - add authid definer
Rem sylin 08/23/04 - Add FIXED_ONLY dbmsoutput_linesarray type
Rem sylin 08/12/04 - Add new get_lines overload
Rem sylin 04/27/04 - Increase line limit to 32767 bytes
Rem mxyang 06/28/02 - remove put(NUMBER) and put_line(NUMBER)
Rem gviswana 05/24/01 - CREATE OR REPLACE SYNONYM
Rem ywu 12/14/00 - bug 1512435
Rem swerthei 06/22/00 - make dbms_output a fixed package
Rem gviswana 08/06/99 - Remove put_line(DATE) for put_line(TIMESTAMP)
Rem opeschan 01/07/97 - add put_as_nchar and get_as_nchar
Rem mmonajje 09/16/96 - Fixing bug 244014; Adding RESTRICT_REFERENCES pr
Rem wmaimone 07/08/94 - 216381 fix comments
Rem adowning 03/29/94 - merge changes from branch 1.9.710.1
Rem adowning 02/02/94 - split file into public / private binary files
Rem rkooi 04/20/93 - merge changes from branch 1.8.312.1
Rem rkooi 01/20/93 - up default to 20000
Rem rkooi 11/27/92 - change error handling overflow case
Rem rkooi 10/09/92 - add some comments
Rem rkooi 10/08/92 - change newline to new_line
Rem rkooi 09/29/92 - more comments
Rem rkooi 09/28/92 - change some comments
Rem rkooi 09/26/92 - Creation
@@?/rdbms/admin/sqlsessstart.sql
Rem This script must be run as user SYS.
-- create varray type of varchar2(32767)
CREATE OR REPLACE TYPE dbmsoutput_linesarray IS
VARRAY(2147483647) OF VARCHAR2(32767);
/
create or replace package dbms_output authid definer as
-- DE-HEAD <- tell SED where to cut when generating fixed package
------------
-- OVERVIEW
--
-- These procedures accumulate information in a buffer (via "put" and
-- "put_line") so that it can be retrieved out later (via "get_line" or
-- "get_lines"). If this package is disabled then all
-- calls to this package are simply ignored. This way, these routines
-- are only active when the client is one that is able to deal with the
-- information. This is good for debugging, or SP's that want to want
-- to display messages or reports to sql*dba or plus (like 'describing
-- procedures', etc.). The default buffer size is 20000 bytes. The
-- minimum is 2000 and the maximum is 1,000,000.
-----------
-- EXAMPLE
--
-- A trigger might want to print out some debugging information. To do
-- do this the trigger would do
-- dbms_output.put_line('I got here:'||:new.col||' is the new value');
-- If the client had enabled the dbms_output package then this put_line
-- would be buffered and the client could, after executing the statement
-- (presumably some insert, delete or update that caused the trigger to
-- fire) execute
-- begin dbms_output.get_line(:buffer, :status); end;
-- to get the line of information back. It could then display the
-- buffer on the screen. The client would repeat calls to get_line
-- until status came back as non-zero. For better performance, the
-- client would use calls to get_lines which can return an array of
-- lines.
--
-- SQL*DBA and SQL*PLUS, for instance, implement a 'SET SERVEROUTPUT
-- ON' command so that they know whether to make calls to get_line(s)
-- after issuing insert, update, delete or anonymous PL/SQL calls
-- (these are the only ones that can cause triggers or stored procedures
-- to be executed).
------------
-- SECURITY
--
-- At the end of this script, a public synonym (dbms_output) is created
-- and execute permission on this package is granted to public.
----------------------------
-- PROCEDURES AND FUNCTIONS
--
procedure enable (buffer_size in integer default 20000);
pragma restrict_references(enable,WNDS,RNDS);
-- Enable calls to put, put_line, new_line, get_line and get_lines.
-- Calls to these procedures are noops if the package has
-- not been enabled. Set default amount of information to buffer.
-- Cleanup data buffered from any dead sessions. Multiple calls to
-- enable are allowed.
-- Input parameters:
-- buffer_size
-- Amount of information, in bytes, to buffer. Varchar2, number and
-- date items are stored in their internal representation. The
-- information is stored in the SGA. An error is raised if the
-- buffer size is exceeded. If there are multiple calls to enable,
-- then the buffer_size is generally the largest of the values
-- specified, and will always be >= than the smallest value
-- specified. Currently a more accurate determination is not
-- possible. The maximum size is 1,000,000, the minimum is 2000.
procedure disable;
pragma restrict_references(disable,WNDS,RNDS);
-- Disable calls to put, put_line, new_line, get_line and get_lines.
-- Also purge the buffer of any remaining information.
procedure put(a varchar2);
pragma restrict_references(put,WNDS,RNDS);
-- Put a piece of information in the buffer. When retrieved by
-- get_line(s), the number and date items will be formated with
-- to_char using the default formats. If you want another format
-- then format it explicitly.
-- Input parameters:
-- a
-- Item to buffer
procedure put_line(a varchar2);
pragma restrict_references(put_line,WNDS,RNDS);
-- Put a piece of information in the buffer followed by an end-of-line
-- marker. When retrieved by get_line(s), the number and date items
-- will be formated with to_char using the default formats. If you
-- want another format then format it explicitly. get_line(s) return
-- "lines" as delimited by "newlines". So every call to put_line or
-- new_line will generate a line that will be returned by get_line(s).
-- Input parameters:
-- a
-- Item to buffer
-- Errors raised:
-- -20000, ORU-10027: buffer overflow, limit of <buf_limit> bytes.
-- -20000, ORU-10028:line length overflow, limit of 32767 bytes per line.
procedure new_line;
pragma restrict_references(new_line,WNDS,RNDS);
-- Put an end-of-line marker. get_line(s) return "lines" as delimited
-- by "newlines". So every call to put_line or new_line will generate
-- a line that will be returned by get_line(s).
procedure get_line(line out varchar2, status out integer);
pragma restrict_references(get_line,WNDS,RNDS);
-- Get a single line back that has been buffered. The lines are
-- delimited by calls to put_line or new_line. The line will be
-- constructed taking all the items up to a newline, converting all
-- the items to varchar2, and concatenating them into a single line.
-- If the client fails to retrieve all lines before the next put,
-- put_line or new_line, the non-retrieved lines will be discarded.
-- This is so if the client is interrupted while selecting back
-- the information, there will not be junk left over which would
-- look like it was part of the NEXT set of lines.
-- Output parameters:
-- line
-- This line will hold the line - it may be up to 32767 bytes long.
-- status
-- This will be 0 upon successful completion of the call. 1 means
-- that there are no more lines.
type chararr is table of varchar2(32767) index by binary_integer;
procedure get_lines(lines out chararr, numlines in out integer);
pragma restrict_references(get_lines,WNDS,RNDS);
-- Get multiple lines back that have been buffered. The lines are
-- delimited by calls to put_line or new_line. The line will be
-- constructed taking all the items up to a newline, converting all
-- the items to varchar2, and concatenating them into a single line.
-- Once get_lines is executed, the client should continue to retrieve
-- all lines because the next put, put_line or new_line will first
-- purge the buffer of leftover data. This is so if the client is
-- interrupted while selecting back the information, there will not
-- be junk left over.
-- Input parameters:
-- numlines
-- This is the maximum number of lines that the caller is prepared
-- to accept. This procedure will not return more than this number
-- of lines.
-- Output parameters:
-- lines
-- This array will line will hold the lines - they may be up to 32767
-- bytes long each. The array is indexed beginning with 0 and
-- increases sequentially. From a 3GL host program the array begins
-- with whatever is the convention for that language.
-- numlines
-- This will be the number of lines actually returned. If it is
-- less than the value passed in, then there are no more lines.
--FIXED_ONLYTYPE dbmsoutput_linesarray IS VARRAY(2147483647) OF
--FIXED_ONLY VARCHAR2(32767);
procedure get_lines(lines out dbmsoutput_linesarray, numlines in out integer);
-- get_lines overload with dbmsoutput_linesarray varray type for lines.
-- It is recommended that you use this overload in a 3GL host program to
-- execute get_lines from a PL/SQL anonymous block.
pragma restrict_references(get_lines,WNDS,RNDS);
pragma TIMESTAMP('2000-06-22:11:21:00');
end;
-- CUT_HERE <- tell sed where to chop off the rest
/
create or replace public synonym dbms_output for dbms_output
/
create or replace public synonym dbmsoutput_linesarray for dbmsoutput_linesarray
/
grant execute on dbmsoutput_linesarray to public
/
grant execute on dbms_output to public
/
@?/rdbms/admin/sqlsessend.sql
OHA YOOOO