OpenTP1 Version 7 Programming Reference COBOL Language

[Contents][Index][Back][Next]

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

Format

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

Description

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 area whose values are set in the UAP

data-name-A

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

data-name-C

Specify LOW-VALUE.

Data area to which a value is returned from OpenTP1

data-name-B

A status code of 5 digits is returned.

Status codes

Status code Explanation
00000 Normal termination.
72000 Return at MHP execution:
The MHP called CBLDCMCF('CONTEND ') before CBLDCMCF('RECEIVE') for receiving the first segment.
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.
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.