Create Linked Server to ODBC for As/400

/****** Object: LinkedServer [KAMOR_AS400] Script Date: 10/23/2009 11:15:02 ******/
EXEC master.dbo.sp_addlinkedserver @server = N'KAMOR_AS400', @srvproduct=N'Sybase Linked Server Name', @provider=N'MSDASQL', @datasrc=N'kamor400'
/* For security reasons the linked server remote logins password is changed with ######## */
EXEC master.dbo.sp_addlinkedsrvlogin @rmtsrvname=N'KAMOR_AS400',@useself=N'False',@locallogin=NULL,@rmtuser=N'CRM',@rmtpassword='########'

GO
EXEC master.dbo.sp_serveroption @server=N'KAMOR_AS400', @optname=N'collation compatible', @optvalue=N'false'
GO
EXEC master.dbo.sp_serveroption @server=N'KAMOR_AS400', @optname=N'data access', @optvalue=N'true'
GO
EXEC master.dbo.sp_serveroption @server=N'KAMOR_AS400', @optname=N'dist', @optvalue=N'false'
GO
EXEC master.dbo.sp_serveroption @server=N'KAMOR_AS400', @optname=N'pub', @optvalue=N'false'
GO
EXEC master.dbo.sp_serveroption @server=N'KAMOR_AS400', @optname=N'rpc', @optvalue=N'true'
GO
EXEC master.dbo.sp_serveroption @server=N'KAMOR_AS400', @optname=N'rpc out', @optvalue=N'true'
GO
EXEC master.dbo.sp_serveroption @server=N'KAMOR_AS400', @optname=N'sub', @optvalue=N'false'
GO
EXEC master.dbo.sp_serveroption @server=N'KAMOR_AS400', @optname=N'connect timeout', @optvalue=N'5'
GO
EXEC master.dbo.sp_serveroption @server=N'KAMOR_AS400', @optname=N'collation name', @optvalue=null
GO
EXEC master.dbo.sp_serveroption @server=N'KAMOR_AS400', @optname=N'lazy schema validation', @optvalue=N'false'
GO
EXEC master.dbo.sp_serveroption @server=N'KAMOR_AS400', @optname=N'query timeout', @optvalue=N'40'
GO
EXEC master.dbo.sp_serveroption @server=N'KAMOR_AS400', @optname=N'use remote collation', @optvalue=N'true'