zOs/TX/PER16SEL

//A540769S 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
m.sqlRetOk = '* say'
$@do wi=1 to 15 $@[
    m.st.0 = 0
    call sqlPreAllCl 1, "select a, b, c, 'a=4 with rr' from" $tb ,
                      "where a=4 with rr",
                      , st, ':a, :b, :c, :t'
    say 'fetched' m.st.0 a b c
    call sleep 20
    call sqlCommit
    $]