zOs/SQL/STPRREBI

$#@
call sqlConnect DBAF
if 1 then $@[
$@do forever $@[
    call sqlStmtsOpt 'call gdb9998.reBi()'
    say 'called gdb9998.reBi()'
    call sleep 10
    call sqlStmtsOpt 'commit'
    $]
$] else $@[
$<=[
set current sqlid = 's100447' ;
drop   procedure gdb9998.ReBi;
terminator    } ;
create procedure gdb9998.reBi()
        reads sql data
        dynamic result sets 1
    begin
    declare prCu cursor with return for
        select *
            from A540769.twk982a1
            fetch first 10 rows only
        ;
    open prCu;
    end
}
terminator ; }
commit;
call gdb9998.reBi();
commit;
$] call sqlStmtsOpt
$]
$#out                                              20110627 11:32:34
--- called GDB9998.REBI, sqlCode 466
  dynamic result set 1 PRCU locator=1
--- begin of dynamic result set 1=PRCU of GDB9998.REBI
T TEXT
0 text 10002 TIMESTAMP
0 text 10005 STARTNUMMER
0 text 10008 DATUM_ZEIT
0 text 10011 ZIELNUMMER
0 text 10014 ANRUFER
0 text 10017 KATEGORIE_ID
0 text 1002 PREDNO
0 text 10020 KATEGORIE_ID
0 text 10023 NAME
0 text 10026 KUNDENNAME
--- 10 rows fetched from dynamic result set 1=PRCU of GDB9998.REBI
sqlCode 466: call gdb9998.reBi()
sqlCode 0: commit