OpenTP1 Version 7 Programming Reference COBOL Language
CBLDCMCF('TOFLN ') - Stop 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 'TOFLN '. 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('TOFLN ') stops accepting server-type connection establishment requests.
Data areas whose values are set in the UAP
data-name-A
Specify VALUE 'TOFLN' for the request code indicating that acceptance of connection establishment requests is to be stopped.
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('TOFLN ') cannot be accepted because MCF is under start processing. |
71002 | CBLDCMCF('TOFLN ') cannot be accepted because MCF is under termination processing. |
71004 | A memory shortage occurred during CBLDCMCF('TOFLN ') 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('TOFLN ') is not supported by the applicable communication process. |
71010 | Although the request to stop 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. |
All Rights Reserved. Copyright (C) 2006, 2010, Hitachi, Ltd.