zOs/TX/PER06INS
$>.jclSub()
$@do jx=5 to 6 $@=[
//A540769$jx JOB (CP00,KE50),'DB2 REO',
// MSGCLASS=T,TIME=1440,
// NOTIFY=&SYSUID,REGION=0M
//*MAIN CLASS=S1$jx,SYSTEM=S1$jx
//S1 EXEC PGM=IKJEFT01,DYNAMNBR=200,TIME=99,
// 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 * DISP=SHR,DSN=A540769.WK.REXX(RCG)
call sqlConnect dbaf
$'$=jx='$jx
$@#[
$@do 10000 $@[
call sqlExec "insert into A540769.tPer06X"$jx "(cur, tst5, tst6)" ,
"select current timestamp" ,
", (select max(cur) from A540769.tPer06X5)" ,
", (select max(cur) from A540769.tPer06X6)" ,
"from sysibm.sysDummy1 "
call sqlCommit
$]
call sqlDisconnect
$]
$]
$#out 20101008 14:57:35
$#out 20101008 14:55:36
3#out 20101008 14:54:12
$#out 20101008 14:53:15
$#out 20100908 17:14:43
$#out 20100908 17:09:47
$#out 20100908 17:03:59
$#out 20100908 17:03:04
$#out 20100908 15:36:28
$#out 20100908 15:34:23
$#out 20100908 15:33:19
$#out 20100908 15:33:09
$#out 20100908 15:29:30
$#out 20100908 15:22:54
$#out 20100908 15:12:12
$#out 20100908 15:10:25
$#out 20100908 15:09:52
$#out 20100908 15:03:52
$#out 20100908 15:03:06
$#out 20100908 15:02:21
$#out 20100908 14:59:07