OpenTP1 Version 7 Programming Reference COBOL Language
CBLDCMCF('TLSCOM ') - Acquire status of MCF communication services
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 'TLSCOM '. 02 data-name-B PIC X(5). 02 FILLER PIC X(3). 02 data-name-C PIC X(4). 02 data-name-D PIC X(28) VALUE SPACE. 02 data-name-E PIC 9(9) COMP VALUE ZERO. 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. 02 unique-name-4. 03 data-name-N PIC 9(9) COMP. 03 data-name-O PIC X(8). 03 data-name-P PIC X(20). 03 data-name-Q PIC X(12). 03 data-name-R PIC X(20) VALUE LOW-VALUE. : 02 unique-name-n. 03 data-name-N PIC 9(9) COMP. 03 data-name-O PIC X(8). 03 data-name-P PIC X(20). 03 data-name-Q PIC X(12). 03 data-name-R PIC X(20) VALUE LOW-VALUE. |
Description
CBLDCMCF('TLSCOM ') acquires the statuses of the MCF communication services or application start services.
Data areas whose values are set in the UAP
data-name-A
Specify VALUE 'TLSCOM' for the request code indicating aquisition of MCF communication service status or application start service status.
data-name-C, data-name-D
Specify a space.
data-name-E
Specify 0.
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 the number of unique names from unique-name-4 to unique-name-n (number of sets of data-name-N, data-name-O, data-name-P, data-name-Q, and data-name-R).
When the processing is completed, the number of MCF communication services or application start services that have been registered in the MCF service is returned.
data-name-R
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-M
Returns the number of MCF communication services or application start services that have been registered in the MCF service.
data-name-N
Sets an MCF communication process identifier or application start process identifier.
data-name-O
Sets the MCF communication service name.
data-name-P
Sets the protocol type.
data-name-Q
Sets one of the following values as the status of the MCF communication service or application start service:
Status codes
Status code | Explanation |
---|---|
00000 | Normal termination. |
71001 | CBLDCMCF('TLSCOM ') cannot be accepted because MCF is under start processing. |
71004 | A memory shortage occurred during CBLDCMCF('TLSCOM ') 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. |
72013 | The number of MCF communication services or application start services exceeded the value specified in data-name-M. Information about the excess services was discarded. |
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 nonzero value 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 | A value of 0 or smaller is specified for data-name-M. |
All Rights Reserved. Copyright (C) 2006, 2010, Hitachi, Ltd.