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
(), TPSVRINIT
()