parser3/www/htdocs/_bug.html - diff

Return to _bug.html CVS log

Up to [parser3project] / parser3 / www / htdocs

-version 1.43, 2004/05/11 15:03:49
+version 1.49, 2004/06/22 14:12:57
  Line 1
- $log[^table::load[nameless;log.txt;$.separator[ ]
+ @main[]
- ]]
+ ^connect[oracle://mts_imprimatur2:imp2@mts]{
- ^log.menu{
+ #    ^in[]
- $log.0 <br>
+         ^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{insert into paf (a) values (/**a**/'a')}
+ #    ^void:sql{insert into paf (a) values (:unk)}
+         ^void:sql{delete from pif}
+         ^void:sql{call paf(:a)}[
+                 $.bind[
+                         $.a[2]
+                 ]
+         ]
+         ^int:sql{select count(*) from pif}
+         "^string:sql{select a from pif}"
+ #       ^string:sql{select a from paf}
+ @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}

E-mail: