zOs/REXX/BESEL

//A540769V JOB (CP00,KE50),'DB2 REO',
//         MSGCLASS=T,TIME=1440,
//         NOTIFY=&SYSUID,REGION=0M
//*MAIN CLASS=LOG
//*
//S1       EXEC PGM=IKJEFT01,DYNAMNBR=200,TIME=99,
//            PARM='WSH'
//SYSPROC    DD DSN=A540769.WK.REXX,DISP=SHR
//SYSTSPRT   DD SYSOUT=*
//SYSTSIN    DD DUMMY
//WSH        DD *
$#@
$@do ix=1  $@[
$@=[
   select * from
       oa1a03.tbe010a1
   fetch first 10 rows only
$] $| call sqlStmtsOpt
      call sleep 10
$]
//*OUT       DD SYSOUT=*