Hi All:

I have a DTS transformation step that uses activeX script to to do the
transformation. If the data file is short then the step completes in a split
of seconds. However, if I use the real text file then it stops at about line
5000. However, the same data file is used in other step and is executed and
finished preperly. It seems the source data size is not the issue. Please
check the transformation code below to see if there is any reason casuing
this hanging.

Thank you a lot!

Eugene
'************************************************* *********************
' Visual Basic Transformation Script
'************************************************* ***********************

' Copy each source column to the destination column
Function Main()
strLogFile = DTSGlobalVariables("Error Log Path") & "Diagnosis_ER.txt"
Set fso = CreateObject("Scripting.FileSystemObject")
Set logfile = fso.OpenTextFile(strLogFile, 8 , TRUE)

if len( DTSSource("Diagnosis")) > 100 then
strDiagnosis = "MAX LENGTH" & "|" & DTSSource("Diagnosis") & "|" &
DTSSource("Study Name")
logfile.WriteLine strDiagnosis
Main = DTSTransformStat_SkipRow

elseif isnull(DTSSource("Diagnosis")) then
logfile.WriteLine "Debug: is null"
Main = DTSTransformStat_SkipRow

elseif isempty(DTSLookups("StudyID").Execute(DTSSource("S tudy
Name"))) then
Main = DTSTransformStat_SkipRow
else
if isempty(DTSLookups("DiagnosisID").Execute(DTSSourc e("Diagnosis"),
DTSSource("Study Name"))) then
DTSDestination("Study_ID") =
DTSLookups("StudyID").Execute(DTSSource("Study Name"))
DTSDestination("Diagnosis") = DTSSource("Diagnosis")
logfile.WriteLine "Debug:
diagonsis: " & DTSSource("Diagnosis") & ";study name" & DTSSource("Study
Name")
Main = DTSTransformStat_OK
else
' logfile.WriteLine "debug: NA"
Main = DTSTransformStat_SkipRow
end if
end if
End Function

+++++++++++++++++++++++++