OpenTP1 Version 7 Programming Reference COBOL Language
CBLDCMCF('ROLLBACK') - Enable MHP rollback
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 'ROLLBACK'. 02 data-name-B PIC X(5). 02 FILLER PIC X(3). 02 data-name-C PIC X(4). 02 data-name-D PIC X(12). |
Description
CBLDCMCF('ROLLBACK') cancels processing between when the MHP service program that defines the transaction attribute is started and when the rollback is required. If 'RTRY' is specified for data-name-C, processing between when the MHP is started and when the rollback is called is canceled, and the canceled MHP processing is rescheduled.
Data areas whose values are set in the UAP
data-name-A
Specify VALUE 'ROLLBACK' for the request code indicating partial recovery.
data-name-C
Specify the type of rollback. The following values are available:
data-name-D
Specify LOW-VALUE.
Data area whose 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('ROLLBACK') with 'RTN' specified for data-name-C before CBLDCMCF('RECEIVE') for receiving the first segment. CBLDCMCF('ROLLBACK') was called by an MHP with the nontransaction attribute. |
<Return at SPP execution> CBLDCMCF('ROLLBACK') cannot be called from an SPP. |
|
72016 | The value specified for data-name-D is invalid. |
72027 | The value specified for data-name-C (type of rollback) is invalid. |
72028 | The value specified for data-name-A is invalid. |
Other than the above | An unprecedented error (e.g., program damage) occurred. |
All Rights Reserved. Copyright (C) 2006, 2010, Hitachi, Ltd.