IDENT  LOGT
          ENTRY  LOGT
          LCC    OVERLAY(LOGT,0,0)
*COMMENT  LOGT - LOGOUT TRANSACTION TERMINAL.
          COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
 LOGT     TITLE  LOGT - LOGOUT TRANSACTION TERMINAL.
          SPACE  4
***       LOGOUT TRANSACTION TERMINAL.
*         W.E. MARTIN.       04/15/77.
          SPACE  4
***       LOGT LOGS A TERMINAL OUT OF TRANSACTION MODE BY
*         SENDING A MESSAGE TO THE TERMINAL TELLING THE USER THAT
*         THE SESSION IS ENDED, AND THEN USING THE *LOGT* MACRO,
*         REQUESTS THE TRANSACTION EXECUTIVE TO INFORM THE
*         TELE-PROCESSING EXECUTIVE TO RETURN THAT TERMINAL TO THE
*         APPROPRIATE SUBSYSTEM.  NOTE - THIS ROUTINE WILL NOT ACTUALLY
*         LOG A TERMINAL OUT OF THE COMPUTER SYSTEM, BUT LOGICALLY
*         OUT OF THE TRANSACTION SUBSYSTEM.


*         COMMON TEXT DEFINITION.


*CALL     COMKMAC
*CALL     COMSPRD


*         PROGRAM EQUATES AND SYMBOLS.


          TRXCOM B1          DEFINE COMMUNICATION BLOCK SYMBOLS.

***       COMMUNICATION BLOCK HEADER WORDS.
*
*T  SEQC  12/     DB,24/      UA,24/      SEQ
*T, TERC  42/     TN,18/0
*
*         DB  =  DATA BASE FOR TERMINAL.
*         UA  =  USER ARGUMENT FIELD FOR TERMINAL.
*         SEQ =  TRANSACTION SEQUENCE NUMBER.
*         TN  =  TERMINAL NAME.


          BSS    COMCL       RESERVE SPACE FOR COMMUNICATION BLOCK


 LOGT     SA1    TERC        CHECK FOR NON-TERMINAL ASSOCIATED TASK
          MX0    42
          BX0    X0*X1
          ZR     X0,LOG1     IF NOT TERMINAL ORIGINATED
          SEND   LOGA        SEND MESSAGE
 LOG1     LOGT               LOG OUT OF TRANSACTION MODE
          CEASE  0

 LOGA     FMSG   (END TRANSACTION SESSION.),,O
          END    LOGT