Return to _bug.html CVS log

Up to [parser3project] / parser3 / www / htdocs

Annotation of parser3/www/htdocs/_bug.html, revision 1.50

1.49      paf         1: @main[]
1.48      paf         2: ^connect[oracle://mts_imprimatur2:imp2@mts]{
1.49      paf         3: #    ^in[]
1.50    ! paf         4: #      ^out[]
        !             5:        ^inout[]
1.49      paf         6:        OK
                      7: }
                      8: 
                      9: @inp[]
1.50    ! paf        10: create table pif(a integer);
1.49      paf        11: create or replace procedure paf(a in integer) as begin
                     12: insert into pif (a) values (:a);
                     13: end;
                     14: /
                     15: 
                     16: @in[]
1.48      paf        17: #    ^void:sql{create table paf(a clob)}
                     18: #    ^void:sql{insert into paf (a) values (/**a**/'a')}
                     19: #    ^void:sql{insert into paf (a) values (:unk)}
                     20:        ^void:sql{delete from pif}
                     21:        ^void:sql{call paf(:a)}[
                     22:                $.bind[
                     23:                        $.a[2]
                     24:                ]
                     25:        ]
                     26:        ^int:sql{select count(*) from pif}
                     27:        "^string:sql{select a from pif}"
                     28: 
                     29: #      ^string:sql{select a from paf}
1.49      paf        30: 
                     31: @outp[]
                     32: create or replace procedure pafm(ai in integer,ao out integer) as begin
                     33: ao:=ai;
                     34: end;
                     35: /
                     36: @out[]
                     37:     $vars[
                     38:        $.ai(2222)
                     39:        $.ao[sad]
                     40:     ]
                     41:        ^void:sql{call pafm(:ai,:ao)}[
                     42:                $.bind[$vars]
                     43:        ]
                     44:        "$vars.ai"
                     45:        "$vars.ao"
1.50    ! paf        46: 
        !            47: #      ^string:sql{select a from paf}
        !            48: 
        !            49: @inoutp[]
        !            50: create or replace procedure pafio(aio in out integer) as begin
        !            51: aio:=aio*2;
        !            52: end;
        !            53: /
        !            54: @inout[]
        !            55:     $vars[
        !            56:        $.aio(2222)
        !            57:     ]
        !            58:        before "$vars.aio"<br>
        !            59:        ^void:sql{call pafio(:aio)}[
        !            60:                $.bind[$vars]
        !            61:        ]
        !            62:        after "$vars.aio"
1.49      paf        63: 
                     64: #      ^string:sql{select a from paf}