OpenTP1 Version 7 Programming Reference COBOL Language
CBLDCMCF('TLSLN ') - Acquire the acceptance status for a server-type connection establishment request
Format
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. |
Description
CBLDCMCF('TLSLN ') acquires the acceptance status for a server-type connection establishment request.
Data areas whose values are set in the UAP
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 area to which a value is returned from OpenTP1
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:
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 |
Status codes
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. |
All Rights Reserved. Copyright (C) 2006, 2010, Hitachi, Ltd.