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.