$#@ 00001000
$*( to drop all tablespaces in db=XBDDLCHK 00010000
open this member in view 00020001
change ?rop to drop 00021001
and enter WSH as primary command (edit Macro) 00030000
attention: wsh is case sensitive | 00031000
$*) 00040000
$= db = XBDDLCHK 00050000
call sqlConnect DX0G 00060000
$<> 00070000
$<=[ 00080000
select strip(dbName) || '.' || name TS from sysibm.sysTableSpace 00090002
where dbName = '$db' 00100000
$] 00110000
call sqlSel 00120000
$| $forWith r $@=[ 00130000
?rop tablespace $TS ; 00140001
commit; 00141000
$] 00150000
$| call sqlStmts 00150100
call sqldisConnect 00150200