How to Trim all the Spaces from all Character Type Field of the Tables of the Database

How to trim all the spaces from all charcter type field of the tables of the database.

CREATE PROCEDURE TRIM_DATABASE (@TableName Varchar(128)='')

AS
DECLARE @strSQL VARCHAR(2000)
Declare @Tname NVARCHAR(128) --Table Name
DECLARE @FName NVARCHAR(128) --Field Name
DECLARE @FType NVARCHAR(128) --Filed Type 
IF @TableName=''
      DECLARE C1 CURSOR FOR SELECT [Name] FROM Sysobjects WHERE Xtype='U' AND [NAME] LIKE '%MAST%'
      UNION ALL
      SELECT [Name] FROM SysObjects WHERE Xtype='U' AND [NAME] NOT LIKE '%MAST%'
ELSE
      DECLARE C1 CURSOR FOR SELECT [Name] FROM Sysobjects WHERE Xtype='U' AND [NAME] LIKE @TableName
      OPEN C1 
      FETCH NEXT FROM C1 INTO @Tname 
            WHILE @@FETCH_STATUS=0
            BEGIN
                  DECLARE C2  CURSOR FOR SELECT RTRIM(B.[NAME]) AS Fname,RTRIM(C.[NAME]) AS FType
                  FROM SYSOBJECTS A, SYSCOLUMNS B, SYSTYPES C 

                  WHERE A.[ID]=B.[ID] AND B.XUSERTYPE=C.XUSERTYPE AND RTRIM(A.[NAME]) LIKE @Tname

      OPEN C2 
      FETCH NEXT FROM C2 INTO @FNAME,@FTYPE 
            WHILE @@FETCH_STATUS=0
            BEGIN
                  IF @FTYPE='NVARCHAR' OR @FTYPE='VARCHAR'
                  BEGIN
                              SET @STRSQL = 'UPDATE ' + @Tname + ' SET ' + @FName + '=' + 'RTRIM(LTRIM(' + @FName + '))'
                              EXEC(@strSQL)
                  END
                 FETCH NEXT FROM C2 INTO @FName,@FTypeEND
CLOSE C2DEALLOCATE C2
FETCH NEXT FROM C1 INTO @TnameEND
CLOSE C1
DEALLOCATE C