PROCEDURE DIVISION specification

CALL 'CBLDCMCF' USING unique-name-1 unique-name-2 unique-name-3

DATA DIVISION specification

01 unique-name-1. 02 data-name-A PIC X(8) VALUE 'TLSLN '. 02 data-name-B PIC X(5). 02 FILLER PIC X(3). 02 data-name-C PIC X(4) VALUE SPACE. 02 data-name-D PIC X(28) VALUE SPACE. 02 data-name-E PIC 9(9) COMP. 02 data-name-F PIC X(64) VALUE SPACE. 02 data-name-G PIC X(8) VALUE SPACE. 02 data-name-H PIC X(8) VALUE SPACE. 02 data-name-I PIC X(144) VALUE SPACE. 02 data-name-J PIC X(184) VALUE SPACE. 02 data-name-K PIC 9(9) COMP VALUE ZERO. 01 unique-name-2. 02 data-name-L PIC 9(9) COMP VALUE ZERO. 01 unique-name-3. 02 data-name-M PIC 9(9) COMP VALUE 1. 02 unique-name-4. 03 data-name-N PIC X(4). 03 data-name-O PIC X(60) VALUE LOW-VALUE.

CBLDCMCF('TLSLN ') acquires the acceptance status for a server-type connection establishment request.

data-name-A

Specify VALUE 'TLSLN'for the request code indicating acquisition of acceptance status for a connection establishment request.

data-name-C, data-name-D

Specify a space.

data-name-E

Specify the MCF communication process identifier of the MCF communication service that is to be processed. The permitted value range is from 1 to 239.

data-name-F, data-name-G, data-name-H, data-name-I, data-name-J

Specify a space.

data-name-K, data-name-L

Specify 0.

data-name-M

Specify 1.

data-name-O

This is an area used by MCF.

data-name-B

A status code of 5 digits is returned.

data-name-N

Sets one of the following values as the acceptance status of the server-type connection establishment request:

'LSTN'

The acceptance process for the server-type connection establishment request has started.

'RTRY'

The acceptance process for the server-type connection establishment request is under start processing.

'ON_W'

The acceptance process for the server-type connection establishment request is in start request wait status.

'INIT'

The acceptance process for the server-type connection establishment request has ended.

The table below shows the relationship between the status and function availability.

Value of data-name-N	Available COBOL-UAP creation program
	CBLDCMCF('TONLN ')	CBLDCMCF('TOFLN ')
LSTN	N	Y
RTRY	N	Y
ON_W	Y	Y
INIT	Y	N

Legend:

Y: Can be used

N: Cannot be used

Status code	Explanation
00000	Normal termination.
71001	CBLDCMCF('TLSLN ') cannot be accepted because MCF is under start processing.
71002	CBLDCMCF('TLSLN ') cannot be accepted because MCF is under termination processing.
71004	A memory shortage occurred during CBLDCMCF('TLSLN ') processing.
71005	A communication error occurred. For the cause, see the message log file.
71006	An internal error occurred. For the cause, see the message log file.
71009	CBLDCMCF('TLSLN ') is not supported by the applicable communication process.
71010	Although the request to acquire the acceptance status of the server-type connection establishment request was issued to the MCF communication process, the request was not accepted. For the cause, see the message log file.
72028	The value specified for data-name-A is invalid.
72052	A nonzero value is specified for data-name-K.
72053	A nonzero value is specified for data-name-L.
72058	The value specified for data-name-C is not a space.
72059	The value specified for data-name-D is not a space.
72061	A value of 0 or smaller or greater than 239 is specified for data-name-E.
72065	The value specified for data-name-F is not a space.
72066	The value specified for data-name-G is not a space.
72068	The value specified for data-name-H is not a space.
72070	The value specified for data-name-I is not a space.
72072	The value specified for data-name-J is not a space.
72076	The value 1 is not specified for data-name-M.