TPSVRDONE(3cbl)


	BEA Home \| Events \| Solutions \| Partners \| Products \| Services \| Download \| Developer Center \| WebSUPPORT
	http://www.oracle.com/technology/documentation/index.html \| Site Map \| Search \| PDF Files \| Contact \| Glossary

Tuxedo Documentation \| COBOL Function Reference \| Local Topics \| Previous Topic \| Next Topic \| Contents

TPSVRDONE(3cbl)

Name

TPSVRDONE() - BEA Tuxedo ATMI server termination routine

Synopsis

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

Description

The BEA Tuxedo ATMI 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 ATMI 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 roll back 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.

Usage

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