|
|
| version 1.48, 2004/06/18 15:55:47 | version 1.49, 2004/06/22 14:12:57 |
|---|---|
| Line 1 | Line 1 |
| @main[] | |
| ^connect[oracle://mts_imprimatur2:imp2@mts]{ | ^connect[oracle://mts_imprimatur2:imp2@mts]{ |
| # ^in[] | |
| ^out[] | |
| OK | |
| } | |
| @inp[] | |
| create or replace procedure paf(a in integer) as begin | |
| insert into pif (a) values (:a); | |
| end; | |
| / | |
| @in[] | |
| # ^void:sql{create table paf(a clob)} | # ^void:sql{create table paf(a clob)} |
| # ^void:sql{insert into paf (a) values (/**a**/'a')} | # ^void:sql{insert into paf (a) values (/**a**/'a')} |
| # ^void:sql{insert into paf (a) values (:unk)} | # ^void:sql{insert into paf (a) values (:unk)} |
| Line 12 | Line 25 |
| "^string:sql{select a from pif}" | "^string:sql{select a from pif}" |
| # ^string:sql{select a from paf} | # ^string:sql{select a from paf} |
| OK | |
| } | @outp[] |
| create or replace procedure pafm(ai in integer,ao out integer) as begin | |
| ao:=ai; | |
| end; | |
| / | |
| @out[] | |
| $vars[ | |
| $.ai(2222) | |
| $.ao[sad] | |
| ] | |
| ^void:sql{call pafm(:ai,:ao)}[ | |
| $.bind[$vars] | |
| ] | |
| "$vars.ai" | |
| "$vars.ao" | |
| # ^string:sql{select a from paf} |