Skip navigation.

ATMI COBOL Function Reference

  Previous Next vertical dots separating previous/next from contents/index/pdf Contents View as PDF   Get Adobe Reader

 


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.

See Also

TPABORT(3cbl), TPBEGIN(3cbl), TPCOMMIT(3cbl), TPSCMT(3cbl)

 

Skip navigation bar  Back to Top Previous Next