zOs/TX/PER16INS

//A540769I JOB (CP00,KE50),'DB2 REO',                                   00010000
//         MSGCLASS=T,TIME=1440,                                        00020000
//         NOTIFY=&SYSUID,REGION=0M                                     00030000
//*MAIN SYSTEM=S13,CLASS=LOG0                                           00040000
//*
//S1       EXEC PGM=IKJEFT01,DYNAMNBR=200,TIME=99,                      00020001
//            PARM='WSH'
//SYSPROC   DD DSN=A540769.WK.REXX,DISP=SHR
//SYSPRINT  DD SYSOUT=*
//SYSUDUMP  DD SYSOUT=*
//SYSTSPRT  DD SYSOUT=*
//OUT       DD SYSOUT=*
//SYSTSIN   DD DUMMY
//WSH       DD *
$=subsys = DBAF
$=tb = A540769.tper16
call sqlConnect $subsys
call sqlPreAllCl 1, "select max(c) from" $tb ,
                  "where a=5 with rr", st, ":cx"
say 'cx' cx
m.sqlRetOk = '* say'
$@do wi=cx+1 to cx+15 $@[
    m.st.0 = 0
    call sqlExec "insert into" $tb ,
                 "values(3, 5," wi", 'insert 3, 5," wi"')"
    say "inserted" wi
    call sleep 30
    call sqlCommit
    $]
call sqlExec "rollback"