COMKTSA 
COMMON
          CTEXT  COMKTSA - TASK SYSTEM AREA DEFINITIONS.
          SPACE  4,10 
          BASE   DECIMAL
*         COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992. 
 TSA      SPACE  4,10 
***       TSA - TASK SYSTEM AREA DEFINITIONS. 
*         G. W. PROPP.  80/04/15. 
 TSA      SPACE  4,10 
***       *COMKTSA* PROVIDES THE DEFINITONS OF THE TASK SYSTEM AREA.
*         THE TASK SYSTEM AREA IS LOCATED IN NEGATIVE FIELD LENGTH
*         PRIOR TO THE RA OF THE TASK.  THIS DECK REQUIRES *COMKFLD*
*         AND *COMKSCD*.
          SPACE  4,10 
*         TTSA - TABLE OF TASK SYSTEM AREA. 
  
 TTSA     BSS    0           TABLE OF TASK SYSTEM AREA
          LOC    0
 XJPC     BSS    20B         XJP PACKAGE
 TSAC     BSS    0
          VFD    18/0 
          VFD    12/0        TIME LIMIT IN XJP UNITS
          VFD    18/0 
          VFD    12/0        TIME COUNT IN XJP UNITS
  
 ERXC     BSS    0           ERROR RETRY ADDRESS
 ERRC     BSS    0           ERROR CODE 
          VFD    24/0 
          VFD    18/0        ERROR RETRY ADDRESS
          VFD    18/0        ERROR CODE 
  
 RA1C     BSS    0
          VFD    12/0 
          VFD    18/0        USER DEFINED I/O LIMIT 
          VFD    12/0 
          VFD    18/0        RA+1 COUNT 
  
 BWCC     BSS    1           TASK BRANCH COUNT
 TOWC     BSS    1           TERMINAL OUTPUT WORD COUNT 
 ROWC     BSS    1           WORDS OF TERMINAL OUTPUT SINCE ROLLOUT 
 SCRC     BSS    2           SCRATCH STORAGE
 CB1C     BSS    1           COMMUNICATION BLOCK WORD 1 
 CB2C     BSS    1           COMMUNICATION BLOCK WORD 2 
 LRA1     BSS    1           LAST RA+1 CALL 
 RCL      BSS    1           RECALL STATUS WORD 1 
 RCLA     BSS    1           RECALL STATUS WORD 2 
          BSS    2           WORKING STORAGE FOR RECOVERY PROCESSING
 DMEC     BSS    1           DATA MANAGER ERROR CODE
 JTSC     BSS    1           TASK ADDRESS OF START OF JOURNAL DATA
          BSS    3           WORDS DESTROYED BY JOURNAL FILE HEADER 
 DBNC     BSS    1           DATA BASE VALIDATION WORD
 ROSC     BSS    1           ADDRESS OF ROLLOUT TABLE ENTRY 
 RTSC     BSS    1           REQUESTED TASK CHAIN OF FIRST *CALLRTN*
 RRSC     BSS    2           ROLLOUT FILE RESERVATION BIT MASK
 ORTC     BSS    2           PREVIOUS ROLLOUT TABLE ENTRY *CALLRTN* 
 RSCC     BSS    2+CPACL     SUBCP TABLE SAVE AREA
 RSIC     BSS    1           WAITING ON *SIC* CHAIN WORD
 TOTC     BSS    1           *TOTAL* DATA MANAGER STATUS WORD 
 AAMC     BSS    1           *AAM* FILE MANAGER STATUS WORD 
 CDFN     BSS    1           *CDCS* REQUEST IMAGE 
 WICB     BSS    4           *WAITINP* C.B. W3-W6 IMAGES
 TSQN     BSS    1           QUARTER NANO-UNITS USED BY TASK
 SECR     BSS    1           WORD 1 OF *SEND* REQUEST FOR *SECURE*
 SECT     BSS    1           WORD 2 OF *SEND* REQUEST FOR *SECURE*
 SECH     BSS    1           WORD 3 OF *SEND* REQUEST FOR *SECURE*
 SECS     BSS    1           WORD 4 OF *SEND* REQUEST FOR *SECURE*
 SML1     BSS    1           LAST WORD OF *SECURE* MESSAGE
 SML2     BSS    1           LAST WORD PLUS ONE OF *SECURE* MESSAGE 
 SML3     BSS    1           LENGTH OF *SECURE* MESSAGE IN WORDS
 RERU     BSS    1           *RERUN* REQUEST PARAMETERS 
 TRID     BSS    1           TRANSACTION IDENTIFIER FOR *TINVOKE* 
 RWTS     BSS    1           RETURN ADDRESS FROM *WFP*
          BSS    113B-*      INSURE *BCTN* IS IN WORD 113B
 BCTN     BSS    1           TASK NAME FOR BATCH JOB
          ERRNZ  BCTN-113B   INSURE BCTN IS IN WORD 113B
 BCTA     BSS    1           BATCH CONCURRENCY TABLE ADDRESS
          LOC    *O 
 .1       SET    *-TTSA+7    COMPUTE LENGTH OF TASK SYSTEM AREA 
 .2       SET    .1/10B 
 NUAPL    EQU    .2*10B      LENGTH OF TASK NEGATIVE FL 
  
          BASE   *
          ENDX
