Return to _bug.html CVS log

Up to [parser3project] / parser3 / www / htdocs

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

1.49    ! paf         1: @main[]
1.48      paf         2: ^connect[oracle://mts_imprimatur2:imp2@mts]{
1.49    ! paf         3: #    ^in[]
        !             4:        ^out[]
        !             5:        OK
        !             6: }
        !             7: 
        !             8: @inp[]
        !             9: create or replace procedure paf(a in integer) as begin
        !            10: insert into pif (a) values (:a);
        !            11: end;
        !            12: /
        !            13: 
        !            14: @in[]
1.48      paf        15: #    ^void:sql{create table paf(a clob)}
                     16: #    ^void:sql{insert into paf (a) values (/**a**/'a')}
                     17: #    ^void:sql{insert into paf (a) values (:unk)}
                     18:        ^void:sql{delete from pif}
                     19:        ^void:sql{call paf(:a)}[
                     20:                $.bind[
                     21:                        $.a[2]
                     22:                ]
                     23:        ]
                     24:        ^int:sql{select count(*) from pif}
                     25:        "^string:sql{select a from pif}"
                     26: 
                     27: #      ^string:sql{select a from paf}
1.49    ! paf        28: 
        !            29: @outp[]
        !            30: create or replace procedure pafm(ai in integer,ao out integer) as begin
        !            31: ao:=ai;
        !            32: end;
        !            33: /
        !            34: @out[]
        !            35:     $vars[
        !            36:        $.ai(2222)
        !            37:        $.ao[sad]
        !            38:     ]
        !            39:        ^void:sql{call pafm(:ai,:ao)}[
        !            40:                $.bind[$vars]
        !            41:        ]
        !            42:        "$vars.ai"
        !            43:        "$vars.ao"
        !            44: 
        !            45: #      ^string:sql{select a from paf}