Seq # *Modification Id* Act
----------------------------+
00005 M01S00005.281l803 ---| COMMENT COPYRIGHT CONTROL DATA CORPORATION. 1977.
Line S00001 Modification History
M01(Added by)
281l803
Seq # *Modification Id* Act
----------------------------+
00006 M01S00001.281l803 +++| COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992.
00007 M00S00006.logt +++| LOGT TITLE LOGT - LOGOUT TRANSACTION TERMINAL.
00008 M00S00007.logt +++| SPACE 4
00009 M00S00008.logt +++|*** LOGOUT TRANSACTION TERMINAL.
00010 M00S00009.logt +++|* W.E. MARTIN. 04/15/77.
00011 M00S00010.logt +++| SPACE 4
00012 M00S00011.logt +++|*** LOGT LOGS A TERMINAL OUT OF TRANSACTION MODE BY
00013 M00S00012.logt +++|* SENDING A MESSAGE TO THE TERMINAL TELLING THE USER THAT
00014 M00S00013.logt +++|* THE SESSION IS ENDED, AND THEN USING THE *LOGT* MACRO,
00015 M00S00014.logt +++|* REQUESTS THE TRANSACTION EXECUTIVE TO INFORM THE
00016 M00S00015.logt +++|* TELE-PROCESSING EXECUTIVE TO RETURN THAT TERMINAL TO THE
00017 M00S00016.logt +++|* APPROPRIATE SUBSYSTEM. NOTE - THIS ROUTINE WILL NOT ACTUALLY
00018 M00S00017.logt +++|* LOG A TERMINAL OUT OF THE COMPUTER SYSTEM, BUT LOGICALLY
00019 M00S00018.logt +++|* OUT OF THE TRANSACTION SUBSYSTEM.
00020 M00S00019.logt +++|
00021 M00S00020.logt +++|
00022 M00S00021.logt +++|* COMMON TEXT DEFINITION.
00023 M00S00022.logt +++|
00024 M00S00023.logt +++|
00025 M00S00024.logt +++|*CALL COMKMAC
00026 M00S00025.logt +++|*CALL COMSPRD
00027 M00S00026.logt +++|
00028 M00S00027.logt +++|
00029 M00S00028.logt +++|* PROGRAM EQUATES AND SYMBOLS.
00030 M00S00029.logt +++|
00031 M00S00030.logt +++|
00032 M00S00031.logt +++| TRXCOM B1 DEFINE COMMUNICATION BLOCK SYMBOLS.
00033 M00S00032.logt +++|
00034 M00S00033.logt +++|*** COMMUNICATION BLOCK HEADER WORDS.
00035 M00S00034.logt +++|*
00036 M00S00035.logt +++|*T SEQC 12/ DB,24/ UA,24/ SEQ
Figure SEQC
00037 M00S00036.logt +++|*T, TERC 42/ TN,18/0
Figure TERC
00038 M00S00037.logt +++|*
00039 M00S00038.logt +++|* DB = DATA BASE FOR TERMINAL.
00040 M00S00039.logt +++|* UA = USER ARGUMENT FIELD FOR TERMINAL.
00041 M00S00040.logt +++|* SEQ = TRANSACTION SEQUENCE NUMBER.
00042 M00S00041.logt +++|* TN = TERMINAL NAME.
00043 M00S00042.logt +++|
00044 M00S00043.logt +++|
00045 M00S00044.logt +++| BSS COMCL RESERVE SPACE FOR COMMUNICATION BLOCK
00046 M00S00045.logt +++|
00047 M00S00046.logt +++|
00048 M00S00047.logt +++| LOGT SA1 TERC CHECK FOR NON-TERMINAL ASSOCIATED TASK
00049 M00S00048.logt +++| MX0 42
00050 M00S00049.logt +++| BX0 X0*X1
00051 M00S00050.logt +++| ZR X0,LOG1 IF NOT TERMINAL ORIGINATED
00052 M00S00051.logt +++| SEND LOGA SEND MESSAGE
00053 M00S00052.logt +++| LOG1 LOGT LOG OUT OF TRANSACTION MODE
00054 M00S00053.logt +++| CEASE 0
00055 M00S00054.logt +++|
00056 M00S00055.logt +++| LOGA FMSG (END TRANSACTION SESSION.),,O
00057 M00S00056.logt +++| END LOGT