DB2 z/OS DB2 LUW
z/OS CICS VTAM

DB2 LUW

Kleine Query um fuer jede Tabelle einen Tablespace mit Automatic Storage anzulegen :

select 'CREATE LARGE TABLESPACE ' concat RTrim(Name)
concat ' IN DATABASE PARTITION GROUP "IBMDEFAULTGROUP" '
concat 'PAGESIZE ' Concat RTrim(Char(PGSZ)) concat 'K '
concat 'MANAGED BY AUTOMATIC STORAGE'
concat ' INITIALSIZE ' Concat Case when PGMB = 0 Then 1 Else RTrim(Char(PGMB)) end concat 'M '
concat ' INCREASESIZE ' Concat case when PGMBEXT = 0 Then 1 Else RTrim(Char(PGMBEXT)) End concat 'M '
concat ' MAXSIZE NONE '
concat ' EXTENTSIZE 16 '
concat ' PREFETCHSIZE AUTOMATIC '
concat ' BUFFERPOOL "IBMDEFAULTBP" '
concat ' OVERHEAD 12.67 '
concat ' TRANSFERRATE 0.18 '
concat ' DROPPED TABLE RECOVERY OFF; '
from (
select creator, name, ((npages * pagesize / 1024) / 100) as pgmb,
      (((npages * pagesize / 1024) / 100) / 100 * 10) as pgmbext, Char(pagesize / 1024) as PGSZ
from sysibm.systables tb
left outer join sysibm.systablespaces ts
on tb.tbspace = ts.tbspace
where tb.type = 'T'
and tb.creator = <YOUR Creator>'

) T1
;

Kleine Query um Tabellen in die zugehoerigen Tablespaces zu moven !

select 'call ADMIN_MOVE_TABLE('
concat ' ''' concat RTrim(Creator) concat ''', '
concat ' ''' concat RTrim(NAME) concat ''', '
concat ' ''' concat RTrim(NAME) concat ''', '
concat ' ''' concat RTrim(NAME) concat ''', '
concat ' ''' concat RTrim(NAME) concat ''', '
concat ' '''', '''', '''', '''', '''', ''MOVE'') ;'
from (
select creator, name, ((npages * pagesize / 1024) / 100) as pgmb
     , Char(pagesize / 1024) as PGSZ
from sysibm.systables tb
left outer join sysibm.systablespaces ts
on tb.tbspace = ts.tbspace
where tb.type = 'T'
   and tb.creator = '<YOUR Creator>'
fetch first 1000 rows only
) T1
;