OpenTP1 Version 7 Programming Reference COBOL Language

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

CBLDCMCF('CLOSE ') - Close 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 'CLOSE   '.
    02  data-name-B    PIC X(5).
    02  FILLER        PIC X(3).
    02  data-name-C    PIC S9(9).
    02  data-name-D    PIC X(12).

Description

CBLDCMCF('CLOSE ') closes the environment in which MCF facilities are used. Call CBLDCMCF('CLOSE ') only once in the process before the UAP that called CBLDCMCF('OPEN ') calls CBLDCRPC('CLOSE ') in the main program.

Data area whose values are set in the UAP

data-name-A

Specify VALUE 'CLOSE[Figure]' for the request code indicating MHP termination.

data-name-C

Specify 0.

data-name-D

Specify LOW-VALUE.

Data area to which a value is returned from OpenTP1

data-name-B

A status code of 5 digits is returned.

Status codes

Status code Explanation
00000 Normal termination.
72016 The value specified for data-name-D is invalid.
72028 The value specified for data-name-A is invalid.
Other than the above An unprecedented error (e.g., program damage) occurred.