RunUnit Class

public class RunUnit : IRunUnit, IDisposable

Public Class RunUnit
	Implements IRunUnit, IDisposable

public ref class RunUnit : IRunUnit, 
	IDisposable

type RunUnit =  
    class
        interface IRunUnit
        interface IDisposable
    end

Create a run unit for the called COBOL program
MicroFocus.COBOL.RuntimeServices.RunUnit myRunUnit = 
      new MicroFocus.COBOL.RuntimeServices.RunUnit();
 try
 {
   // Call the COBOL program
   result = myRunUnit.Call("Program1", "Alice", 21);
   result2 = myRunUnit.Call("Program2");
 }
 finally
 {
   // Destroy the run unit
   myRunUnit.StopRun();
 }

' Create a run unit for the called COBOL program
Dim myRunUnit As New MicroFocus.COBOL.RuntimeServices.RunUnit
Try
  ' Call the COBOL method and implicitly instantiate it
  result = myRunUnit.Call("Program1", "Jim", 42)
  result2 = myRunUnit.Call("Program2")
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.

 environment division.
 configuration section.
 repository.
  class cls-RunUnit as "MicroFocus.COBOL.RuntimeServices.RunUnit" 
   . 
working-storage section.
01 myRunUnit object reference cls-RunUnit.
01 my-params object reference occurs any.
procedure division.
  set size of my-params to 2
  set my-params(1) to "Bob"
  set my-params(2) to 32

  *> Create a run unit for the called COBOL program
  invoke cls-RunUnit "new" returning myRunUnit
  try
        *> Call the COBOL method and implicitly instantiate it
        invoke myRunUnit::"Call"("Program1", my-params)
        invoke myRunUnit::"Call"("Program2")
  finally
        *> Destroy the run unit
        invoke myRunUnit::"StopRun"()
  end-try

program-id. Program1.
working-storage section.
procedure division using by value lnk-string as string
                         by value lnk-age as binary-double.

  display "Hello " lnk-string::Trim() ", you are " lnk-age " years old"
  goback.
end program Program1.

program-id. Program2.
working-storage section.
procedure division.
  display "Hello from COBOL".
  goback.
end program Program2.