Biml and SSIS Frameworks - SQL Server Integration Services Design Patterns - page 552

to Microsoft Visual Basic 2012. Add the following variables to the ReadOnlyVariables
property:
• System::TaskName
• System::PackageName
• User::PkgInstanceID
• User::ChildPackagePath
• User::AppPackageID
Edit the script and place the code shown in Listing A-19 in Sub Main() .
Listing A-19 . Raising an Information Event from a Script Task
Public Sub Main()
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 sChildPackagePath As String
= Dts.Variables("ChildPackagePath").Value.ToString
Dim iAppPackageID As Integer
= Convert.ToInt32(Dts.Variables("AppPackageID").Value)
Dim iPkgInstanceID As Integer = _
Convert.ToInt32(Dts.Variables("PkgInstanceID").Value)
Dim sMsg As String = "ChildPackagePath: " &
sChildPackagePath & vbCrLf & _
"AppPackageID: " &
iAppPackageID.ToString & vbCrLf & _
"PkgInstanceID: " &
iPkgInstanceID.ToString
Dts.Events.FireInformation(1001, sSubComponent,
sMsg, "", 0, True)