REPLACE MACRO SystemFE.FallBack_DB (DBName (Char(30))) AS
(
echo 'set defaults;';
echo 'set format on;';
echo 'set width 82;';
echo 'set NULL as "-";';
echo 'set separator 2;';
echo 'set pagelength 60;';
echo 'set suppress on 1;';
echo 'set heading "&DATE||FallBack Tables In Database &1||&TIME";';
Select DBC.AllSpace.DataBaseName
(Title 'DataBase', Format 'X(30)')
, DBC.AllSpace.TableName (Title 'Table')
, Sum(CurrentPerm) (Title 'Bytes')
From DBC.AllSpace, DBC.Tables
Where DBC.AllSpace.Databasename = :DBName
And DBC.Allspace.Databasename = DBC.Tables.Databasename
And DBC.Allspace.Tablename = DBC.Tables.Tablename
And DBC.Tables.ProtectionType = 'F'
Order By 1,2
Group By 1,2;
echo 'set defaults;';
);