CallableProgram Class

MicroFocus.COBOL.RuntimeServices
The CallableProgram type is used to create a .Net type that can be used with the CALL verb. Below is an example the type that for a program called MYPROGRAM. The type also implements ICancelProgramCallback interface so it can handle being CANCELed.
Inheritance Hierarchy
SystemObject
  MicroFocus.COBOL.RuntimeServicesCallableProgram

Namespace:  MicroFocus.COBOL.RuntimeServices
Assembly:  MicroFocus.COBOL.RuntimeServices (in MicroFocus.COBOL.RuntimeServices.dll) Version: 1.2.3.4
Syntax
Copy
[CLSCompliantAttribute(false)]
public abstract class CallableProgram : IObjectControl

The CallableProgram type exposes the following members.

Constructors
  NameDescription
Protected methodCallableProgram
Top
Examples
COBOL
Copy
using System;
[assembly: MicroFocus.COBOL.Info.Callable()]
namespace MicroFocus.COBOL.Runtime
{
    [MicroFocus.COBOL.Info.Callable()]
    public class MyProgramType : MicroFocus.COBOL.RuntimeServices.CallableProgram,
                 MicroFocus.COBOL.RuntimeServices.CallableProgram.ICancelProgramCallback
    {
        private int counter;

        public MyProgramType()
        {
            init();
        }

        private void init()
        {
            this.counter = 42;
        }

        [MicroFocus.COBOL.Info.Callable()]
        public int MYPROGRAM()
        {
            return counter++;
        }

        public void OnCancelProgram(bool OnStop)
        {
            Console.WriteLine("OnCancelProgram for MYPROGRAM -> "+OnStop);
            init();
        }
    }
}
The program below uses the above type.
COBOL
Copy
WORKING-STORAGE SECTION.
CALL "MYPROGRAM"
DISPLAY "MYPROGRAM: Return-Code: " return-code
CALL "MYPROGRAM"
DISPLAY "MYPROGRAM: Return-Code: " return-code

CANCEL "MYPROGRAM"

CALL "MYPROGRAM"
DISPLAY "MYPROGRAM: Return-Code: " return-code
See Also

Reference

MicroFocus.COBOL.RuntimeServices Namespace