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
|
-- ******************************
-- *
-- SPEC * ILSS_DB_Accounts
-- *
-- ******************************
package P is
--!
--! Purpose
--! Initialisiert und verwaltet die ILGD User.
--!
--! Initialisation Exceptions
--! keine
--!
--! Notes
--! keine
--!
type T_SQL_CONNECTION_POOL is new Integer;
type T_DB_INFO is new Integer;
type T_ILTIS_USER_KIND is new Integer;
-- ******************************
-- *
-- SPEC * Set_Db_Info
-- *
-- ******************************
procedure Set_Db_Info
(Sql_Connection_Pool : in out T_SQL_CONNECTION_POOL;
Db_Info : in T_DB_INFO);
--!
--! Purpose
--! Setzt die DB-Info des Connection-Pools.
--!
--! Exceptions
--! keine
--!
--! Notes
--! Die DB-Info muss vor dem ersten Aufruf von Get_connection
--! gesetzt werden.
--!
-- ******************************
-- *
-- SPEC * Is_User_Defined
-- *
-- ******************************
function Is_User_Defined (Kind : in T_ILTIS_USER_KIND;
Master : in BOOLEAN := FALSE)
return BOOLEAN;
--!
--! Purpose
--! Gibt zurueck, ob ein entsprechender ILTIS USER defniniert wurde.
--!
--! Exceptions
--! keine
--!
--! Notes
--! keine
--!
-- Invalid
procedure Foo
(A : Integer; -- some parameter
B : Integer);
-- comments for Foo
-- comments for Foo2
procedure Foo2
(A : Integer; -- some parameter
B : Integer);
-- Invalid
procedure Bar
(A : Integer;
-- some parameter
B : Integer);
-- comments for Bar
end P;
|
