ACUCOBOL-GT's support for MPE files is not enabled by default. If you want to enable/disable support, you can include or remove it from the runtime by performing the following steps.
#define USE_VISION 1 #define USE_RMS 0 #define USE_CISAM 0 #define USE_BTRIEVE 0 #define USE_INFORMIX 0 #define USE_MPE 1
Set a value in the list to "0" (zero) to disable that system, or to "1" (one) to enable it. The file systems that are set to "1" are the ones you plan to link and use. Any or all may be enabled at the same time; the more systems you link, the larger your runtime system becomes.
FSI_SUBS = ksam.o
To remove support for KSAM, remove ksam.o from FSI_SUBS.
To link the runtime, enter:
make
This compiles sub.c and filetbl.c, and then links the runtime.
DEFAULT_FILESYSTEM MPE
You can override this default in your programs via the SET ENVIRONMENT statement or by setting the filename_HOST variable.
The interface is now in place. To ensure that ACUCOBOL-GT is writing and reading records via KSAM, move to the directory containing the sample program iobench. Create a temporary configuration file named temp.ttt. In this file, place one line:
DEFAULT_FILESYSTEM MPE
At the system prompt, type:
:runcbl "-v" :ccbl "-x -Cr -Si ACU iobench.cbl" :runcbl "-c temp.ttt"
This displays the version number of the interface and then compiles and executes a sample program that generates several file I/O activities.
We use the file temp.ttt to prevent the runtime system from using your usual cblconfig file. This ensures that the iobench program creates its files in the current directory.