Delete multi-table data

Set ansi_nulls on
Go
Set quoted_identifier on
Go

Create procedure [DBO]. [deldatatable]
As
Begin
Declare @ tablename varchar (80)
Declare @ csql varchar (8000)
Set @ csql =''

Declare cur_authors cursor
For
Select [name] From sysobjects where [name] Like't % 'and type ='U'
Open cur_authors
Fetch next from cur_authors into @ tablename
While (@ fetch_status = 0)
Begin
Set @ csql = + 'delete from' + ''+ @ tablename
Exec (@ csql)
Set @ csql =''
Fetch next from cur_authors into @ tablename
End
Close cur_authors
Deallocate cur_authors
End