zOs/SQL/XBDDYCHK

$#@
$*( xb year end ddl
        create list of newest tablespaces
        prepare and edit list for ddlcheck afterwards
$*)
$= dbSys = DVBP
call sqlConnect $dbSys
$<>
$>. fEdit('~tmp.sql(xbddychk) ::f')
$<=[
  select 'ts ' || strip(dbName) || '.' || strip(name)
            || '    -- ' || char(createdTS) txt
    from sysibm.sysTablespace
    where dbName like 'XB%'
        and createdTs > current timestamp - 5 days
    order by createdTs desc
    fetch first 1000 rows only
$]
$@. sqlRdr()
$|
$$ $dbSys
$forWith i $$ $TXT
$#out                                              20151211 13:02:04