zOs/TX/WK926SEL

//A540769S JOB (CP00,KE50),'DB2 REO',
//         MSGCLASS=T,TIME=1440,
//         NOTIFY=&SYSUID,REGION=0M
//*MAIN CLASS=LOG0
//*
//S1       EXEC PGM=IKJEFT01,DYNAMNBR=200,TIME=99,
//            PARM='WSH'
//SYSPRINT  DD SYSOUT=*
//SYSUDUMP  DD SYSOUT=*
//SYSTSPRT  DD SYSOUT=*
//SYSPROC   DD DSN=TSO.RZ1.P0.PROD.EXEC,DISP=SHR
//OUT       DD SYSOUT=*
//SYSTSIN   DD DUMMY
//WSH       DD *
$#@
call sqlconnect dbaf
do forever
   cn = 'nono'
   call sqlpreallcl 1, 'select count(*) from a540769.twk926a1',st,':cn'
   say 'cnt a540769.twk926a1' cn 'at' time()
   call sleep 5, 0
   end