SpRunDTS for calling DTS package from sp

Question

CREATE PROCEDURE spRunDTS
@PKGName varchar(500),
@PckPwd varchar(100),
@OMessage varchar(2000) OUTPUT
As
--Declaring the variables for the DTS Package 
Declare @hr int,
@oPKG int ,
@Server_Name varchar(200),
@Cmd varchar(1000),
@Server_Uname varchar(100),
@Server_Pwd varchar(100),
@PackagePwd varchar(100),
@PackageName varchar(500)
--- Setting the credentials
set @Server_Uname ='cpvar_dev'
set @Server_Pwd ='Stamford18'
set @PackagePwd = ltrim(rtrim(@PckPwd))
set @OMessage='Success'
--- Creating the DTS Package object
EXEC @hr = sp_OACreate 'DTS.Package', @oPKG OUT
IF @hr <> 0
BEGIN
set @OMessage = '*** Create Package object failed'
EXEC @hr = sp_OADestroy @oPKG
RETURN
END
select @Server_Name = ltrim(rtrim(@@servername))
set @PackageName=ltrim(rtrim(@PKGName))
SET @Cmd = 'LoadFromSQLServer("'+@Server_Name +'", "'+@Server_Uname+'", "'+@Server_Pwd+'", 256, "' + @PackagePwd +'", , , "'+@PackageName+'")'
print @Cmd
EXEC @hr = sp_OAMethod @oPKG, @Cmd, NULL
IF @hr <> 0
BEGIN
set @OMessage = '*** Load Package failed ' + @PKGName
EXEC @hr = sp_OADestroy @oPKG
RETURN
END
--Executing the Package:          
EXEC @hr = sp_OAMethod @oPKG, 'Execute'
IF @hr <> 0
BEGIN
set @OMessage = '*** Execute failed'
EXEC @hr = sp_OADestroy @oPKG
RETURN
END
--Cleaning up:          
EXEC @hr = sp_OADestroy @oPKG
IF @hr <> 0
BEGIN
set @OMessage = '*** Destroy Package failed'
RETURN
END

Answer 1

Thanks for sharing.