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.

CBLDCMCF('TLSCOM ') acquires the statuses of the MCF communication services or application start services.

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-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.

'MCF'

Application start service for TP1/Message Control

'UserAgent'

TP1/NET/User Agent (OSAS/UA protocol)

'HDLC'

TP1/NET/HDLC (HDLC protocol)

'X25'

TP1/NET/X25 (X.25 protocol)

'TP'

TP1/NET/OSI-TP (OSI TP protocol)

'XMAP3'

TP1/NET/XMAP3

'HSC'

TP1/NET/HSC (HSC protocol)

'NCSB'

TP1/NET/NCSB (NCSB protocol)

'OSAS-NIF'

TP1/NET/OSAS-NIF (NIF/OSI protocol)

'NET/SLUP2'

TP1/NET/Secondary Logical Unit - TypeP2 (SLUTYPE-P protocol (secondary station))

'TCP/IP'

TP1/NET/TCP/IP (TCP/IP protocol)

'X25-EX'

TP1/NET/X25-Extended (X.25 protocol)

'UDP/IP'

TP1/NET/User Datagram Protocol (UDP protocol)

data-name-Q

Sets one of the following values as the status of the MCF communication service or application start service:

'OFFLINE'

Service is stopped.

'STARTING'

Service is under preparation processing.

'ONLINE'

Service has started or is under preparation processing for termination.

'PREENDING'

Service is under preparation processing for terminating partial stop.

'ENDING'

Service is under stop processing.

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.