OpenTP1 Version 7 Programming Reference COBOL Language
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' 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. |
All Rights Reserved. Copyright (C) 2006, 2010, Hitachi, Ltd.