zOs/TX/PER07III

call sqlConnect dbaf
call sqlPreAllCl 1, 'select current packageset from sysibm.sysDummy1',
              ,q,':pkg'
say 'pkg' pkg
call sqlExec "set current packageSet = 'DSNREXXIW'"
call sqlPreAllCl 1, 'select current packageset from sysibm.sysDummy1',
              ,q,':pkg'
say 'pkg' pkg
$@do lx=1 to  0001 $@[
    call sqlPreAllCl 1, 'select current timestamp,',
              '(select max(ix) from A540769.tPer07X4),',
              '(select max(ix) from A540769.tPer07X5)',
              'from sysibm.sysDummy1 with rr',
            , st , ':qt, :q4, :q5'
    if q4 > q5 then
        say '<>' lx qt q4 '>' q5
    if q4 < q5 then
        say '<>' lx qt q4 '<' q5
    else if lx // 1000 = 0 then
        say '  ' lx qt q4 '=' q5
    call sqlCommit
    $]
call sqlDisconnect
$#out                                              20100908 17:55:09
$#out                                              20100909 08:34:55
$#out                                              20100909 08:34:24
$#out                                              20100909 08:33:12
$#out                                              20100909 08:32:54