RECORDs - ну, наконец-то.
А с dbms_output (или clpplus) те же неполадки, что с FP4. Возьмём
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
DECLARE
n_DecNo decfloat( 34 );
BEGIN
-- DBMS_OUTPUT.ENABLE(1000000000);
n_DecNo := 10000000000 ;
DBMS_OUTPUT.PUT_LINE(' begin: _x_'||n_DecNo||'_x_');
WHILE (n_DecNo <> 0 ) LOOP
DBMS_OUTPUT.PUT_LINE('^^^^^^^^^^^^^^^^^');
n_decno := n_decno / 10 ;
DBMS_OUTPUT.PUT_LINE('n_decno='|| n_DecNo);
insert into ttt values(hex(generate_unique())||' - '||n_decno);
IF n_decno < 1 THEN
n_decno:= 0 ;
END IF;
-- DBMS_OUTPUT.PUT_LINE('VVVVVVVVVVVVVVVVV');
END LOOP;
DBMS_OUTPUT.PUT_LINE(' end: _x_'||n_DecNo||'_x_');
END;
/
и получаем
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
begin: _x_10000000000_x_
^^^^^^^^^^^^^^^^^
n_decno=1000000000
^^^^^^^^^^^^^^^^^
n_decno=100000000
^^^^^^^^^^^^^^^^^
n_decno=10000000
^^^^^^^^^^^^^^^^^
n_decno=1000000
^^^^^^^^^^^^^^^^^
n_decno=100000
^^^^^^^^^^^^^^^^^
n_decno=10000
^^^^^^^^^^^^^^^^^
n_decno=1000
^^^^^^^^^^^^^^^^^
n_decno=100
^^^^^^^^^^^^^^^^^
n_decno=10
^^^^^^^^^^^^^^^^^
n_decno=1
^^^^^^^^^^^^^^^^^
n_decno=.1
end: _x_0_x_
как и ожидалось.
Но после раскомментирования DBMS_OUTPUT.PUT_LINE('VVVVVVVVVVVVVVVVV') картина коренным образом меняется:
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.
begin: _x_10000000000_x_
^^^^^^^^^^^^^^^^^
n_decno=1000000000
VVVVVVVVVVVVVVVVV
^^^^^^^^^^^^^^^^^
n_decno=100000000
VVVVVVVVVVVVVVVVV
^^^^^^^^^^^^^^^^^
n_decno=10000000
VVVVVVVVVVVVVVVVV
^^^^^^^^^^^^^^^^^
n_decno=1000000
VVVVVVVVVVVVVVVVV
^^^^^^^^^^^^^^^^^
n_decno=100000
VVVVVVVVVVVVVVVVV
^^^^^^^^^^^^^^^^^
n_decno=10000
VVVVVVVVVVVVVVVVV
^^^^^^^^^^^^^^^^^
n_decno=1000
VVVVVVVVVVVVVVVVV
^^^^^^^^^^^^^^^^^
n_decno=100
VVVVVVVVVVVVVVVVV
begin: _x_10000000000_x_
^^^^^^^^^^^^^^^^^
n_decno=1000000000
VVVVVVVVVVVVVVVVV
^^^^^^^^^^^^^^^^^
n_decno=100000000
VVVVVVVVVVVVVVVVV
^^^^^^^^^^^^^^^^^
n_decno=10000000
VVVVVVVVVVVVVVVVV
^^^^^^^^^^^^^^^^^
n_decno=1000000
VVVVVVVVVVVVVVVVV
^^^^^^^^^^^^^^^^^
n_decno=100000
VVVVVVVVVVVVVVVVV
^^^^^^^^^^^^^^^^^
n_decno=10000
VVVVVVVVVVVVVVVVV
^^^^^^^^^^^^^^^^^
n_decno=1000
VVVVVVVVVVVVVVVVV
^^^^^^^^^^^^^^^^^
n_decno=100
VVVVVVVVVVVVVVVVV
n_decno=10
VVVVVVVVVVVVVVVVV
^^^^^^^^^^^^^^^^^
n_decno=1
VVVVVVVVVVVVVVVVV
^^^^^^^^^^^^^^^^^
n_decno=.1
VVVVVVVVVVVVVVVVV
end: _x_0_x_
Откуда-то берётся второй "begin:" и последущие сообщения. Как будто блок незадолго перед финалом вдруг спохватывается и начинает работу заново.
В таблице ttt всё впорядке (хотя это не показатель - не было ли и rollback'а впридачу?):
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
select * from ttt;
A
--------------------------------------------------
20111119150415235433000000 - 1000000000
20111119150415236245000000 - 100000000
20111119150415236300000000 - 10000000
20111119150415236354000000 - 1000000
20111119150415236407000000 - 100000
20111119150415236461000000 - 10000
20111119150415236514000000 - 1000
20111119150415236571000000 - 100
20111119150415236626000000 - 10
20111119150415236681000000 - 1
20111119150415236734000000 - .1
