blob: 077eeb86b2df95ba90b3236fa2cc26ac0bcec12f (
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;
|