OpenTP1 Version 7 Programming Reference COBOL Language

[Contents][Index][Back][Next]

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: