Flat File Source Patterns - SQL Server Integration Services Design Patterns - page 207

Listing 7-7 . Declaring the Debug Variable
Partial Public Class ScriptMain
Inherits
Microsoft.SqlServer.Dts.Tasks.ScriptTask.VSTARTScriptObjectModelBase
Dim bDebug As Boolean
Replace the code in Public Sub Main with that from Listing 7-8 .
Listing 7-8 . Code for the Main() Subroutine
Public Sub Main()
' 1: detect Debug setting...
bDebug
= Convert.ToBoolean(Dts.Variables("Debug").Value)
' 2: declare and initialize variables...
' 2a: generic variables...
Dim sPackageName As String
= Dts.Variables("PackageName").Value.ToString
Dim sTaskName As String
= Dts.Variables("TaskName").Value.ToString
Dim sSubComponent As String = sPackageName & "."
& sTaskName
Dim sMsg As String
' 2b: task-specific variables...
Dim sExtractFilePath As String
= Dts.Variables("ExtractFilePath").Value.ToString
Dim iRecordCount As Integer
= Convert.ToInt32(Dts.Variables("RecordCount").Value)
Dim sAmountSum As String
= Dts.Variables("AmountSum").Value.ToString
Dim sDateFormat As String
= Dts.Variables("DateFormat").Value.ToString
Dim sDelimiter As String
= Dts.Variables("Delimiter").Value.ToString