OpenTP1 Version 7 Programming Reference COBOL Language

[Contents][Index][Back][Next]

CBLDCMCF('OPEN ') - Open the MCF environment

Format

PROCEDURE DIVISION specification

CALL  'CBLDCMCF'  USING  unique-name-1

DATA DIVISION specification

01  unique-name-1.
    02  data-name-A    PIC X(8) VALUE 'OPEN    '.
    02  data-name-B    PIC X(5).
    02  FILLER        PIC X(3).
    02  data-name-C    PIC S9(9) COMP.
    02  data-name-D    PIC X(12).

Description

CBLDCMCF('OPEN ') constructs the environment in which MCF facilities are used. Call CBLDCMCF('OPEN ') for UAPs which use MCF facilities (CBLDCMCF).

After CBLDCRPC('OPEN ') is called, CBLDCMCF('OPEN ') must be called in the main program. Call CBLDCMCF('OPEN ') only once in the process before CBLDCMCF('MAINLOOP') (CBLDCRSV('MAINLOOP') for an SPP). The following figure shows when to call CBLDCMCF('OPEN '):

CALL 'CBLDCRPC' (OPEN)
CALL 'CBLDCMCF' (OPEN)
CALL 'CBLDCMCF' (MAINLOOP)  (CALL 'CBLDCRSV' (MAINLOOP) for an SPP)
    :
    :
CALL 'CBLDCMCF' (CLOSE)
CALL 'CBLDCRPC' (CLOSE)

Data area whose value is set in the UAP

data-name-A

Specify 'VALUE 'OPEN[Figure]' for the request code indicating opening of the MCF environment.

Data areas to which values are returned from OpenTP1

data-name-B

A status code of 5 digits is returned.

data-name-C

Specify 0.

data-name-D

Specify LOW-VALUE.

Status codes

Status code Explanation
00000 Normal termination.
70900 The value specified for data-name-C is invalid.
70901 CBLDCRPC('OPEN ') was not called.
CBLDCMCF('OPEN ') was called.
70902 Initialization processing was unsuccessful.
70903 The memory became insufficient.
72016 The value specified for data-name-D is invalid.
72028 The value specified for data-name-A is invalid.