LOGT
          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 
