zOs/SQL/EXPSTAVV

$#@
$>.fEdit('~wk.texv(tt)')
$<|[
tb
VTINSTRFLATSYMBOLS
VTCASHFLOW
VTINSTRUMENTEVENT
$]
wh = ''
$@forWith r $@[
    if $tb \== '' then
        wh = wh", '"$tb"'"
    $** $$ tbl $TABLE
    $]
$@=[
select *
    from sysibm.sysTables
    where creator = 'VDPS2' and name in ($-{substr(wh, 3)})
$]
$|
call sqlConnect dbtf
call sqlSel
$| call fmtFTab
$#end
$|
$@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                                              20110211 14:36:09
$#out                                              20110211 14:08:17
$#out                                              20110211 14:08:03
*** run error tsoAlloc rc 12 for alloc dd(CAT1) SHR DSN('A540769.WK.TEXV(TT)')
$#out                                              20110211 14:07:34
*** run error adrTso rc 1 for execio 4 diskw CAT1 (stem M.FILETSO.BUF1.)
$#out                                              20110211 14:07:18
*** run error tsoAlloc rc 12 for alloc dd(CAT1) NEW  recfm(f b) lrecl(80) block(
$#out                                              20110211 14:06:50
@O.133.1 class=SQL133, NAME=VTCASHFLOW, CREATOR=VDPS2, TYPE=T, DBNAME=VV27A1T...
@O.133.2 class=SQL133, NAME=VTINSTRFLATSYMBOLS, CREATOR=VDPS2, TYPE=T, DBNAME...
@O.133.3 class=SQL133, NAME=VTINSTRUMENTEVENT, CREATOR=VDPS2, TYPE=T, DBNAME=...
$#out                                              20110211 14:06:04
*** run error no method o2String in class SQL133 of object O.133.1
$#out                                              20110211 14:05:24