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