(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 'INFO    '.
   02 data-name-B   PIC X(5).
   02 FILLER       PIC X(1).
   02 data-name-C
     03 data-name-D PIC S9(4) COMP VALUE ZERO.
   02 data-name-E   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 'INFO    '.
   02 data-name-B   PIC X(5).
   02 FILLER       PIC X(1).
   02 data-name-C
     03 data-name-D   PIC S9(4) COMP VALUE ZERO.
 

Checks if the CUP that issued CBLDCTRS('INFO ') is currently working as a transaction.

• data-name-A
  Set VALUE 'INFO ' as the request code for indicating the report of information about the current transaction.
  
• data-name-C
  Place 0 in this area that stores information about the current transaction.
  
• data-name-D
  Set to 0 the length of an area that stores information about the current transaction. The length should exclude the length of data-name-D itself.
  
• data-name-E
  Specify the client ID received with CBLDCCLS('CLTIN ') or CBLDCCLS('EXCLTIN ').
  

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

Status code	Meaning
00001	The CUP process that executed CBLDCTRS('INFO ') is outside the scope of the transaction.
00000	The CUP process that executed CBLDCTRS('INFO ') is within the scope of the transaction.
02501	The request code (data-name-A) may be invalid.
02544	The client ID specified for data-name-E differs from the one received with CBLDCCLS('CLTIN ') or CBLDCCLS('EXCLTIN ').