SQL Server automatic table creation and storage process

-- Table creation and storage process

Create   Proc   [ DBO ] . [ Pn_createhistorydatatable ]  
As
Begin
  Declare   @ Count   Int
  Declare   @ Collcode   Varchar ( 4 )
  Declare   @ Tablename   Varchar ( 30 )
  Declare   @ Strsql   Nvarchar ( 2000 )
  Declare   @ Createsql   Varchar ( 2000 )
 
  Declare Curcolliery Cursor   For   Select Collcode From Tn_colliery
  Open Curcolliery
  Fetch   Next   From Curcolliery Into   @ Collcode
  While   @ Fetch_status = 0
  Begin
Set   @ Tablename   =   ' Tn_data '   +   @ Collcode   +   Replace ( Replace ( Replace ( Convert ( Varchar , Getdate (), 112 ), ' - ' , '' ), '   ' , '' ), ' : ' , '' )

Set   @ Strsql = N ' Select @ insidecount = count (*) from sysobjects where id = object_id ( ''' +   @ Tablename   + ''' ) And type = '' U '''

Exec Sp_executesql @ Strsql , N ' @ Insidecount int output ' , @ Count Output

If ( @ Count   =   0 )
Begin
Set   @ Createsql = ' Create Table ' +   @ Tablename   +  
' (Datacode varchar (20) primary key,
Devicecode varchar (4) not null,
Devicename nvarchar (20 ),
Ergonomic address nvarchar (100 ),
Collcode varchar (4) not null,
Collname nvarchar (50 ),
Coalip varchar (20 ),
Sortname nvarchar (20 ),
Typename varchar (20 ),
Devicedata varchar (4 ),
Typeunit varchar (4 ),
Statusname varchar (50 ),
Lowerlimit varchar (4 ),
Upperlimit varchar (4 ),
Uploadtime datetime default getdate ()) '

Exec ( @ Createsql )
End
Fetch   Next   From Curcolliery Into   @ Collcode
  End
  Close Curcolliery
  Deallocate Curcolliery
End

-- Execution statement

Exec Pn_createhistorydatatable