I have a simple DTS package that moves data from a flat file to a table. It
does very little scrubbing.
Here is the ActiveX code:

Function Main()
DTSDestination("ColA") = DTSSource("Col002")
DTSDestination("ColB") = left(DTSSource("Col003"), 4) &"-" &
right(DTSSource("Col003"), 2)
DTSDestination("ColC") = DTSSource("Col004")
DTSDestination("ColD") = DTSSource("Col005")

Main = DTSTransformStat_OK
End Function

Occasionally the datum in DTSSource("Col003") will be invalid for its
intended destination column. What I want is if an error occurs (due to an
invalid piece of data) for the package to just skip over that row. How do I
accomplish this? TIA

What I did for now was to wrap it this way:

Function Main()

if isNumeric(DTSSource("Col002")) then
DTSDestination("ColA") = DTSSource("Col002")
DTSDestination("ColB") = left(DTSSource("Col003"), 4)
DTSDestination("ColC") = DTSSource("Col004")
DTSDestination("ColD") = DTSSource("Col005")
Main = DTSTransformStat_OK
else
Main = DTSTransformStat_SkipRow
end if

End Function

This stops the bad rows from coming in. However, what I would like is to
handle the error in the script, like a try..except in Delphi. Any help
would be much appreciated.


"J O Holloway" <jholloway (AT) pinncorp (DOT) com> wrote