OpenTP1 Version 7 TP1/Client User's Guide TP1/Client/W, TP1/Client/P
CALL 'CBLDCTRS' USING identifier-1
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.
CALL 'CBLDCTRN' USING identifier-1
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.
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 '). |
All Rights Reserved. Copyright (C) 2006, 2009, Hitachi, Ltd.