RunUnitCancel Method

public void Cancel(
	string program
)

Public Sub Cancel ( 
	program As String
)

public:
virtual void Cancel(
	String^ program
) sealed

abstract Cancel : 
        program : string -> unit 
override Cancel : 
        program : string -> unit 

// Create a run unit for the called COBOL program
var myRunUnit = new MicroFocus.COBOL.RuntimeServices.RunUnit();
try
{
  myRunUnit.Call("ProgCounter");
  myRunUnit.Call("ProgCounter");
  myRunUnit.Cancel("ProgCounter");
  myRunUnit.Call("ProgCounter");
}
finally
{
  // Destroy the run unit
  myRunUnit.StopRun();
}

  Dim myRunUnit = New RunUnit
' Create a run unit for the called COBOL program
Try
    myRunUnit.Call("ProgCounter")
    myRunUnit.Call("ProgCounter")
    myRunUnit.Cancel("ProgCounter")
    myRunUnit.Call("ProgCounter")
Finally
    ' Destroy the run unit
    myRunUnit.StopRun()
End Try

No code example is currently available or this language may not be supported.

No code example is currently available or this language may not be supported.

program-id. ProgCounter.
data division.
working-storage section.
01 counter binary-long value 1.
procedure division.
    display "ProgCounter has been called " counter " times"
    add 1 to counter
    goback.
end program ProgCounter.