Section 3(cbl) - COBOL Functions

ATMI COBOL Function Reference

TPGETLEV(3cbl)

Name

TPGETLEV() - check if a BEA Tuxedo ATMI transaction is in progress

Synopsis

01 TPTRXLEV-REC.
 COPY TPTRXLEV. 
 
01 TPSTATUS-REC.
 COPY TPSTATUS. 
 
CALL "TPGETLEV" USING TPTRXLEV-REC TPSTATUS-REC.

Description

TPGETLEV() returns to the caller the current transaction level. Currently, the only levels defined are TP-NOT-IN-TRAN and TP-IN-TRAN.

Return Values

Upon successful completion, TPGETLEV() sets TP-STATUS to [TPOK] and sets values in TPTRXLEV-REC to either a TP-NOT-IN-TRAN to indicate that no transaction is in progress, or TP-IN-TRAN to indicate that a transaction is in progress.

Errors

Under the following conditions, TPGETLEV() fails and sets TP-STATUS to:

[TPEPROTO]

TPGETLEV() was called improperly.

[TPESYSTEM]

A BEA Tuxedo system error has occurred. The exact nature of the error is written to a log file.

[TPEOS]

An operating system error has occurred.

Notices

When using TPBEGIN(), TPCOMMIT(), and TPABORT() to delineate a BEA Tuxedo ATMI transaction, it is important to remember that only the work done by a resource manager that meets the XA interface (and is linked to the caller appropriately) has transactional properties. All other operations performed in a transaction are not affected by either TPCOMMIT() or TPABORT(). See buildserver(1) for details on linking resource managers that meet the XA interface into a server such that operations performed by that resource manager are part of a BEA Tuxedo ATMI transaction.