(a) In a multi-thread environment

PROCEDURE DIVISION

 
CALL 'CBLDCCLS' USING identifier-1
 

DATA DIVISION

 
01 identifier-1.
   02 data-name-A PIC X(8)  VALUE 'GETTRNID'.
   02 data-name-B PIC X(5).
   02 FILLER     PIC X(3).
   02 data-name-C PIC X(17).
   02 data-name-D PIC X(17).
   02 FILLER     PIC X(2).
   02 data-name-E PIC 9(9) COMP.
 

(b) In a single-thread environment

PROCEDURE DIVISION

 
CALL 'CBLDCCLT' USING identifier-1
 

DATA DIVISION

 
01 identifier-1.
   02 data-name-A PIC X(8)  VALUE 'GETTRNID'.
   02 data-name-B PIC X(5).
   02 FILLER     PIC X(3).
   02 data-name-C PIC X(17).
   02 data-name-D PIC X(17).
   02 data-name-E PIC 9(9) COMP.
 

Collects the current transaction global identifier and transaction branch identifier.

OpenTP1 allocated these identifiers when any of the following programs started the transaction.

• CBLDCTRS('BEGIN ')
• CBLDCTRS('C-COMMIT')
• CBLDCTRS('C-ROLL ')

• data-name-A
  Set VALUE 'GETTRNID' as a request code for collecting identifiers for the current transaction.
  
• data-name-E
  Specify the client ID received with CBLDCCLS('CLTIN ') or CBLDCCLS('EXCLTIN ').
  

• data-name-B
  5-digit status code.
  
• data-name-C
  Transaction global identifier.
  
• data-name-D
  Transaction branch identifier.
  

Status code	Meaning
00000	Normal termination
02501	Invalid value for the data name. The request code (data-name-A) may be invalid.
02502	The program is issued from an incorrect context.
02504	Insufficient memory
02544	The client ID specified for data-name-E differs from the one received with CBLDCCLS('CLTIN ') or CBLDCCLS('EXCLTIN ').