CBLDCMCF('CONTEND ') - Terminate continuous-inquiry-response processing

PROCEDURE DIVISION specification

CALL  'CBLDCMCF'  USING  unique-name-1

DATA DIVISION specification

01  unique-name-1.
    02  data-name-A    PIC X(8) VALUE 'CONTEND '.
    02  data-name-B    PIC X(5).
    02  FILLER        PIC X(3).
    02  data-name-C    PIC X(16).

CBLDCMCF('CONTEND ') terminates continuous-inquiry-response processing. Before terminating continuous-inquiry-response processing, verify that data-name-R of CBLDCMCF('REPLY ') called from the MHP indicates space and that CBLDCMCF('EXECAP ') for activating a cont type MHP has not been called. If the MHP to be activated next is specified for data-name-R of CBLDCMCF('REPLY ') or if CBLDCMCF('EXECAP ') for activating a cont type MHP has been called, CBLDCMCF('CONTEND ') returns with an error.

After CBLDCMCF('CONTEND ') is called, temporary-stored data cannot be accessed.

data-name-A

Specify 'VALUE 'CONTEND [Figure] ' for the request code indicating termination of continuous-inquiry-response processing.

data-name-C

Specify LOW-VALUE.

Status code	Explanation
00000	Normal termination.
72000	Return at MHP execution: The MHP called CBLDCMCF('CONTEND ') before CBLDCMCF('RECEIVE') for receiving the first segment.
72000	Return at SPP execution: CBLDCMCF('CONTEND ') cannot be called by SPPs.
72016	The value specified for data-name-C is invalid.
72028	The value specified for data-name-A is invalid.
72101	CBLDCMCF('CONTEND ') was called by an MHP which is not continuous-inquiry-response type (type=cont).
72107	CBLDCMCF('CONTEND ') has already been called.
72111	The cont type application to be activated next was specified, CBLDCMCF('REPLY ') was called, then CBLDCMCF('CONTEND ') was called.
72111	The cont type application to be activated next was specified, CBLDCMCF('EXECAP ') was called, then CBLDCMCF('CONTEND ') was called.
Other than the above	An unprecedented error (e.g., program damage) occurred.