OpenTP1 Version 7 Programming Reference COBOL Language

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

CBLDCMCF('TONLN ') - Start accepting server-type connection establishment requests

Format

PROCEDURE DIVISION specification

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

DATA DIVISION specification

01 unique-name-1.
02 data-name-A PIC X(8) VALUE 'TONLN '.
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.

Description

CBLDCMCF('TONLN ') starts accepting server-type connection establishment requests.

Data areas whose values are set in the UAP

data-name-A

Specify VALUE 'TONLN[Figure]' for the request code indicating start of acceptance of connection establishment requests.

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 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.
71001 CBLDCMCF('TONLN ') cannot be accepted because MCF is under start processing.
71002 CBLDCMCF('TONLN ') cannot be accepted because MCF is under termination processing.
71004 A memory shortage occurred during CBLDCMCF('TONLN ') 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('TONLN ') is not supported by the applicable communication process.
71010 Although the request to start accepting server-type connection establishment requests 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.