DTS Import of flat (text) file / VBScript transformation (ActiveX)
Fld 20 Fld 21
- 00002500.2369
NULL 00000182.50
Fld 20 Positive / Negitive indicator
Fld 20 Number value
IF Fld 20 = - then value = Fld 21 * -1 (In other words negitive value) ELSE Fld 21 = Fld 21.
I have tried the following and recive the following error: Invalid procedure call or argument: 'DTSSource'
(the error seems to reside in this string (If (Dat)= ("-") Then) of:
Function Main()
DTSDestination("POST_BAM")
= Value(DTSSource("Col021"))
Main = DTSTransformStat_OK
End Function
Function Value (Byval Dat)
Dat = DTSSource("Col020")
If (Dat)= ("-") Then
Value = DTSSource("Col021") * -1
Else
Value = DTSSource("Col021")
End If
End Function
Thank you
Start Free Trial