ATMI COBOL Function Reference
TPSVRDONE()
- BEA Tuxedo ATMI server termination routine
01
TPSTATUS-REC
.
COPY TPSTATUS.
PROCEDURE DIVISION.
* User code
EXIT PROGRAM.
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.
If either TPRETURN()
or TPFORWAR()
are called in TPSVRDONE()
, then these routines simply return having no effect.