Public Sub CheckjRDC2 (Command As String, parameters() As String) As ResumableSub
Dim Answer As Map
Answer.Initialize
Dim cmd As DBCommand = CreateCommand(Command, parameters)
Dim j As HttpJob = CreateRequest.ExecuteBatch(Array(cmd), Null)
Wait For(j) JobDone(j As HttpJob)
If j.Success Then
Log("successfully!")
else
Log("there was some problem")
End If
Answer.Put("Success",j.Success)
Answer.Put("Error", j.ErrorMessage)
j.Release
Return Answer
End Sub
'Later, you can do something like
Wait For(CheckjRDC2("testSQL", Null)) Complete (Answer As Map)
If Answer.Get("Success") Then
Log("The jRDC2 is working")
Else
Log("There was some problem: " & Answer.get("Error")
End If