|
|
| version 1.48, 2004/06/18 15:55:47 | version 1.69, 2004/10/07 09:23:44 |
|---|---|
| Line 1 | Line 1 |
| ^connect[oracle://mts_imprimatur2:imp2@mts]{ | ^connect[oracle://iagency:pwd@oracle]{ |
| # ^void:sql{create table paf(a clob)} | ^string:sql{select 2*2 from dual}<br> |
| # ^void:sql{insert into paf (a) values (/**a**/'a')} | ^try{ |
| # ^void:sql{insert into paf (a) values (:unk)} | ^string:sql{select 2*2x from dual} |
| ^void:sql{delete from pif} | }{ |
| ^void:sql{call paf(:a)}[ | $exception.handled(1) |
| $.bind[ | exception($exception.comment) handled<br> |
| $.a[2] | } |
| ] | ^string:sql{select 2*2 from dual}<br> |
| ] | |
| ^int:sql{select count(*) from pif} | |
| "^string:sql{select a from pif}" | |
| # ^string:sql{select a from paf} | |
| OK | |
| } | } |