CBLDCMCF('TDLQLE ') - Delete a logical terminal's output queue

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

Description

CBLDCMCF('TDLQLE ') deletes a logical terminal's output queue.

When the function deletes the output queue successfully, it sends an MCF event that reports discarding of an unprocessed send mesage (ERREVTA).

Data areas whose values are set in the UAP

data-name-A

Specify VALUE 'TDLQLE[Figure]' for the request code indicating deletion of a logical teminal's output queue.

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 logical terminal name 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 output queue is to be deleted. 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 area to which a value is returned from OpenTP1

data-name-B

A status code of 5 digits is returned.

Status codes

Status codeExplanation
00000Normal termination.
71001CBLDCMCF('TDLQLE ') cannot be accepted because MCF is under start processing.
71002CBLDCMCF('TDLQLE ') cannot be accepted because MCF is under termination processing.
71004A memory shortage occurred during CBLDCMCF('TDLQLE ') processing.
71005A communication error occurred. For the cause, see the message log file.
71006An internal error occurred. For the cause, see the message log file.
71008The specified logical terminal name has not been registered.
71009CBLDCMCF('TDLQLE ') is not supported by the applicable communication process.
71010Although the request to delete the logical terminal's output queue was issued to the MCF communication process, the request was not accepted. For the cause, see the message log file.
71011CBLDCMCF('TDLQLE ') cannot be accepted because the logical terminal has been deleted.
71017CBLDCMCF('TDLQLE ') cannot be accepted because the logical terminal has not been shut down.
71018CBLDCMCF('TDLQLE ') cannot be accepted because the session has not been closed.
71019CBLDCMCF('TDLQLE ') cannot be accepted because an alternate send operation is under way.
72028The value specified for data-name-A is invalid.
72052A nonzero value is specified for data-name-K.
72053A nonzero value is specified for data-name-L.
72058The value specified for data-name-C is not a space.
72059The value specified for data-name-D is not a space.
72061A value smaller than 0 or greater than 239 is specified for data-name-E.
72063data-name-F1 begins with a space.
72065The value specified for data-name-F2 is not a space.
72066The value specified for data-name-G is not a space.
72068The value specified for data-name-H is not a space.
72070The value specified for data-name-I is not a space.
72072The value specified for data-name-J is not a space.
72074The character string specified for data-name-F1 contains an invalid character.