Corporate Info  |  News  |  Solutions  |  Products  |  Partners  |  Services  |  Events  |  Download  |  How To Buy
	http://www.oracle.com/technology/documentation/index.html   |   Site Map   |   Search   |   PDF Files   |   Contact   |   Glossary
Tuxedo Doc Home   |   Reference   |   Topic List   |   Previous   |   Next   |   Contents

   BEA Tuxedo COBOL Function Reference

TPGETCTXT() - retrieves a context identifier for the current application association

01 TPCONTEXTDEF-REC.
   COPY TPCONTEXTDEF.
 
01 TPSTATUS-REC.
   COPY TPSTATUS.
 
CALL "TPGETCTXT" USING TPCONTEXTDEF-REC TPSTATUS-REC.

TPGETCTXT() retrieves an identifier that represents the current application context and places that identifier in CONTEXT in TPCONTEXTDEF-REC. Typically, a COBOL application

1. Calls TPINITIALIZE() with the TP-MULTI-CONTEXTS flag set.

2. Calls TPGETCTXT() and saves the TPCONTEXTDEF-REC.

3. Calls TPINITIALIZE(), again with the TP-MULTI-CONTEXTS flag.

4. Calls TPGETCTXT() again and saves the returned context.

5. Calls TPSETCTXT() to switch back to the first context.

TPGETCTXT() may be called in single-context applications as well as in multicontext applications.

Upon successful completion, TPGETCTXT sets TP-STATUS to [TPOK] and places the program's context identifier in CONTEXT in TPCONTEXTDEF-REC. CONTEXT is set to the current context ID, which may be represented by either:

• An actual context ID

• TPNULLCONTEXT, indicating that this program is not currently associated with a context

  Note: TPINVALIDCONTEXT cannot be returned in COBOL programs because this value is possible only in multithreaded programs.

Errors

Upon failure, TPGETCTXT sets TP-STATUS to one of the following values.

[TPEINVAL]

Invalid arguments have been given.

[TPESYSTEM]

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

[TPEOS]

An operating system error has occurred.

Introduction to the COBOL Application-Transaction Monitor Interface, TPSETCTXT(3cbl)