Deck LOGT

1 Modification

Source

Seq #  *Modification Id* Act 
----------------------------+
00001  M01S00001.logt    +++|          IDENT  LOGT
00002  M01S00002.logt    +++|          ENTRY  LOGT
00003  M01S00003.logt    +++|          LCC    OVERLAY(LOGT,0,0)
00004  M01S00004.logt    +++|*COMMENT  LOGT - LOGOUT TRANSACTION TERMINAL.

Line S00005 Modification History
`M01` (Added by)	`logt`
`M02` (Updated by)	`281l803`

Seq #  *Modification Id* Act 
----------------------------+
00005  M02S00005.281l803 ---|          COMMENT  COPYRIGHT CONTROL DATA CORPORATION. 1977.
00006  M01S00001.281l803 +++|          COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
00007  M01S00006.logt    +++| LOGT     TITLE  LOGT - LOGOUT TRANSACTION TERMINAL.
00008  M01S00007.logt    +++|          SPACE  4
00009  M01S00008.logt    +++|***       LOGOUT TRANSACTION TERMINAL.
00010  M01S00009.logt    +++|*         W.E. MARTIN.       04/15/77.
00011  M01S00010.logt    +++|          SPACE  4
00012  M01S00011.logt    +++|***       LOGT LOGS A TERMINAL OUT OF TRANSACTION MODE BY
00013  M01S00012.logt    +++|*         SENDING A MESSAGE TO THE TERMINAL TELLING THE USER THAT
00014  M01S00013.logt    +++|*         THE SESSION IS ENDED, AND THEN USING THE *LOGT* MACRO,
00015  M01S00014.logt    +++|*         REQUESTS THE TRANSACTION EXECUTIVE TO INFORM THE
00016  M01S00015.logt    +++|*         TELE-PROCESSING EXECUTIVE TO RETURN THAT TERMINAL TO THE
00017  M01S00016.logt    +++|*         APPROPRIATE SUBSYSTEM.  NOTE - THIS ROUTINE WILL NOT ACTUALLY
00018  M01S00017.logt    +++|*         LOG A TERMINAL OUT OF THE COMPUTER SYSTEM, BUT LOGICALLY
00019  M01S00018.logt    +++|*         OUT OF THE TRANSACTION SUBSYSTEM.
00020  M01S00019.logt    +++|
00021  M01S00020.logt    +++|
00022  M01S00021.logt    +++|*         COMMON TEXT DEFINITION.
00023  M01S00022.logt    +++|
00024  M01S00023.logt    +++|
00025  M01S00024.logt    +++|*CALL     COMKMAC
00026  M01S00025.logt    +++|*CALL     COMSPRD
00027  M01S00026.logt    +++|
00028  M01S00027.logt    +++|
00029  M01S00028.logt    +++|*         PROGRAM EQUATES AND SYMBOLS.
00030  M01S00029.logt    +++|
00031  M01S00030.logt    +++|
00032  M01S00031.logt    +++|          TRXCOM B1          DEFINE COMMUNICATION BLOCK SYMBOLS.
00033  M01S00032.logt    +++|
00034  M01S00033.logt    +++|***       COMMUNICATION BLOCK HEADER WORDS.
00035  M01S00034.logt    +++|*
00036  M01S00035.logt    +++|*T  SEQC  12/     DB,24/      UA,24/      SEQ

Figure SEQC

00037  M01S00036.logt    +++|*T, TERC  42/     TN,18/0

Figure TERC

00038  M01S00037.logt    +++|*
00039  M01S00038.logt    +++|*         DB  =  DATA BASE FOR TERMINAL.
00040  M01S00039.logt    +++|*         UA  =  USER ARGUMENT FIELD FOR TERMINAL.
00041  M01S00040.logt    +++|*         SEQ =  TRANSACTION SEQUENCE NUMBER.
00042  M01S00041.logt    +++|*         TN  =  TERMINAL NAME.
00043  M01S00042.logt    +++|
00044  M01S00043.logt    +++|
00045  M01S00044.logt    +++|          BSS    COMCL       RESERVE SPACE FOR COMMUNICATION BLOCK
00046  M01S00045.logt    +++|
00047  M01S00046.logt    +++|
00048  M01S00047.logt    +++| LOGT     SA1    TERC        CHECK FOR NON-TERMINAL ASSOCIATED TASK
00049  M01S00048.logt    +++|          MX0    42
00050  M01S00049.logt    +++|          BX0    X0*X1
00051  M01S00050.logt    +++|          ZR     X0,LOG1     IF NOT TERMINAL ORIGINATED
00052  M01S00051.logt    +++|          SEND   LOGA        SEND MESSAGE
00053  M01S00052.logt    +++| LOG1     LOGT               LOG OUT OF TRANSACTION MODE
00054  M01S00053.logt    +++|          CEASE  0
00055  M01S00054.logt    +++|
00056  M01S00055.logt    +++| LOGA     FMSG   (END TRANSACTION SESSION.),,O
00057  M01S00056.logt    +++|          END    LOGT