(a) In a multi-thread environment

PROCEDURE DIVISION

 
CALL 'CBLDCTRS' USING identifier-1
 

DATA DIVISION

 
01 identifier-1.
   02 data-name-A PIC X(8)  VALUE 'U-ROLL  '.
   02 data-name-B PIC X(5).
   02 FILLER     PIC X(3).
   02 data-name-C PIC 9(9) COMP.
 

(b) In a single-thread environment

PROCEDURE DIVISION

 
CALL 'CBLDCTRN' USING identifier-1
 

DATA DIVISION

 
01 identifier-1.
   02 data-name-A PIC X(8)  VALUE 'U-ROLL  '.
   02 data-name-B PIC X(5).
 

When CBLDCTRS('U-ROLL ') terminates normally, the global transaction terminates. Outside the scope of the global transaction, the SPP cannot execute as a transaction.

• data-name-A
  Set VALUE 'U-ROLL ' as a request code for indicating the rollback in unchained mode. The content of this area is unchanged for processing after the rollback statement in unchained mode.
  
• data-name-C
  Specify the client ID received with CBLDCCLS('CLTIN ') or CBLDCCLS('EXCLTIN ').
  

• data-name-B
  5-digit status code.
  

Status code	Meaning
00000	Normal termination
02501	The request code (data-name-A) may be invalid.
02502	The program is issued from an incorrect context.
02504	Insufficient memory
02506	Network error
02507	A timeout error occurred in the processing for CBLDCTRS('U-ROLL ').
02515	OpenTP1 is inactive.
02517	An insufficient memory condition occurred within the transaction process.
02518	System error
02542	The permanent connection has been released.
02544	The client ID specified for data-name-C differs from the one received with CBLDCCLS('CLTIN ') or CBLDCCLS('EXCLTIN ').
03403	Due to the heuristic determination, some or all transaction branches rolled back. See the message log file for details. After this status code returns, the process is outside the scope of the global transaction.
03404	The heuristic determination completed the transaction. But an error makes it impossible to determine the result. See the message log file for details. After this status code returns, the process is outside the scope of the global transaction.

To normally terminate a CUP process after rolling back the transaction, be sure to execute CBLDCTRS('U-ROLL ') to commit the transaction.