Forte Batch Services

Question

Hi Forte Users.
I am trying to write a Forte service that will control background batch
style jobs.
I want an Environment Visible non replicated service that will listen out
for events from clients and start tasks in other partitions to carry out
long batch type processing.
I want to use a reference partition so that several applications can have
access to these batch jobs.
I'm storing the taskdesc's of the batch tasks in an array on the batch
control service, I can then make a list of batch jobs running available to
client applications. I want these applications to be able to cancel the
batch jobs.
My problem is cancelling jobs in partitions that are load balanced.
I've found a TechNote (11046) that says "Currently, there is no way to
cancel a task on a load balanced partition"
I am considering having the batch control service write to files when a
batch job is cancelled and having the load balanced services reading these
files every so often to see if they should stop processing.
Is there a better way of doing this ?
How do other people handle large background processing jobs?
Any suggestions would be much appreciated.
Thanks
Tony.

Answer 1

Yes, this is possible. try to use the below code by changing the code at lines 14, and 30
you need to validate the status.
If it is helpful, please mark as correct or helpful
----------code start---------
     Dim objWMIService, objWMIService2, objItem, objService, objService2
     Dim colListOfServices, colListOfServices2, strComputer, strService, intSleep
     Dim Finished
Dim objFSO
Dim objStream
Set objFSO = createobject("scripting.filesystemobject")
Set objTextFile2 = objFSO.CreateTextFile("D:\temp\StartServicesLog.txt", True)
Set wshshell = WScript.CreateObject("wscript.Shell")
     strComputer = "<hostname>"
     intSleep = 1000
     ' NB strService is case sensitive.
     objTextFile2.writeLine "Stopping the FrontOffice service now."
     strService = " 'sawsvc' "
     Set objWMIService = GetObject("winmgmts:" _
     & "{impersonationLevel=impersonate}!\\" _
     & strComputer & "\root\cimv2")
     While Finished <> "Running" '-** ####-> change to Stopped for stop <--## *******
          Set colListOfServices = objWMIService.ExecQuery _
          ("Select * from Win32_Service Where Name ="_
          & strService & " ")
          For Each objService in colListOfServices
               objService.StartService() '---** ####-> objService.StopService() for stop <--## *******
               WSCript.Sleep intSleep
               Finished = objService.State
          Next
     Wend
     objTextFile2.writeLine "Your "& strService & " service has Stopped."
     objTextFile2.writeLine "Stopping the Gateway service now."
     objTextFile2.writeLine "Your "& strService & " service has Stopped."
--------------code end---------