Deck OFFTASK

Library Member Format: MODIFY

Source

Seq #  *Modification Id* Act 
----------------------------+
00001  M00S00001.offtask +++|          IDENT  OFFTASK
00002  M00S00002.offtask +++|          LCC    OVERLAY(OFFTASK,0,0)
00003  M00S00003.offtask +++|          ENTRY  OFT
00004  M00S00004.offtask +++|          TITLE  OFFTASK - SEND MESSAGE IF INACTIVE TASK REQUESTED.
00005  M00S00005.offtask +++|  COMMENT 72/09/24. 72/09/24. OFFTASK TASK.

Line S00006 Modification History
`M01` (Removed by)	`281l803`

Seq #  *Modification Id* Act 
----------------------------+
00006  M01S00006.281l803 ---|          COMMENT COPYRIGHT CONTROL DATA CORP. 1972.

Line S00001 Modification History
`M01` (Added by)	`281l803`

Seq #  *Modification Id* Act 
----------------------------+
00007  M01S00001.281l803 +++|          COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
00008  M00S00007.offtask +++|OFT       SPACE  4,10
00009  M00S00008.offtask +++|***       OFFTASK.
00010  M00S00009.offtask +++|*         K. R. COMBS  72/02/21  CSDD
00011  M00S00010.offtask +++|          SPACE  4
00012  M00S00011.offtask +++|***       OFFTASK.
00013  M00S00012.offtask +++|*         THIS SYSTEM TASK IS SCHEDULED BY THE TRANSACTION FACILITY
00014  M00S00013.offtask +++|*         WHEN A REQUEST IS MADE FOR AN INACTIVE TASK, FOR EXAMPLE,
00015  M00S00014.offtask +++|*         ONE WHICH IS IN THE TASK LIBRARY BUT HAS BEEN TURNED OFF
00016  M00S00015.offtask +++|*         EITHER BY A *LIBTASK* DIRECTIVE OR AN OPERATOR COMMAND.
00017  M00S00016.offtask +++|*         *OFFTASK* SIMPLY SENDS A MESSAGE TO THE ORIGINATING TERMINAL
00018  M00S00017.offtask +++|*         INFORMING IT THAT AN INACTIVE TASK WAS REQUESTED.
00019  M00S00018.offtask +++| COMB     TITLE  COMMUNICATION BLOCK DEFINITION
00020  M00S00019.offtask +++|*CALL     COMCMAC
00021  M00S00020.offtask +++|*CALL     COMKMAC
00022  M00S00021.offtask +++|*CALL     COMSPRD
00023  M00S00022.offtask +++|
00024  M00S00023.offtask +++|          TRXCOM B1          DEFINE COMMUNICATION BLOCK SYMBOLS
00025  M00S00024.offtask +++|          SPACE  4,10
00026  M00S00025.offtask +++|***       COMMUNICATION BLOCK HEADER WORDS.
00027  M00S00026.offtask +++|*
00028  M00S00027.offtask +++|*T  SEQC  12/     DB,24/      UA,24/      SEQ

Figure SEQC

00029  M00S00028.offtask +++|*T, TERC  42/     TN,18/

Figure TERC

00030  M00S00029.offtask +++|*
00031  M00S00030.offtask +++|*         DB     DATA BASE FOR TERMINAL.
00032  M00S00031.offtask +++|*         UA     USER ARGUMENT FIELD FOR TERMINAL.
00033  M00S00032.offtask +++|*         SEQ    TRANSACTION SEQUENCE NUMBER.
00034  M00S00033.offtask +++|*         TN     TERMINAL NAME.
00035  M00S00034.offtask +++|
00036  M00S00035.offtask +++|
00037  M00S00036.offtask +++|          BSS    COMCL       RESERVE SPACE FOR COMMUNICATION BLOCK
00038  M00S00037.offtask +++| OFT      TITLE  SEND MESSAGE
00039  M00S00038.offtask +++|**        OFT    SEND A MESSAGE TO THE ORIGINATING TERMINAL.
00040  M00S00039.offtask +++|*
00041  M00S00040.offtask +++|*         ENTRY  COMMUNICATION BLOCK LOADED.
00042  M00S00041.offtask +++|*
00043  M00S00042.offtask +++|*         EXIT   MESSAGE SENT TO TERMINAL, IF NO ERROR.
00044  M00S00043.offtask +++|*                ABNORMAL CEASE.
00045  M00S00044.offtask +++|*
00046  M00S00045.offtask +++|*         USES   B - NONE.
00047  M00S00046.offtask +++|*                A - 1, 6.
00048  M00S00047.offtask +++|*                X - 0, 1.
00049  M00S00048.offtask +++|*
00050  M00S00049.offtask +++|*         CALLS  CBT.
00051  M00S00050.offtask +++|*
00052  M00S00051.offtask +++|*         MACROS CEASE, FMSG, SEND.
00053  M00S00052.offtask +++|
00054  M00S00053.offtask +++|
00055  M00S00054.offtask +++| OFT      SA1    TERC        CHECK FOR NON TERMINAL ASSOCIATED TASK
00056  M00S00055.offtask +++|          MX0    42
00057  M00S00056.offtask +++|          BX0    X0*X1
00058  M00S00057.offtask +++|          ZR     X0,OFT1     IF NO TERMINAL - DO NOT SEND MESSAGE
00059  M00S00058.offtask +++|          SEND   OFTA        SEND THE MESSAGE
00060  M00S00059.offtask +++|          SA1    SEQC        USER AREA BITS
00061  M00S00060.offtask +++|          RJ     CBT         CHECK BINARY SELECT
00062  M00S00061.offtask +++|          ZR     X6,OFT1     IF NOT BINARY
00063  M00S00062.offtask +++|          SA6    OFTC        SET BINARY REQUEST
00064  M00S00063.offtask +++|          SEND   OFTB        SEND BINARY INPUT REQUEST
00065  M00S00064.offtask +++| OFT1     CEASE  1           ABNORMAL CEASE
00066  M00S00065.offtask +++|
00067  M00S00066.offtask +++| OFTA     FMSG   (INACTIVE TASK REQUESTED.)
00068  M00S00067.offtask +++| OFTB     VFD    12/0,18/OFTC,12/0,18/1  SEND CONTROL WORD
00069  M00S00068.offtask +++| OFTC     CON    0           BINARY REQUEST WORD
00070  M00S00069.offtask +++|
00071  M00S00070.offtask +++|
00072  M00S00071.offtask +++|*         COMMON DECK.
00073  M00S00072.offtask +++|
00074  M00S00073.offtask +++|
00075  M00S00074.offtask +++|*CALL     COMKCBT
00076  M00S00075.offtask +++|
00077  M00S00076.offtask +++|
00078  M00S00077.offtask +++|          END    OFT