zOs/REXX/WSHTUT2L

$#@
$>.fSub()
$<|[
STMT    TYPE    MSEC         ACCESS   INDEX         TABLE         TTYP
000404  SELECT  268601       IX-SCAN  IELKS835A5C4  TELKS835C4    T
000404  SELECT  268601       IX-SCAN  IELKS831A3C4  TELKS831C4    T
000404  SELECT  268601       TS-SCAN                TCD600A1      T
000404  SELECT  268601       IX-SCAN  IEL2200       TEL220A1      T
000404  SELECT  268601       IX-SCAN  IELKS833A0C4  TELKS833C4    T
000404  SELECT  268601       IX-SCAN  IELKS831A3C4  TELKS831C4    T
000404  SELECT  268601       IX-SCAN  IELKS845A1C4  TELKS845C4    T
000404  SELECT  268601       IX-SCAN  IELKS858A2C4  TELKS858C4    T
000404  SELECT  268601       IX-SCAN  IELKS838A0C4  TELKS838C4    T
000404  SELECT  268601       IX-SCAN  IELKS843A0C4  TELKS843C4    T
000404  SELECT  268601       IX-SCAN  IEL0800       TEL080A1      T
000404  SELECT  268601       IX-SCAN  IEL1051       TEL105A1      T
000404  SELECT
000404  CORSUB  268601       IX-SCAN  IELKS843A3C4  TELKS843C4    T
000404  CORSUB  268601       IX-SCAN  IELKS843A2C4  TELKS843C4    T
000405  SELECT  79740549     IX-SCAN  IELKS835A5C4  TELKS835C4    T
000405  SELECT  79740549     IX-SCAN  IELKS831A3C4  TELKS831C4    T
000405  SELECT  79740549     IX-SCAN  IELKS833A0C4  TELKS833C4    T
000405  SELECT  79740549     IX-SCAN  IELKS838A0C4  TELKS838C4    T
000405  SELECT  79740549     IX-SCAN  IELKS845A1C4  TELKS845C4    T
000405  SELECT  79740549     IX-SCAN  IELKS858A2C4  TELKS858C4    T
000405  SELECT  79740549     IX-SCAN  IELKS831A3C4  TELKS831C4    T
000405  SELECT  79740549     IX-SCAN  IELKS843A0C4  TELKS843C4    T
000405  SELECT  79740549     IX-SCAN  IEL0800       TEL080A1      T
000405  SELECT  79740549     IX-SCAN  IEL1051       TEL105A1      T
000405  SELECT
000405  CORSUB  79740549     IX-SCAN  IELKS843A3C4  TELKS843C4    T
000405  CORSUB  79740549     IX-SCAN  IELKS843A2C4  TELKS843C4    T
$]
wh = ''
$@forWith r $@[
    if $TABLE \== '' then
        wh = wh", '"$TABLE"'"
    $** $$ tbl $TABLE
    $]
$@=[
select *
    from sysibm.sysTables
    where creator = 'OA1T' and name in ($-{substr(wh, 3)})
$]
$|
call sqlConnect dbtf
call sqlSel
$|
$@forWith r $@[
    if $STATSTIME < '2011-01' then
       $$ $'  INCLUDE TABLESPACE' $*+
$-{strip($DBNAME)}.$-{strip($TSNAME)} -- $STATSTIME  $SPACEF
    else
       $$ $'--' ${DBNAME}.$TSNAME -- $STATSTIME
    $]
call sqlDisconnect
$| $@=[
//A540769S JOB (CP00,KE50),
//       'CATALOG',MSGCLASS=T,TIME=1440,
//         NOTIFY=&SYSUID,REGION=0M
//*MAIN CLASS=LOG
//STEP1 EXEC PGM=DSNUTILB,TIME=1440,
//   PARM=(DBAF,'A540769S.RUNSTA'),
//   REGION=0M
//*DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT  DD SYSOUT=*
//SYSOUT   DD SYSOUT=*
//RNPRIN01 DD SYSOUT=*
//SYSIN DD *
     LISTDEF LST#STA
     $@for i $$ $i
     OPTIONS EVENT (ITEMERROR, SKIP)

   RUNSTATS TABLESPACE LIST LST#STA
         SHRLEVEL CHANGE
           TABLE(ALL)
           INDEX (ALL  KEYCARD -- FREQVAL NUMCOLS 1  COUNT 10 BOTH
                               -- FREQVAL NUMCOLS 2  COUNT 10 BOTH
                 )
           UPDATE ALL REPORT NO
$]
$#out                                              20110203 11:07:11
$#out                                              20110203 10:59:46