How to do an "Array" in transformation with Active X

[sgp_imported]

The following works but I would like to figure out how to use "Array" like I do in Crystal i.e. ...in ["A","B","C"].

Thanks!



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

' Copy each source column to the destination column
Function Main()
DTSDestination("J_SOURCE&quot = DTSSource("J_SOURCE&quot
DTSDestination("GL_ACCT_NO&quot = DTSSource("GL_ACCT_NO&quot
DTSDestination("REF_NO&quot = DTSSource("REF_NO&quot
DTSDestination("LIST_NO&quot = DTSSource("LIST_NO&quot
DTSDestination("ORG_AND_ACCT_NO&quot = DTSSource("ORG_AND_ACCT_NO&quot
DTSDestination("TR_AMOUNT&quot = DTSSource("TR_AMOUNT&quot
DTSDestination("TRANS_DATE&quot = DTSSource("TRANS_DATE&quot
DTSDestination("VEND_INVOICE&quot = DTSSource("VEND_INVOICE&quot
DTSDestination("VEND_NUM&quot = DTSSource("VEND_NUM&quot
DTSDestination("MONTH&quot = DTSSource("MONTH&quot
DTSDestination("YEAR&quot = DTSSource("YEAR&quot
'-------------------------------------------------------------------------------------------------------------------------------------------------------------
IF DTSSource("MONTH&quot = "7" then
DTSDestination("$CMT&quot = DTSSource("TR_AMOUNT&quot
Else
DTSDestination("$PRIOR&quot = DTSSource("TR_AMOUNT&quot
end if
'----------------------------------------------------------------------------------------------------------------------------------------------------------
IF LEFT(DTSSource("REF_NO&quot,1) = "X" then
DTSDestination("GL_PO&quot = MID (DTSSource("REF_NO&quot,2,5)
Else
IF LEFT(DTSSource("REF_NO&quot,1) = "x" then
DTSDestination("GL_PO&quot = MID (DTSSource("REF_NO&quot,2,5)
Else
IF LEFT(DTSSource("REF_NO&quot,1) = "N" then
DTSDestination("GL_PO&quot = MID (DTSSource("REF_NO&quot,2,5)
Else
IF LEFT(DTSSource("REF_NO&quot,1) = "n" then
DTSDestination("GL_PO&quot = MID (DTSSource("REF_NO&quot,2,5)
Else
IF LEFT(DTSSource("REF_NO&quot,1) = "D" then
DTSDestination("GL_PO&quot = MID (DTSSource("REF_NO&quot,9,5)
Else
IF LEFT(DTSSource("REF_NO&quot,1) = "M" then
DTSDestination("GL_PO&quot = MID (DTSSource("REF_NO&quot,2,5)
Else
IF LEFT(DTSSource("REF_NO&quot,1) = "P" then
DTSDestination("GL_PO&quot = MID (DTSSource("REF_NO&quot,2,5)
Else
IF LEFT(DTSSource("REF_NO&quot,1) = "A" then
DTSDestination("GL_PO&quot = MID (DTSSource("REF_NO&quot,2,5)
Else
IF LEFT(DTSSource("REF_NO&quot,1) = "F" then
DTSDestination("GL_PO&quot = MID (DTSSource("REF_NO&quot,2,5)
Else
IF RIGHT(DTSSource("REF_NO&quot,1) = "X" then
DTSDestination("GL_PO&quot = LEFT (DTSSource("REF_NO&quot,5)
Else
IF RIGHT(DTSSource("REF_NO&quot,1) = "N" then
DTSDestination("GL_PO&quot = LEFT (DTSSource("REF_NO&quot,5)
Else
IF MID(DTSSource("REF_NO&quot,7,1) = "P" then
DTSDestination("GL_PO&quot = LEFT (DTSSource("REF_NO&quot,5)
Else
IF RIGHT(DTSSource("REF_NO&quot,1) = "A" then
DTSDestination("GL_PO&quot = LEFT (DTSSource("REF_NO&quot,5)
Else
IF RIGHT(DTSSource("REF_NO&quot,1) = "B" then
DTSDestination("GL_PO&quot = LEFT (DTSSource("REF_NO&quot,5)
Else

DTSDestination("GL_PO&quot = DTSSource("REF_NO&quot
end if
end if
end if
end if
end if
end if
end if
end if
end if
end if
end if
end if
end if
end if
Main = DTSTransformStat_OK
End Function