$#@ 00010001
$>.fEdit() 00020004
$@do jx=0 to 50 $@=[ 00030005
$=jx=- right($jx, 2, 0) 00040005
//A5407X$jx JOB (CP00,KE50),TIME=99 00050005
//*MAIN CLASS=DBAF ?YSTEM=S14 00060005
//* 00070001
//S1 EXEC PGM=IKJEFT01,DYNAMNBR=200,TIME=99, 00080001
// PARM='%WSH' 00090001
//SYSPROC DD DSN=A540769.WK.REXX,DISP=SHR 00100001
//SYSTSIN DD DUMMY 00110001
//SYSTSPRT DD SYSOUT=* 00120001
//WSH DD * 00130001
$@#[ 00140001
call sqlConnect dbaf 00150001
call sqlExImm , 00160001
'declare global temporary table session.tDGT as', 00170001
'( select * from A540769.tPer08', 00180001
') with no data', 00190001
'on commit delete rows' 00200001
s1 = 'insert into session.tDGT', 00210001
'select * from A540769.tPer08 fetch first' 00220001
s2 = 'insert into session.tDGT', 00230002
'select * from A540769.tPer08' , 00240002
'order by colcardf, name, tbName, tbCreator', 00250005
'fetch first' 00260002
sE = 'rows only' 00270002
do t=1 00280001
call sqlExImm s1 1 sE 00290002
do i=2 to 3 00300002
c = left(100000000, i) 00310001
call sqlExImm s2 c sE 00320002
end 00330001
call sqlPreAllCl 1, 'select count(*) from session.tdgt', st, 00340001
,':cnt' 00350001
if t // 5 = 1 then 00360002
say right(t, 6) time() 'count' cnt 00370001
call sqlCommit 00380001
end 00390001
$] 00400001
$] 00410002
$#out 20110329 12:16:29 00420005
$#out 20110329 12:13:12 00430005
$#out 20110329 12:07:44 00440005
$#out 20110329 12:06:21 00450005
$#out 20110329 12:03:49 00460005
$#out 20110329 11:40:56 00470004
$#out 20110126 07:09:11 00480003
$#out 20110125 12:00:24 00490002
$#out 20110125 10:30:24 00500002
$#out 20110125 10:29:11 00510002
$#out 20110125 10:27:50 00520002
$#out 20110125 10:18:36 00530002
$#out 20110125 08:19:11 00540002
$#out 00550002