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

TPSVRDONE() - BEA Tuxedo system server termination routine

01 TPSTATUS-REC.
 COPY TPSTATUS. 
PROCEDURE DIVISION. 
* User code 
EXIT PROGRAM.

The BEA Tuxedo system server abstraction calls TPSVRDONE() after it has finished processing service requests but before it exits. When this routine is invoked, the server is still part of the system but its own services have been unadvertised. Thus, BEA Tuxedo system communication can be performed and transactions can be defined in this routine. However, if TPSVRDONE() returns with open connections, asynchronous replies pending or while still in transaction mode, the BEA Tuxedo system will close its connections, ignore any pending replies and rollback the transaction before the server exits.

If an application does not provide this routine in a server, then the default version provided by the BEA Tuxedo system is called instead. The default TPSVRDONE() calls TPCLOSE() and USERLOG() to announce that the server is about to exit.

If either TPRETURN() or TPFORWAR() are called in TPSVRDONE(), then these routines simply return having no effect.

TPCLOSE(3cbl), TPSVRINIT(3cbl)