CALL 'CBLDCTRS' USING 一意名1
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.
CALL 'CBLDCTRN' USING 一意名1
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が現在トランザクションとして稼働しているかどうかを報告します。
ステータスコード | 意味 |
---|---|
00001 | CBLDCTRS('INFO ')を実行したCUPのプロセスは,トランザクションの範囲内にあります。 |
00000 | CBLDCTRS('INFO ')を実行したCUPのプロセスは,トランザクションの範囲外にあります。 |
02501 | 要求コード(データ名A)に指定した値が間違っています。 |
02544 | データ名Eに指定したクライアントIDはCBLDCCLS('CLTIN '),またはCBLDCCLS('EXCLTIN ')で受け取ったクライアントIDと異なっています。 |