OpenTP1 Version 7 Programming Reference COBOL Language
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' 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. |
All Rights Reserved. Copyright (C) 2006, 2010, Hitachi, Ltd.