Table of Contents

LOGT

Table Of Contents

Source Code

LOGT.txt
  1. IDENT LOGT
  2. ENTRY LOGT
  3. LCC OVERLAY(LOGT,0,0)
  4. *COMMENT LOGT - LOGOUT TRANSACTION TERMINAL.
  5. COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992.
  6. LOGT TITLE LOGT - LOGOUT TRANSACTION TERMINAL.
  7. SPACE 4
  8. *** LOGOUT TRANSACTION TERMINAL.
  9. * W.E. MARTIN. 04/15/77.
  10. SPACE 4
  11. *** LOGT LOGS A TERMINAL OUT OF TRANSACTION MODE BY
  12. * SENDING A MESSAGE TO THE TERMINAL TELLING THE USER THAT
  13. * THE SESSION IS ENDED, AND THEN USING THE *LOGT* MACRO,
  14. * REQUESTS THE TRANSACTION EXECUTIVE TO INFORM THE
  15. * TELE-PROCESSING EXECUTIVE TO RETURN THAT TERMINAL TO THE
  16. * APPROPRIATE SUBSYSTEM. NOTE - THIS ROUTINE WILL NOT ACTUALLY
  17. * LOG A TERMINAL OUT OF THE COMPUTER SYSTEM, BUT LOGICALLY
  18. * OUT OF THE TRANSACTION SUBSYSTEM.
  19.  
  20.  
  21. * COMMON TEXT DEFINITION.
  22.  
  23.  
  24. *CALL COMKMAC
  25. *CALL COMSPRD
  26.  
  27.  
  28. * PROGRAM EQUATES AND SYMBOLS.
  29.  
  30.  
  31. TRXCOM B1 DEFINE COMMUNICATION BLOCK SYMBOLS.
  32.  
  33. *** COMMUNICATION BLOCK HEADER WORDS.
  34. *
  35. *T SEQC 12/ DB,24/ UA,24/ SEQ
  36. *T, TERC 42/ TN,18/0
  37. *
  38. * DB = DATA BASE FOR TERMINAL.
  39. * UA = USER ARGUMENT FIELD FOR TERMINAL.
  40. * SEQ = TRANSACTION SEQUENCE NUMBER.
  41. * TN = TERMINAL NAME.
  42.  
  43.  
  44. BSS COMCL RESERVE SPACE FOR COMMUNICATION BLOCK
  45.  
  46.  
  47. LOGT SA1 TERC CHECK FOR NON-TERMINAL ASSOCIATED TASK
  48. MX0 42
  49. BX0 X0*X1
  50. ZR X0,LOG1 IF NOT TERMINAL ORIGINATED
  51. SEND LOGA SEND MESSAGE
  52. LOG1 LOGT LOG OUT OF TRANSACTION MODE
  53. CEASE 0
  54.  
  55. LOGA FMSG (END TRANSACTION SESSION.),,O
  56. END LOGT