zOs/REXX/WSHTTV
$#@
$*( 1. wsh
2. dbarb dbof -t
3 c )) ')) apreuse(warn)' all
$*)
call sqlConnect
call sql2tab, , 'c'
$<=[
select 'alter table ' || strip(t.creator) || '.' || strip(t.name)
|| ' -- ' || s.type
from sysibm.sysTables t join sysibm.sysTablespace s
on t.dbName = s.dbname and t.tsName = s.name
where t.type not in ('A', 'V')
and t.dbName in ('AV15A1P', 'CT02A1P', 'PW01A1P', 'QZ01A1P')
and s.alteredTs > current timestamp - 1 year
$]
$#out 20160725 22:03:08
--- row 1 ----------------------------------------------------------------------
COL1 alter table OA1P.TQZ006GBGRTSHIST -- R
--- row 2 ----------------------------------------------------------------------
COL1 alter table OA1P.TQZ005TECSVUNLOAD --
--- row 3 ----------------------------------------------------------------------
COL1 alter table OA1P.TQZ005TECSVRTSLASTEQ --
--- row 4 ----------------------------------------------------------------------
COL1 alter table OA1P.TQZ004TECSVLGRN --
--- row 5 ----------------------------------------------------------------------
COL1 alter table OA1P.TQZ007GBGRIXHIST -- R
--- row 6 ----------------------------------------------------------------------
COL1 alter table OA1P.TQZ006GBGRTSHJJJ -- R
--- row 7 ----------------------------------------------------------------------
COL1 alter table OA1P.TQZ007GBGRIXHJJJ -- R
--- row 8 ----------------------------------------------------------------------
COL1 alter table OA1P.TQZ006GBGRTSSTATS -- R
--- row 9 ----------------------------------------------------------------------
COL1 alter table OA1P.TQZ007GBGRIXSTATS -- R
--- row 10 ---------------------------------------------------------------------
COL1 alter table OA1P.TQZ121DDLRULE -- G
--- end of 10 rows -------------------------------------------------------------
$#out 20160725 22:02:43
COL1-------------------------------
alter table OA1P.TQZ006GBGRTSHIS
alter table OA1P.TQZ005TECSVUNLO
alter table OA1P.TQZ005TECSVRTSL
alter table OA1P.TQZ004TECSVLGRN
alter table OA1P.TQZ007GBGRIXHIS
alter table OA1P.TQZ006GBGRTSHJJ
alter table OA1P.TQZ007GBGRIXHJJ
alter table OA1P.TQZ006GBGRTSSTA
alter table OA1P.TQZ007GBGRIXSTA
alter table OA1P.TQZ121DDLRULE -
COL1-------------------------------
$#out 20160725 22:02:18
O.204.1=[COL1=alter table OA1P.TQZ006GBGRTSHIST -- R]
O.204.2=[COL1=alter table OA1P.TQZ005TECSVUNLOAD -- ]
O.204.3=[COL1=alter table OA1P.TQZ005TECSVRTSLASTEQ -- ]
O.204.4=[COL1=alter table OA1P.TQZ004TECSVLGRN -- ]
O.204.5=[COL1=alter table OA1P.TQZ007GBGRIXHIST -- R]
O.204.6=[COL1=alter table OA1P.TQZ006GBGRTSHJJJ -- R]
O.204.7=[COL1=alter table OA1P.TQZ007GBGRIXHJJJ -- R]
O.204.8=[COL1=alter table OA1P.TQZ006GBGRTSSTATS -- R]
O.204.9=[COL1=alter table OA1P.TQZ007GBGRIXSTATS -- R]
O.204.10=[COL1=alter table OA1P.TQZ121DDLRULE -- G]
$#out 20160725 22:01:53
$#out 20160725 22:01:22
$#out 20160725 22:01:05
fatal error in WST: SQLCODE = -199: ILLEGAL USE OF KEYWORD T. TOKEN ??( [
CONCAT !! / MICROSECONDS MICROSECOND SECONDS SECOND WAS EXPECTED
src ...e ' || strip(t.creator) || '.' || strip(t.name) || ' -- ' || s.ty
+ pe from sysibm.sysTables t join sysibm.sysTablespace s on t.dbName =
+ s.dbname and t.tsName = s.name where and t.type not in ('A', 'V'...
> >>>pos 341 of 566>>>
sql = select 'alter table ' || strip(t.creator) || '.' || strip(t.name) ...
stmt = prepare s10 into :M.SQL.10.D from :src
with into :M.SQL.10.D = M.SQL.10.D
in wsh phase run
$#out 20160703 17:07:47