Seq # *Modification Id* Act
----------------------------+
00001 M01S00001.comktsa +++| CTEXT COMKTSA - TASK SYSTEM AREA DEFINITIONS.
00002 M01S00002.comktsa +++| SPACE 4,10
00003 M01S00003.comktsa +++| BASE DECIMAL
| Line S00004 Modification History |
M01 (Added by) | comktsa |
M02 (Updated by) | 281l803 |
Seq # *Modification Id* Act
----------------------------+
00004 M02S00004.281l803 ---|* COMMENT COPYRIGHT CONTROL DATA CORPORATION. 1980.
00005 M01S00001.281l803 +++|* COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992.
00006 M01S00005.comktsa +++| TSA SPACE 4,10
00007 M01S00006.comktsa +++|*** TSA - TASK SYSTEM AREA DEFINITIONS.
00008 M01S00007.comktsa +++|* G. W. PROPP. 80/04/15.
00009 M01S00008.comktsa +++| TSA SPACE 4,10
00010 M01S00009.comktsa +++|*** *COMKTSA* PROVIDES THE DEFINITONS OF THE TASK SYSTEM AREA.
00011 M01S00010.comktsa +++|* THE TASK SYSTEM AREA IS LOCATED IN NEGATIVE FIELD LENGTH
00012 M01S00011.comktsa +++|* PRIOR TO THE RA OF THE TASK. THIS DECK REQUIRES *COMKFLD*
00013 M01S00012.comktsa +++|* AND *COMKSCD*.
00014 M01S00013.comktsa +++| SPACE 4,10
00015 M01S00014.comktsa +++|* TTSA - TABLE OF TASK SYSTEM AREA.
00016 M01S00015.comktsa +++|
00017 M01S00016.comktsa +++| TTSA BSS 0 TABLE OF TASK SYSTEM AREA
00018 M01S00017.comktsa +++| LOC 0
00019 M01S00018.comktsa +++| XJPC BSS 20B XJP PACKAGE
00020 M01S00019.comktsa +++| TSAC BSS 0
00021 M01S00020.comktsa +++| VFD 18/0
00022 M01S00021.comktsa +++| VFD 12/0 TIME LIMIT IN XJP UNITS
00023 M01S00022.comktsa +++| VFD 18/0
00024 M01S00023.comktsa +++| VFD 12/0 TIME COUNT IN XJP UNITS
00025 M01S00024.comktsa +++|
00026 M01S00025.comktsa +++| ERXC BSS 0 ERROR RETRY ADDRESS
00027 M01S00026.comktsa +++| ERRC BSS 0 ERROR CODE
00028 M01S00027.comktsa +++| VFD 24/0
00029 M01S00028.comktsa +++| VFD 18/0 ERROR RETRY ADDRESS
00030 M01S00029.comktsa +++| VFD 18/0 ERROR CODE
00031 M01S00030.comktsa +++|
00032 M01S00031.comktsa +++| RA1C BSS 0
00033 M01S00032.comktsa +++| VFD 12/0
00034 M01S00033.comktsa +++| VFD 18/0 USER DEFINED I/O LIMIT
00035 M01S00034.comktsa +++| VFD 12/0
00036 M01S00035.comktsa +++| VFD 18/0 RA+1 COUNT
00037 M01S00036.comktsa +++|
00038 M01S00037.comktsa +++| BWCC BSS 1 TASK BRANCH COUNT
00039 M01S00038.comktsa +++| TOWC BSS 1 TERMINAL OUTPUT WORD COUNT
00040 M01S00039.comktsa +++| ROWC BSS 1 WORDS OF TERMINAL OUTPUT SINCE ROLLOUT
00041 M01S00040.comktsa +++| SCRC BSS 2 SCRATCH STORAGE
00042 M01S00041.comktsa +++| CB1C BSS 1 COMMUNICATION BLOCK WORD 1
00043 M01S00042.comktsa +++| CB2C BSS 1 COMMUNICATION BLOCK WORD 2
00044 M01S00043.comktsa +++| LRA1 BSS 1 LAST RA+1 CALL
00045 M01S00044.comktsa +++| RCL BSS 1 RECALL STATUS WORD 1
00046 M01S00045.comktsa +++| RCLA BSS 1 RECALL STATUS WORD 2
00047 M01S00046.comktsa +++| BSS 2 WORKING STORAGE FOR RECOVERY PROCESSING
00048 M01S00047.comktsa +++| DMEC BSS 1 DATA MANAGER ERROR CODE
00049 M01S00048.comktsa +++| JTSC BSS 1 TASK ADDRESS OF START OF JOURNAL DATA
00050 M01S00049.comktsa +++| BSS 3 WORDS DESTROYED BY JOURNAL FILE HEADER
00051 M01S00050.comktsa +++| DBNC BSS 1 DATA BASE VALIDATION WORD
00052 M01S00051.comktsa +++| ROSC BSS 1 ADDRESS OF ROLLOUT TABLE ENTRY
00053 M01S00052.comktsa +++| RTSC BSS 1 REQUESTED TASK CHAIN OF FIRST *CALLRTN*
00054 M01S00053.comktsa +++| RRSC BSS 2 ROLLOUT FILE RESERVATION BIT MASK
00055 M01S00054.comktsa +++| ORTC BSS 2 PREVIOUS ROLLOUT TABLE ENTRY *CALLRTN*
00056 M01S00055.comktsa +++| RSCC BSS 2+CPACL SUBCP TABLE SAVE AREA
00057 M01S00056.comktsa +++| RSIC BSS 1 WAITING ON *SIC* CHAIN WORD
00058 M01S00057.comktsa +++| TOTC BSS 1 *TOTAL* DATA MANAGER STATUS WORD
00059 M01S00058.comktsa +++| AAMC BSS 1 *AAM* FILE MANAGER STATUS WORD
00060 M01S00059.comktsa +++| CDFN BSS 1 *CDCS* REQUEST IMAGE
00061 M01S00060.comktsa +++| WICB BSS 4 *WAITINP* C.B. W3-W6 IMAGES
00062 M01S00061.comktsa +++| TSQN BSS 1 QUARTER NANO-UNITS USED BY TASK
00063 M01S00062.comktsa +++| SECR BSS 1 WORD 1 OF *SEND* REQUEST FOR *SECURE*
00064 M01S00063.comktsa +++| SECT BSS 1 WORD 2 OF *SEND* REQUEST FOR *SECURE*
00065 M01S00064.comktsa +++| SECH BSS 1 WORD 3 OF *SEND* REQUEST FOR *SECURE*
00066 M01S00065.comktsa +++| SECS BSS 1 WORD 4 OF *SEND* REQUEST FOR *SECURE*
00067 M01S00066.comktsa +++| SML1 BSS 1 LAST WORD OF *SECURE* MESSAGE
00068 M01S00067.comktsa +++| SML2 BSS 1 LAST WORD PLUS ONE OF *SECURE* MESSAGE
00069 M01S00068.comktsa +++| SML3 BSS 1 LENGTH OF *SECURE* MESSAGE IN WORDS
00070 M01S00069.comktsa +++| RERU BSS 1 *RERUN* REQUEST PARAMETERS
00071 M01S00070.comktsa +++| TRID BSS 1 TRANSACTION IDENTIFIER FOR *TINVOKE*
00072 M01S00071.comktsa +++| RWTS BSS 1 RETURN ADDRESS FROM *WFP*
00073 M01S00072.comktsa +++| BSS 113B-* INSURE *BCTN* IS IN WORD 113B
00074 M01S00073.comktsa +++| BCTN BSS 1 TASK NAME FOR BATCH JOB
00075 M01S00074.comktsa +++| ERRNZ BCTN-113B INSURE BCTN IS IN WORD 113B
00076 M01S00075.comktsa +++| BCTA BSS 1 BATCH CONCURRENCY TABLE ADDRESS
00077 M01S00076.comktsa +++| LOC *O
00078 M01S00077.comktsa +++| .1 SET *-TTSA+7 COMPUTE LENGTH OF TASK SYSTEM AREA
00079 M01S00078.comktsa +++| .2 SET .1/10B
00080 M01S00079.comktsa +++| NUAPL EQU .2*10B LENGTH OF TASK NEGATIVE FL
00081 M01S00080.comktsa +++|
00082 M01S00081.comktsa +++| BASE *
00083 M01S00082.comktsa +++| ENDX