zOs/TX/WK988INS

$#@
call sqlConDis
call sqlStmtsOpt 'select * from gdb9998.twk988a1'
trace ?r
do ix=1 to 10

    tst = if(ix//2=1, 'current timestamp',
                    , "'1956-04-01-06.12.34.567800'")
    call sqlExec "insert into gdb9998.tWk988a1",
          "values(5, current date," tst")", "* say"
    end
call sqlStmtsOpt 'select * from gdb9998.twk988a1'
$#out                                              20120316 13:12:01
I WK988D     WK988T
1 01.04.1956 1956-04-01-06.12.34.567800
1 16.03.2012 2012-03-16-13.00.57.446571
1 16.03.2012 2012-03-16-13.00.57.447899
3 rows fetched: select * from gdb9998.twk988a1
I WK988D     WK988T
1 01.04.1956 1956-04-01-06.12.34.567800
1 16.03.2012 2012-03-16-13.00.57.446571
1 16.03.2012 2012-03-16-13.00.57.447899
5 16.03.2012 2012-03-16-13.12.06.420384
5 16.03.2012 2012-03-16-13.12.06.435453
5 16.03.2012 2012-03-16-13.12.06.436588
5 16.03.2012 2012-03-16-13.12.06.437511
5 16.03.2012 2012-03-16-13.12.06.438286
8 rows fetched: select * from gdb9998.twk988a1
$#out                                              20120316 13:10:29
I WK988D     WK988T
1 01.04.1956 1956-04-01-06.12.34.567800
1 16.03.2012 2012-03-16-13.00.57.446571
1 16.03.2012 2012-03-16-13.00.57.447899
3 rows fetched: select * from gdb9998.twk988a1
I WK988D     WK988T
1 01.04.1956 1956-04-01-06.12.34.567800
1 16.03.2012 2012-03-16-13.00.57.446571
1 16.03.2012 2012-03-16-13.00.57.447899
3 rows fetched: select * from gdb9998.twk988a1
$#out                                              20120316 13:05:29
I WK988D     WK988T
1 01.04.1956 1956-04-01-06.12.34.567800
1 16.03.2012 2012-03-16-13.00.57.446571
1 16.03.2012 2012-03-16-13.00.57.447899
3 rows fetched: select * from gdb9998.twk988a1
$#out                                              20120316 13:03:10
@O.146.1 class=SQL146, WK988I=1, WK988D=01.04.1956, WK988T=1956-04-01-06.12.3...
@O.146.2 class=SQL146, WK988I=1, WK988D=16.03.2012, WK988T=2012-03-16-13.00.5...
@O.146.3 class=SQL146, WK988I=1, WK988D=16.03.2012, WK988T=2012-03-16-13.00.5...
$#out                                              20120316 13:02:40
@O.146.1 class=SQL146, WK988I=1, WK988D=01.04.1956, WK988T=1956-04-01-06.12.3...
@O.146.2 class=SQL146, WK988I=1, WK988D=16.03.2012, WK988T=2012-03-16-13.00.5...
@O.146.3 class=SQL146, WK988I=1, WK988D=16.03.2012, WK988T=2012-03-16-13.00.5...
$#out                                              20120316 13:02:10
*** run error ***
SQLCODE = -981: THE SQL STATEMENT FAILED BECAUSE THE RRSAF
    CONNECTION IS NOT IN A STATE THAT ALLOWS SQL OPERATIONS, REASON
    00C12219
stmt =  execSql prepare s10 into :M.SQL.10.D from :src
with into :M.SQL.10.D = M.SQL.10.D
     from :src = select * from gdb9998.twk988a1
$#out