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 'TLSLE '. 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-F1 PIC X(8). 02 data-name-F2 PIC X(56) 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 X(8). 03 data-name-O PIC X(4) VALUE LOW-VALUE. 03 data-name-P PIC X(4). 03 data-name-Q PIC X(40) VALUE LOW-VALUE.

CBLDCMCF('TLSLE ') acquires a logical terminal's status.

data-name-A

Specify VALUE 'TLSLE' for the request code indicating acquisition of logical terminal status.

data-name-C, data-name-D

Specify a space.

data-name-E

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

If you specify 0, the system searches for the MCF communication service to which the specified connection ID belongs. In a configuration where many MCF communication services are running or when you issue this function many times from a UAP, we recommend that you specify the MCF communication process identifier.

data-name-F1

Specify the name of the logical terminal whose status is to be acquired. Express the logical terminal name as a maximum of 8 bytes. If the specified name is shorter than 8 bytes, pad the name with trailing spaces.

data-name-F2, 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 as 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, and data-name-Q).

When the processing is completed, the number of corresponding logical terminals is returned.

data-name-O, data-name-Q

This is an area used by MCF.

data-name-B

A status code of 5 digits is returned.

data-name-M

The number of logical terminals processed by this function is returned.

data-name-N

Sets the name of the requested logical terminal.

data-name-P

Sets one of the following values as the status of the requested logical terminal:

'ACT'

Logical terminal has been released from shutdown status.

'DCT'

Logical terminal has been shut down.

Status code	Explanation
00000	Normal termination.
71001	CBLDCMCF('TLSLE ') cannot be accepted because MCF is under start processing.
71004	A memory shortage occurred during CBLDCMCF('TLSLE ') 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.
71008	The specified logical terminal name has not been registered.
71009	CBLDCMCF('TLSLE ') is not supported by the applicable communication process.
71010	Although the request to acquire the logical terminal status was issued to the MCF communication process, the request was not accepted. For the cause, see the message log file.
71011	CBLDCMCF('TDLQLE ') cannot be accepted because the logical terminal has been deleted.
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 smaller than 0 or greater than 239 is specified for data-name-E.
72063	data-name-F1 begins with a space.
72065	The value specified for data-name-F2 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.
72074	The character string specified for data-name-F1 contains an invalid character.
72076	The value 1 is not specified for data-name-M.