OFFTASK 
          IDENT  OFFTASK
          LCC    OVERLAY(OFFTASK,0,0) 
          ENTRY  OFT
          TITLE  OFFTASK - SEND MESSAGE IF INACTIVE TASK REQUESTED. 
  COMMENT 72/09/24. 72/09/24. OFFTASK TASK. 
          COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992. 
OFT       SPACE  4,10 
***       OFFTASK.
*         K. R. COMBS  72/02/21  CSDD 
          SPACE  4
***       OFFTASK.
*         THIS SYSTEM TASK IS SCHEDULED BY THE TRANSACTION FACILITY 
*         WHEN A REQUEST IS MADE FOR AN INACTIVE TASK, FOR EXAMPLE, 
*         ONE WHICH IS IN THE TASK LIBRARY BUT HAS BEEN TURNED OFF
*         EITHER BY A *LIBTASK* DIRECTIVE OR AN OPERATOR COMMAND. 
*         *OFFTASK* SIMPLY SENDS A MESSAGE TO THE ORIGINATING TERMINAL
*         INFORMING IT THAT AN INACTIVE TASK WAS REQUESTED. 
 COMB     TITLE  COMMUNICATION BLOCK DEFINITION 
*CALL     COMCMAC 
*CALL     COMKMAC 
*CALL     COMSPRD 
  
          TRXCOM B1          DEFINE COMMUNICATION BLOCK SYMBOLS 
          SPACE  4,10 
***       COMMUNICATION BLOCK HEADER WORDS. 
* 
*T  SEQC  12/     DB,24/      UA,24/      SEQ 
*T, TERC  42/     TN,18/
* 
*         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
 OFT      TITLE  SEND MESSAGE 
**        OFT    SEND A MESSAGE TO THE ORIGINATING TERMINAL.
* 
*         ENTRY  COMMUNICATION BLOCK LOADED.
* 
*         EXIT   MESSAGE SENT TO TERMINAL, IF NO ERROR. 
*                ABNORMAL CEASE.
* 
*         USES   B - NONE.
*                A - 1, 6.
*                X - 0, 1.
* 
*         CALLS  CBT. 
* 
*         MACROS CEASE, FMSG, SEND. 
  
  
 OFT      SA1    TERC        CHECK FOR NON TERMINAL ASSOCIATED TASK 
          MX0    42 
          BX0    X0*X1
          ZR     X0,OFT1     IF NO TERMINAL - DO NOT SEND MESSAGE 
          SEND   OFTA        SEND THE MESSAGE 
          SA1    SEQC        USER AREA BITS 
          RJ     CBT         CHECK BINARY SELECT
          ZR     X6,OFT1     IF NOT BINARY
          SA6    OFTC        SET BINARY REQUEST 
          SEND   OFTB        SEND BINARY INPUT REQUEST
 OFT1     CEASE  1           ABNORMAL CEASE 
  
 OFTA     FMSG   (INACTIVE TASK REQUESTED.) 
 OFTB     VFD    12/0,18/OFTC,12/0,18/1  SEND CONTROL WORD
 OFTC     CON    0           BINARY REQUEST WORD
  
  
*         COMMON DECK.
  
  
*CALL     COMKCBT 
  
  
          END    OFT
