OpenTP1 Version 7 Programming Reference COBOL Language
DISABLE - Terminate continuous-inquiry-response processing
Format
DATA DIVISION (communication description entry) specification
CD communication-description-name FOR I-O STORAGE [STATUS KEY IS data-name-1] |
PROCEDURE DIVISION specification
DISABLE communication-description-name. |
Description
DISABLE enables the following CALL interface facility:
Items specified in the communication description entry
Specify this clause to receive a status code. If this clause is omitted, a status code cannot be received.
Item specified in the communication statement
None
Status codes
Status code | Explanation |
---|---|
00000 | Normal termination. |
72000 | <Return at MHP execution> The DISABLE statement that terminates continuous-inquiry-response was used out of sequence. The DISABLE statement that terminates continuous-inquiry-response termination was used before the RECEIVE statement that receives first segment was called from the MHP. |
<Return at SPP execution> The DISABLE statement that terminates continuous-inquiry-response cannot be used from an SPP. |
|
72101 | The DISABLE statement that terminates continuous-inquiry-response was used from an MHP for which type=cont (continuous-inquiry-response type) was not specified in the MCF application definition. |
72107 | The DISABLE statement that terminates continuous-inquiry-response termination was already used. |
72111 | The SEND statement that sends response message in which the name of the continuous-inquiry-response type application to be activated next was specified was used, then the DISABLE statement that terminates continuous-inquiry-response was used. |
The SEND statement that starts application program in which the name of the continuous-inquiry-response type application to be activated next was specified was used, then the DISABLE statement that terminates continuous-inquiry-response was used. | |
Other than the above | An unprecedented error (e.g., program damage) occurred. |
All Rights Reserved. Copyright (C) 2006, 2010, Hitachi, Ltd.