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