blob: b7736b5edf335784f6e84a3b5597fff66f2c0909 (
plain)
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
|
CREATE PACKAGE BODY b IS
PROCEDURE proc1 IS
BEGIN
IF 7 <> 5 THEN
FOR rec IN (SELECT * FROM dual
WHERE g = 5) LOOP
NULL;
END LOOP;
END IF;
END;
PROCEDURE recurse IS
b number:=5;
d456 number:=456;
BEGIN
recurse;
proc1;
a := (a + 1
+4
+ 5
+ 8);
c := f + 4 + 34;
total := earth +sky;
--this is comment
uk:=h;
g:=l;
exception
when no_data then
hello;
END;
BEGIN
NULL;
END;
|
