аргумент - Имя, даваемое параметру процедуры. С каждым аргументом связан
тип_параметра (mode) и тип данных. Допускается любое
количество аргументов, разделенных запятыми.
set termout off
store set sqlplus.cfg replace
set pagesize 0
set linesize 10000
set tab off
set trimspool on
set echo off
set verify off
set feedback off
set timing off
set recsep off
spool p_test.sql
SELECT 'create or replace procedure p (' FROM DUAL
/
WITH a AS ( SELECT LEVEL b
FROM DUAL
CONNECT BY LEVEL <= 8191)
SELECT ' p' || b || ' in number,'
FROM a
/
SELECT ' p in number'
|| CHR (10)
|| ' ) as'
|| CHR (10)
|| 'begin'
|| CHR (10)
|| ' null;'
|| CHR (10)
|| 'end;'
|| CHR (10)
|| '/'
FROM DUAL
/
spool off
@sqlplus.cfg
set termout on
@p_test.sql
* This source code was highlighted with Source Code Highlighter.D:\sqlplus srv@vm @test.sql
SQL*Plus: Release 10.2.0.1.0 - Production on Thu Oct 30 17:48:33 2008
Copyright (c) 1982, 2005, Oracle. All rights reserved.
Enter password:
Connected to:
Oracle Database 10g Enterprise Edition Release 10.2.0.1.0 - Production
With the Partitioning, OLAP and Data Mining options
Warning: Procedure created with compilation errors.
SQL> show errors;
Errors for PROCEDURE P:
LINE/COL ERROR
-------- -----------------------------------------------------------------
1/0 PLS-00123: program too large (Diana nodes)
SQL>
using System;
using System.IO;
using System.Runtime.InteropServices;
namespace LogHarvester
{
class Program
{
[DllImport("advapi32.dll", SetLastError = true, CharSet = CharSet.Auto)]
static extern bool BackupEventLog(IntPtr hEventLog, string backupFile);
// OpenEventLog PInvoke overloaded call supporting full parameters.
[DllImport("advapi32.dll", SetLastError = true, EntryPoint = "OpenEventLog")]
public static extern IntPtr OpenEventLog(
[MarshalAs(UnmanagedType.LPStr)] String lpUNCServerName,
[MarshalAs(UnmanagedType.LPStr)] String lpSourceName);
static void Main()
{
BackupEventLog(OpenEventLog(null, "Application"), Path.Combine(Environment.CurrentDirectory, "application.evt"));
BackupEventLog(OpenEventLog(null, "System"), Path.Combine(Environment.CurrentDirectory, "system.evt"));
}
}
}
* This source code was highlighted with Source Code Highlighter.