1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
|
/**
* Syntax Highlighting Test File for PLSQL
* This is a package example for syntax colourising of
* Oracle PL/SQL 11g
* It is developed to meet at least my requirements.
* Copyright 2007 Thomas G. Keul
* @author Thomas G. Keul (tgkeul@web.de)
*/
/**
* Example pldoc header of a procedure.
*
* @param param_1 in parameter
* @param param_2 out parameter
* @param param_3 in out parameter
* @throws no_data_found
*/
procedure my_proc
(param_1 in my_table.the_key%type,
param_2 out my_table%rowtype,
param_3 in out nocopy plsql_table_type);
/**
* Example pldoc header of a function.
*
* @param param_1 in parameter
* @return true or false
*/
function my_func (param_1 in pls_integer) return boolean;
end example
/
create or replace package body example is
type t_boolean_table is table of boolean index by binary_integer;
subtype t_sample is positive range 1..6;
real_sample constant t_sample := 3;
cursor get_it (param_1 in varchar2) is
select /*+ a Hint */
distinct foo
from bar
where the_key = param_1
and a_column is not null;
procedure nested_outer (param_1 in number) is
procedure nested_inner is
begin
if a_collection.count > 0
then
for l in a_collection.first .. a_collection.last
loop
doit; -- just for fun
end loop;
elsif its_a_rainy_day
then help (who => me);
else sigh;
end if;
end nested_inner;
begin
update a_table
set a_column = 1
where the_key = 4711
returning something bulk collect into a_collection;
<< a_label >>
for ex in 1..3
loop
case ex
when 1 then dbms_output.put_line ('number one');
when 2 then junk := greatest (ex, nvl(foo, bar));
when 3 then exit (a_label);
else rollback;
end case;
end loop a_label;
exception
when no_data_found then null;
when others then raise;
end nested_outer;
begin
oops := 'no string eol';
end example;
/
-- -----------------------------------------------------------
declare
d date := sysdate;
begin
dbms_output.put_line (to_char (sysdate, 'DD.MM.YYYY'));
end;
-- -----------------------------------------------------------
exec dbms_job.run(4711);
|
