Table of Contents

OFFTASK

Table Of Contents

  • [00004] OFFTASK - SEND MESSAGE IF INACTIVE TASK REQUESTED.

Source Code

OFFTASK.txt 
  1.           IDENT  OFFTASK 
  2.           LCC    OVERLAY(OFFTASK,0,0)
  3.           ENTRY  OFT
  4.           TITLE  OFFTASK - SEND MESSAGE IF INACTIVE TASK REQUESTED.
  5.   COMMENT 72/09/24. 72/09/24. OFFTASK TASK.
  6.           COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
  7. OFT       SPACE  4,10
  8. ***       OFFTASK.
  9. *         K. R. COMBS  72/02/21  CSDD
  10.           SPACE  4
  11. ***       OFFTASK.
  12. *         THIS SYSTEM TASK IS SCHEDULED BY THE TRANSACTION FACILITY
  13. *         WHEN A REQUEST IS MADE FOR AN INACTIVE TASK, FOR EXAMPLE,
  14. *         ONE WHICH IS IN THE TASK LIBRARY BUT HAS BEEN TURNED OFF
  15. *         EITHER BY A *LIBTASK* DIRECTIVE OR AN OPERATOR COMMAND.
  16. *         *OFFTASK* SIMPLY SENDS A MESSAGE TO THE ORIGINATING TERMINAL
  17. *         INFORMING IT THAT AN INACTIVE TASK WAS REQUESTED.
  18.  COMB     TITLE  COMMUNICATION BLOCK DEFINITION
  19. *CALL     COMCMAC
  20. *CALL     COMKMAC
  21. *CALL     COMSPRD
  22.  
  23.           TRXCOM B1          DEFINE COMMUNICATION BLOCK SYMBOLS
  24.           SPACE  4,10
  25. ***       COMMUNICATION BLOCK HEADER WORDS.
  26. *
  27. *T  SEQC  12/     DB,24/      UA,24/      SEQ
  28. *T, TERC  42/     TN,18/
  29. *
  30. *         DB     DATA BASE FOR TERMINAL.
  31. *         UA     USER ARGUMENT FIELD FOR TERMINAL.
  32. *         SEQ    TRANSACTION SEQUENCE NUMBER.
  33. *         TN     TERMINAL NAME.
  34.  
  35.  
  36.           BSS    COMCL       RESERVE SPACE FOR COMMUNICATION BLOCK
  37.  OFT      TITLE  SEND MESSAGE
  38. **        OFT    SEND A MESSAGE TO THE ORIGINATING TERMINAL.
  39. *
  40. *         ENTRY  COMMUNICATION BLOCK LOADED.
  41. *
  42. *         EXIT   MESSAGE SENT TO TERMINAL, IF NO ERROR.
  43. *                ABNORMAL CEASE.
  44. *
  45. *         USES   B - NONE.
  46. *                A - 1, 6.
  47. *                X - 0, 1.
  48. *
  49. *         CALLS  CBT.
  50. *
  51. *         MACROS CEASE, FMSG, SEND.
  52.  
  53.  
  54.  OFT      SA1    TERC        CHECK FOR NON TERMINAL ASSOCIATED TASK
  55.           MX0    42
  56.           BX0    X0*X1
  57.           ZR     X0,OFT1     IF NO TERMINAL - DO NOT SEND MESSAGE
  58.           SEND   OFTA        SEND THE MESSAGE
  59.           SA1    SEQC        USER AREA BITS
  60.           RJ     CBT         CHECK BINARY SELECT
  61.           ZR     X6,OFT1     IF NOT BINARY
  62.           SA6    OFTC        SET BINARY REQUEST
  63.           SEND   OFTB        SEND BINARY INPUT REQUEST
  64.  OFT1     CEASE  1           ABNORMAL CEASE
  65.  
  66.  OFTA     FMSG   (INACTIVE TASK REQUESTED.)
  67.  OFTB     VFD    12/0,18/OFTC,12/0,18/1  SEND CONTROL WORD
  68.  OFTC     CON    0           BINARY REQUEST WORD
  69.  
  70.  
  71. *         COMMON DECK.
  72.  
  73.  
  74. *CALL     COMKCBT
  75.  
  76.  
  77.           END    OFT