OpenTP1 Version 7 Programming Reference COBOL Language

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

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:

'RTRY': Processing between when the MHP is started and when CBLDCMCF('ROLLBACK') is called is canceled, and the canceled MHP processing is rescheduled (any received messages are stored at the end of the relevant input queue and the MHP is rescheduled). Control does not return from the rollback statement, and the process is terminated.

'RTN[Figure]': Processing between the MHP is started and when the CBLDCMCF('ROLLBACK') is called is canceled, and control returns. Processing after the normal return of the rollback with 'RTN[Figure]' specified is treated as another transaction.

'NRTN': Processing between the MHP is started and when the CBLDCMCF('ROLLBACK') is called is canceled. Control does not return from CBLDCMCF('ROLLBACK'), and the process is terminated.

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[Figure]' 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.