OpenTP1 Version 7 Programming Reference COBOL Language
CBLDCUTO('T-STATUS') - Report the test status of a user server
Format
PROCEDURE DIVISION specification
CALL 'CBLDCUTO' USING unique-name-1 unique-name-2 |
DATA DIVISION specification
01 unique-name-1. 02 data-name-A PIC X(8) VALUE 'T-STATUS'. 02 data-name-B PIC X(5). 02 FILLER PIC X(3). 02 data-name-Z PIC S9(9) COMP VALUE ZERO. 01 unique-name-2. 02 data-name-C PIC X(4). 02 data-name-D PIC X(1). 02 data-name-E PIC X(1). 02 data-name-F PIC X(1). 02 data-name-G PIC X(1). 02 data-name-H PIC X(1). 02 FILLER PIC X(22). |
Description
CBLDCUTO('T-STATUS') reports the test status of the user server that called CBLDCUTO('T-STATUS'). When CBLDCUTO('T-STATUS') terminates normally, the test status is set to data-name-D, data-name-E, data-name-F, data-name-G, and data-name-H. If CBLDCUTO('T-STATUS') returns with an error, the test status information is not guaranteed.
Data areas whose values are set in the UAP
data-name-A
Specify VALUE 'T-STATUS' for the request code indicating the report of the test status of a user server.
data-name-Z
Specify 0.
Data areas to which values are returned from OpenTP1
data-name-B
The status code of 5 digit is returned.
data-name-C
The test user ID (the value specified for the environment variable DCUTOKEY) is set here.
data-name-D
Whether the user server is operating in test mode or not is set here.
VALUE 'T': The user server is operating in test mode.
VALUE 'N': The user server is not operating in test mode.
data-name-E
The status of global transaction processing is set here.
VALUE 'C': The global transaction is committed in synchronization point processing.
VALUE 'R': The global transaction is rolled back in synchronization point processing.
VALUE 'N': Non-transaction status
Space: The user server is not in test mode or an MHP linked to the MCF library is used.
data-name-F
The test type specified for test_mode operand in the user service definition is set here.
VALUE 'T': Test as UAP only for testing (target)
VALUE 'U': Test as usable UAP (usable)
VALUE 'S': Test as simulate MHP (simmhp)
VALUE 'N': MHP not intended for test (no)
data-name-G
The handling of the synchronization point of transaction specified for test_transaction_commit operand in the user service definition is set here.
VALUE 'C': The transaction is committed at synchronization point (Y).
VALUE 'R': The transaction is rolled back at synchronization point (N).
Space: The user server is not in test mode or an MHP linked to the MCF library is used.
data-name-H
The handling of the results of command execution specified for test_adm_call_command operand in the user service definition is set here.
VALUE 'D': The command is executed. (do)
VALUE 'S': An assumed value is specified as the results of execution. (skip)
VALUE 'F': Data from the operation command data results file is used. (file)
Space: The user server is not in test mode or an MHP linked to the MCF library is used.
Status codes
Status code | Explanation |
---|---|
00000 | Normal termination. The test status is set to each data area. |
02701 | CBLDCRPC('OPEN ') was not called. |
02734 | The version of the OpenTP1 library linked to the UAP does not allow the UAP to operate with the current transaction service. |
02757 | The value specified for data-name-Z is invalid. |
02759 | The request code (data-name-A) is invalid. |
Note
When CBLDCUTO('T-STATUS') is called from the MHP linked to the MCF library, the following values are set to each data area:
All Rights Reserved. Copyright (C) 2006, 2010, Hitachi, Ltd.