RunUnitGetInstance Method (Type)

[CLSCompliantAttribute(false)]
public IObjectControl GetInstance(
	Type programType
)

<CLSCompliantAttribute(false)>
Public Function GetInstance ( 
	programType As Type
) As IObjectControl

public:
[CLSCompliantAttribute(false)]
virtual IObjectControl^ GetInstance(
	Type^ programType
) sealed

[<CLSCompliantAttribute(false)>]
abstract GetInstance : 
        programType : Type -> IObjectControl 
[<CLSCompliantAttribute(false)>]
override GetInstance : 
        programType : Type -> IObjectControl 

// Create a run unit for the called COBOL program
var myRunUnit = new MicroFocus.COBOL.RuntimeServices.RunUnit();
var Result = 0;

try
{
  // Call the COBOL method and implicitly instantiate it
  Result = myRunUnit.Call("Program1", "Jim", 10);

  //... sometime later..
  var myProgram1 = myRunUnit.GetInstance(typeof(Program1)) as Program1;
  myProgram1.Program1("Dobson again", 36);
}
finally
{
   // Destroy the run unit
   myRunUnit.StopRun();
}

 ' Create a run unit for the called COBOL program
Dim myRunUnit As New MicroFocus.COBOL.RuntimeServices.RunUnit
Dim Result

Try
 ' Call the COBOL method and implicitly instantiate it
  Result = myRunUnit.Call("Program1", "Jim", 10)
  '... sometime later..
  Dim myProgram1 As Program1 = TryCast(myRunUnit.GetInstance(GetType(Program1)), Program1)
  myProgram1.Program1("Dobson again", 36)
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.