Error Handling in a sub to set Main = DTSTaskExecResult_Failure

[JStandard]

Greetings,

I have a DTS with a VBScript component that has a Function Main() and a Sub Test() in it.

Is there any way I can call the sub within main and using error handling, set Main = DTSTaskExecResult_Failure?

Ex.

Sub TestArray(aTest)
  On Error Resume Next
  aTest(1,2) = "This is out of bounds"
  If err.number <> 0 Then
    Main = DTSTaskExecResult_Failure
    ' Ideally DTS would end right here because of failure
  End If
  On Error Goto 0
End Sub

Function Main()
  Dim aTest(1,1), bTest(1,1)
  TestArray aTest
  
  ' Other Stuff
  TestArray bTest

  Main = DTSTaskExecResult_Success
End Function

So in the above example, I am basically attempting to halt the DTS when I encountered an error in a specific part of the Sub TestArray.

This would allow me to be able to use this function at multiple points within the code, without having to encapsulate it in an error handling block each time I want to call the function.

To put it in Java terms, if I am calling a method from within a method, no matter where I am, I can use the System.Out.Exit() to cause the application to end prematurely. I am looking for analagous functionality in DTS/VBScript.

Is there anyway I can accomplish having the Sub cause the Main function to fail in a VBScript DTS Task? Is there a better way to do this?

Any help is much appreciated.

Thanks kindly,
- Jeff

 

[PHV]

You may consider something like this:
Function TestArray(aTest)
On Error Resume Next
aTest(1,2) = "This is out of bounds"
TestArray = Err.Number
End Sub

Function Main()
Dim aTest(1,1), bTest(1,1)
Main = DTSTaskExecResult_Failure
If TestArray(aTest) <> 0 Then Exit Function

' Other Stuff
If TestArray(bTest) <> 0 Then Exit Function

Main = DTSTaskExecResult_Success
End Function

Hope This Helps, PH.
Want to get great answers to your Tek-Tips questions? Have a look at FAQ219-2884 or FAQ181-2886