(a)　マルチスレッド環境の場合

●PROCEDURE DIVISIONの指定

 
CALL 'CBLDCTRS' USING 一意名1
 

●DATA DIVISIONの指定

 
01 一意名1.
   02 データ名A  PIC X(8) VALUE 'INFO    '.
   02 データ名B  PIC X(5).
   02 FILLER    PIC X(1).
   02 データ名C.
     03 データD  PIC S9(4) COMP VALUE ZERO.
   02 データ名E  PIC 9(9) COMP.
 

(b)　シングルスレッド環境の場合

●PROCEDURE DIVISIONの指定

 
CALL 'CBLDCTRN' USING 一意名1
 

●DATA DIVISIONの指定

 
01 一意名1.
   02 データ名A  PIC X(8)  VALUE 'INFO    '.
   02 データ名B  PIC X(5).
   02 FILLER    PIC X(1).
   02 データ名C.
     03 データD  PIC S9(4) COMP VALUE ZERO.
 

CBLDCTRS('INFO ')を発行したCUPが現在トランザクションとして稼働しているかどうかを報告します。

• データ名A
  現在のトランザクションに関する情報の報告を示す要求コードを「VALUE 'INFO△△△△'」と設定します。
  
• データ名C
  現在のトランザクションに関する情報を格納する領域です。0を設定します。
  
• データ名D
  現在のトランザクションに関する情報を格納する領域の長さを設定します。
  データ名D自身の長さを除きます。0を設定します。
  
• データ名E
  CBLDCCLS('CLTIN ')，またはCBLDCCLS('EXCLTIN ')で受け取ったクライアントIDを指定します。
  

• データ名B
  ステータスコードが，5けたの数字で返されます。
  

ステータスコード	意味
00001	CBLDCTRS('INFO ')を実行したCUPのプロセスは，トランザクションの範囲内にあります。
00000	CBLDCTRS('INFO ')を実行したCUPのプロセスは，トランザクションの範囲外にあります。
02501	要求コード（データ名A）に指定した値が間違っています。
02544	データ名Eに指定したクライアントIDはCBLDCCLS('CLTIN ')，またはCBLDCCLS('EXCLTIN ')で受け取ったクライアントIDと異なっています。