Deck OFFTASK

1 Modification

Source

Seq #  *Modification Id* Act 
----------------------------+
00001  M01S00001.offtask +++|          IDENT  OFFTASK
00002  M01S00002.offtask +++|          LCC    OVERLAY(OFFTASK,0,0)
00003  M01S00003.offtask +++|          ENTRY  OFT
00004  M01S00004.offtask +++|          TITLE  OFFTASK - SEND MESSAGE IF INACTIVE TASK REQUESTED.
00005  M01S00005.offtask +++|  COMMENT 72/09/24. 72/09/24. OFFTASK TASK.

Line S00006 Modification History
`M01` (Added by)	`offtask`
`M02` (Updated by)	`281l803`

Seq #  *Modification Id* Act 
----------------------------+
00006  M02S00006.281l803 ---|          COMMENT COPYRIGHT CONTROL DATA CORP. 1972.
00007  M01S00001.281l803 +++|          COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
00008  M01S00007.offtask +++|OFT       SPACE  4,10
00009  M01S00008.offtask +++|***       OFFTASK.
00010  M01S00009.offtask +++|*         K. R. COMBS  72/02/21  CSDD
00011  M01S00010.offtask +++|          SPACE  4
00012  M01S00011.offtask +++|***       OFFTASK.
00013  M01S00012.offtask +++|*         THIS SYSTEM TASK IS SCHEDULED BY THE TRANSACTION FACILITY
00014  M01S00013.offtask +++|*         WHEN A REQUEST IS MADE FOR AN INACTIVE TASK, FOR EXAMPLE,
00015  M01S00014.offtask +++|*         ONE WHICH IS IN THE TASK LIBRARY BUT HAS BEEN TURNED OFF
00016  M01S00015.offtask +++|*         EITHER BY A *LIBTASK* DIRECTIVE OR AN OPERATOR COMMAND.
00017  M01S00016.offtask +++|*         *OFFTASK* SIMPLY SENDS A MESSAGE TO THE ORIGINATING TERMINAL
00018  M01S00017.offtask +++|*         INFORMING IT THAT AN INACTIVE TASK WAS REQUESTED.
00019  M01S00018.offtask +++| COMB     TITLE  COMMUNICATION BLOCK DEFINITION
00020  M01S00019.offtask +++|*CALL     COMCMAC
00021  M01S00020.offtask +++|*CALL     COMKMAC
00022  M01S00021.offtask +++|*CALL     COMSPRD
00023  M01S00022.offtask +++|
00024  M01S00023.offtask +++|          TRXCOM B1          DEFINE COMMUNICATION BLOCK SYMBOLS
00025  M01S00024.offtask +++|          SPACE  4,10
00026  M01S00025.offtask +++|***       COMMUNICATION BLOCK HEADER WORDS.
00027  M01S00026.offtask +++|*
00028  M01S00027.offtask +++|*T  SEQC  12/     DB,24/      UA,24/      SEQ

Figure SEQC

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

Figure TERC

00030  M01S00029.offtask +++|*
00031  M01S00030.offtask +++|*         DB     DATA BASE FOR TERMINAL.
00032  M01S00031.offtask +++|*         UA     USER ARGUMENT FIELD FOR TERMINAL.
00033  M01S00032.offtask +++|*         SEQ    TRANSACTION SEQUENCE NUMBER.
00034  M01S00033.offtask +++|*         TN     TERMINAL NAME.
00035  M01S00034.offtask +++|
00036  M01S00035.offtask +++|
00037  M01S00036.offtask +++|          BSS    COMCL       RESERVE SPACE FOR COMMUNICATION BLOCK
00038  M01S00037.offtask +++| OFT      TITLE  SEND MESSAGE
00039  M01S00038.offtask +++|**        OFT    SEND A MESSAGE TO THE ORIGINATING TERMINAL.
00040  M01S00039.offtask +++|*
00041  M01S00040.offtask +++|*         ENTRY  COMMUNICATION BLOCK LOADED.
00042  M01S00041.offtask +++|*
00043  M01S00042.offtask +++|*         EXIT   MESSAGE SENT TO TERMINAL, IF NO ERROR.
00044  M01S00043.offtask +++|*                ABNORMAL CEASE.
00045  M01S00044.offtask +++|*
00046  M01S00045.offtask +++|*         USES   B - NONE.
00047  M01S00046.offtask +++|*                A - 1, 6.
00048  M01S00047.offtask +++|*                X - 0, 1.
00049  M01S00048.offtask +++|*
00050  M01S00049.offtask +++|*         CALLS  CBT.
00051  M01S00050.offtask +++|*
00052  M01S00051.offtask +++|*         MACROS CEASE, FMSG, SEND.
00053  M01S00052.offtask +++|
00054  M01S00053.offtask +++|
00055  M01S00054.offtask +++| OFT      SA1    TERC        CHECK FOR NON TERMINAL ASSOCIATED TASK
00056  M01S00055.offtask +++|          MX0    42
00057  M01S00056.offtask +++|          BX0    X0*X1
00058  M01S00057.offtask +++|          ZR     X0,OFT1     IF NO TERMINAL - DO NOT SEND MESSAGE
00059  M01S00058.offtask +++|          SEND   OFTA        SEND THE MESSAGE
00060  M01S00059.offtask +++|          SA1    SEQC        USER AREA BITS
00061  M01S00060.offtask +++|          RJ     CBT         CHECK BINARY SELECT
00062  M01S00061.offtask +++|          ZR     X6,OFT1     IF NOT BINARY
00063  M01S00062.offtask +++|          SA6    OFTC        SET BINARY REQUEST
00064  M01S00063.offtask +++|          SEND   OFTB        SEND BINARY INPUT REQUEST
00065  M01S00064.offtask +++| OFT1     CEASE  1           ABNORMAL CEASE
00066  M01S00065.offtask +++|
00067  M01S00066.offtask +++| OFTA     FMSG   (INACTIVE TASK REQUESTED.)
00068  M01S00067.offtask +++| OFTB     VFD    12/0,18/OFTC,12/0,18/1  SEND CONTROL WORD
00069  M01S00068.offtask +++| OFTC     CON    0           BINARY REQUEST WORD
00070  M01S00069.offtask +++|
00071  M01S00070.offtask +++|
00072  M01S00071.offtask +++|*         COMMON DECK.
00073  M01S00072.offtask +++|
00074  M01S00073.offtask +++|
00075  M01S00074.offtask +++|*CALL     COMKCBT
00076  M01S00075.offtask +++|
00077  M01S00076.offtask +++|
00078  M01S00077.offtask +++|          END    OFT