RunUnit.GetInstance Method (Type, Boolean)

MicroFocus.COBOL.RuntimeServices

Given a Type object return the programs instance if the RunUnit knows about it. If create is true then GetInstance will create an instance of programType if it doesn't already have one. Otherwise it will return null should an instance not exist.

Namespace: MicroFocus.COBOL.RuntimeServices
Assembly: MicroFocus.COBOL.RuntimeServices (in MicroFocus.COBOL.RuntimeServices.dll) Version: 1.2.3.4

Syntax

C++

Copy

[CLSCompliantAttribute(false)]
public IObjectControl GetInstance(
	Type programType,
	bool create
)

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

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

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

Parameters

programType: Type: System.Type
The type of the program to construct.
create: Type: System.Boolean
Whether to create an instance if one doesn't already exist.

Return Value

Type: IObjectControl
An instance of programType or null.

Implements

IRunUnit.GetInstance(Type, Boolean)

Examples

C++

Copy

var myRunUnit = new RunUnit();
try
{
 var myProgram1 = myRunUnit.GetInstance(typeof(Program1), true) as Program1;
 myProgram1.Program1("Dobson", 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
 Try
  Dim myProgram1 As Program1 = TryCast(myRunUnit.GetInstance(GetType(Program1), True), Program1)
   myProgram1.Program1("Dobson", 36)
 Finally
   ' Destroy the run unit
   myRunUnit.StopRun()
 End Try

Reference

RunUnit Class

GetInstance Overload

MicroFocus.COBOL.RuntimeServices Namespace

RunUnit.AddLanguageSpecificTextSet("LSTB47B0FD8_0?cpp=::|nu=.");GetInstance Method (Type, Boolean)

Parameters

Return Value

Implements

Reference

RunUnit.GetInstance Method (Type, Boolean)