zOs/TX/QBDPSSEW

$#@
call sqlConnect dp4g
m.timing_say = 0
sqlSrc = "select AUFTRAGS#_STORNO aSto" ,
       "from qtxcrX.VQBDPS v10" ,
       "WHERE V10.PROCBASE = ? AND V10.TECHBEZ = ? " ,
           "AND V10.SAMMEL1 = ? AND V10.VERDTYP IN ( ?, ?)"
if 0 then $@[
    call sqlUpdate ,"set current sqlid = 'A540769'"
    call sqlUpdate ,'set current explain mode yes'
    call sqlQueryPrep 3, sqlSrc
    call sqlUpdate ,'set current explain mode no'
    call sqlCommit
    exit
    $]
call sqlQueryPrep 3, sqlSrc
call timing
do cx = 1 to 1000
    ix =  cx * 997 // 1100179 // 25600
    ix = 7 + 2000 * (ix // 13)
$** if (ix // 25600 + 1) // 2000 <> 8     then
$**     iterate
$** if ix > 100000 then
$**     if (ix // 25600 + 1) // 2000 > 200 then
$**         iterate
$** say 'proc' (ix // 25600 + 1)
    call sqlQueryArgs 3, ix // 25600 + 1,
                       , 'techBez' || (ix // 7) || 'und' || (ix // 7) ,
                       , '2014-03-' || (1 + ix // 31) || '-00.00.00',
                       , 'X', 'Y'
    call timing 'open'
    do fx=1 while sqlFetch(3,ff)
        end
    call timing 'fetch', fx, cx ix m.ff.aSto
    call sqlClose 3
    call timing 'close'
    end
say sqlSrc
call timingSummary
call sqlDisconnect
$#out                                              20140220 21:48:09
$#out                                              20140220 21:47:16
$#out                                              20140220 21:46:43
$#out                                              20140220 21:44:46
$#out                                              20140220 21:43:46
$#out                                              20140220 21:41:44
$#out                                              20140220 21:39:03
$#out                                              20140220 21:36:49