zOs/SQL/DROPBIG

$#:
dbSys = DBOL
<>
$>. fEdit()
$<=[
    select s.dbname db, s.name ts, sum(r.totalrows) rows
          ,  sum(r.nActive) active, sum(real(r.space)) space
          ,  count(*) count
          ,  min(r.updatestatstime) updMin
          , max(R.updatestatstime)  updMax
        from sysibm.sysTablespace s
          left join sysibm.sysTablespaceStats r
            on r.dbName = s.dbName and r.name = s.name
              and r.dbid = s.dbid and r.psId = s.psid
        where s.dbname = 'SU01A1P'
        group by s.dbName, s.name
        order by updMax desc
   $**  order by 1, 2
$]
@  call sqlConnect $dbSys
@. sqlRdr()
|
@=[
//A540769D JOB (CP00,KE50),'DB2 REO',
//             MSGCLASS=T,TIME=1440,
//             NOTIFY=&SYSUID,REGION=0M,
//             SCHENV=DB2,CLASS=M1
//*
//DROP     EXEC PGM=IKJEFT01,DYNAMNBR=200,TIME=99,
//             PARM='%WSH s $dbSys'
//SYSPROC     DD DSN=DSN.DB2.EXEC,DISP=SHR
//SYSPRINT    DD SYSOUT=*
//SYSUDUMP    DD SYSOUT=*
//SYSTSPRT    DD SYSOUT=*
//SYSTSIN     DD DUMMY
//WSH         DD *
$]
forWith $@=[
      drop tablespace $DB.$TS; -- $-[f('%kd', $ROWS) 'rows,' $*+
                        f('%kb', $SPACE * 1024)'iB'$] $UPDMAX
      commit;
    $]
$#out                                              20160909 09:18:00
$#out                                              20160909 09:17:22
$#out                                              20160909 09:16:39
$#out                                              20160905 17:06:48
$#out                                              20160905 16:48:33
$#out                                              20160905 16:47:36