COMKTLD 
COMMON
          CTEXT  COMKTLD - TASK/TRANSACTION DIRECTORY FORMATS.
          SPACE  4,10 
          BASE   D
*         COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992. 
 TLD      SPACE  4,10 
***       COMKTLD - TASK/TRANSACTION LIBRARY FORMATS. 
*         D. O. HAMNES.      79/06/22.
*         R. G. PARKHOUSE.   80/05/15.
*         S. M. KEEFER.      80/07/14.
          SPACE  4,10 
***       *COMKTLD* PROVIDES THE COMMON DEFINITIONS OF THE TASK 
*         AND TRANSACTION DIRECTORIES USED BY *TAF* AND *LIBTASK*.
*         THIS DECK ASSUMES THE PRESENCE OF DECK *COMKFLD*
*         WHICH CONTAINS THE DEFINITION OF THE *FIELD* MACRO. 
 TDHL     SPACE  4,20 
**        TASK DIRECTORY HEADER FROM *LIBTASK*. 
* 
*T  W1    12/ 7700,12/ 3,6/ ,30/ TRDA 
*T, W2    18/ TLDN,6/ ,18/ TLLD,18/ CRES
*T, W3    60/ DATE
*T, W4    60/ TIME
* 
*         WORD 1. 
*                TRDA = PRU ADDRESS OF TRANSACTION DIRECTORY. 
* 
*         WORD 2. 
*                TLDN = *TLD*.
*                TLLD = LENGTH OF TASK DIRECTORY. 
*                CRES = NUMBER OF CM RESIDENT TASKS.
* 
*         WORD 3. 
*                DATE = LAST MODIFICATION DATE.  YY/MM/DD.
* 
*         WORD 4. 
*                TIME = LAST MODIFICATION TIME.  HH.MM.SS.
*E
  
  
 TLTR     FIELD  0,29,0      PRU ADDRESS OF TRANSACTION DIRECTORY 
 TLDN     FIELD  1,59,42     RECORD NAME, *TLD* 
 TLLD     FIELD  1,35,18     LENGTH OF TASK DIRECTORY 
 TLNC     FIELD  1,17,0      NUMBER OF CM RESIDENT TASKS
 TLDT     FIELD  2,59,0      LAST MODIFICATION DATE 
 TLTM     FIELD  3,59,0      LAST MODIFICATION TIME 
 TDHT     SPACE  4,25 
**        TASK DIRECTORY HEADER IN *TAF*. 
* 
*T VTLD-4 18/ TRFWA,18/ TLLW, 6/ ,18/ TLLD
*T,VTLD-3 18/ TLDN, 6/ ,18/ BASE, 18/ CRES
*T,VTLD-2 60/ DATE
*T,VTLD-1 60/ NAME
* 
*         VTLD-4. 
*                TRFWA = FWA OF CORRESPONDING TRANSACTION DIRECTORY.
*                TLLW  = LWA OF LAST TLD (EXISTS IN FIRST TLD ONLY).
*                TLLD  = LENGTH OF TASK DIRECTORY + EXPANSION AREA. 
* 
*         VTLD-3. 
*                TLDN  = RECORD NAME, *TLD*.
*                BASE  = LENGTH OF SORTED PART OF TASK DIRECTORY. 
*                CRES  = NUMBER OF CM RESIDENT TASKS. 
* 
*         VTLD-2. 
*                DATE  = DATE OF LAST MODIFICATION.  YY/MM/DD.
* 
*         VTLD-1. 
*                NAME  = LIBRARY FILE NAME. 
*E
  
  
 TRFW     FIELD  -4,59,42    FWA OF CORRESPONDING *TRD* 
 TLLW     FIELD  -4,41,36    LWA OF LAST *TLD* ENTRY
 TLLT     FIELD  -4,17,0     LENGTH OF TASK DIRECTORY + EXPANSION AREA
 TLLB     FIELD  -3,35,18    LENGTH OF BASE (SORTED) DIRECTORY
 TLLN     FIELD  -1,59,0     LIBRARY FILE NAME
  
 TLDLH    EQU    4           LENGTH OF TASK LIBRARY HEADER
 TDE      SPACE  4,40 
**        TASK DIRECTORY ENTRY. 
* 
*T  W1    42/ NAME,18/ EP 
*T, W2    30/ DA,12/ FL,12/ EF,6/ MP
*T, W3    6/ FLG1,18/ TL,18/ TC,6/ FLG2,6/ BP,3/ TA,3/ QL 
* 
*         WORD 1. 
*                NAME - TASK NAME.
*                EP   - ENTRY POINT.
* 
*         WORD 2. 
*                DA   - DISK ADDRESS. 
*                FL   - FIELD LENGTH/100B REQUIRED BY TASK. 
*                EF   - EXPANDABLE FIELD LENGTH/100B FOR TASK.
*                MP   - MAXIMUM PRIORITY. 
* 
*         WORD 3. 
*                FLG1 - 1/S,1/D,1/C,1/E,1/O,1/L.
*                S  - SYSTEM TASK.
*                D  - DESTRUCTIVE CODE. 
*                C  - CM RESIDENT.
*                E  - ECS RESIDENT LIBRARY COPY.
*                O  - TASK TURNED OFF.
*                L  - TASK LOGICALLY DELETED. (*DL* PARAMETER)
*                TL - NUMBER OF TIMES TASK WAS LOADED.
*                TC - NUMBER OF TIMES TASK WAS CALLED.
*                FLG2 - 1/B,1/Q,1/R,3/0.
*                B  - SOLICITED C.B. LOAD WAS REQUESTED.
*                     (*SC* PARAMETER). 
*                Q  - QUEUING FORCED FOR ADDITIONAL ACTIVE
*                     COPIES. 
*                R  - REDUCE FL. (CM RESIDENT TASK ONLY). 
*                BP   - BASE PRIORITY.
*                TA   - TASK ACTIVE STATUS. THIS FIELD ONLY APPLIES 
*                       TO TASKS WHICH HAVE THE Q-ATTRIBUTE DECLARED. 
*                       IN ADDITION IT DOES NOT APPLY TO CM RESIDENT
*                       TASKS.
*                QL   - QUEUE LENGTH LIMIT. 
*E
  
  
 TLTN     FIELD  0,59,18     TASK NAME
 TLEP     FIELD  0,17,0      ENTRY POINT
  
 TLDA     FIELD  1,59,30     DISK ADDRESS 
 TLFL     FIELD  1,29,18     FIELD LENGTH REQUIRED BY TASK/100B 
 TLEF     FIELD  1,17,6      EXPANDABLE FIELD LENGTH FOR TASK/100B
 TLMP     FIELD  1,5,0       MAXIMUM PRIORITY 
  
 TLST     FIELD  2,59,59     SYSTEM TASK
 TLND     FIELD  2,58,58     DESTRUCTIVE CODE 
 TLCM     FIELD  2,57,57     CM RESIDENT
 TLEC     FIELD  2,56,56     ECS RESIDENT LIBRARY COPY
 TLTO     FIELD  2,55,55     TASK TURNED OFF BY OPERATOR
 TLDL     FIELD  2,54,54     TASK LOGICALLY DELETED 
 TLTL     FIELD  2,53,36     NUMBER OF TIMES TASK WAS LOADED
 TLTC     FIELD  2,35,18     NUMBER OF TIMES TASK WAS CALLED
 TLSC     FIELD  2,17,17     SOLICITED COMMUNICATION BLOCK LOAD 
 TLQU     FIELD  2,16,16     QUEUING FORCED FOR ADDITIONAL COPIES 
 TLRE     FIELD  2,15,15     REDUCE FL
 TLX1     FIELD  2,14,12     RESERVED FOR CDC 
 TLBP     FIELD  2,11,6      BASE PRIORITY
 TLTA     FIELD  2,5,3       TASK ACTIVE STATUS 
 TLQL     FIELD  2,2,0       QUEUE LENGTH LIMIT 
  
*         TO CHANGE THE LENGTH OF A TASK LIBRARY DIRECTORY
*         ENTRY, IT IS NOT SUFFICIENT JUST TO CHANGE THE VALUE
*         OF THE NEXT SYMBOL.  IT IS ALSO NECESSARY TO CHANGE 
*         SOME CODE IN THE AFFECTED DECKS.
  
 TLDLE    EQU    3           LENGTH OF A TLD ENTRY
 TLDMT    EQU    600         MAXIMUM TASKS IN LIBRARY 
          ERRPL  TLDMT-1354  MAXIMUM NUMBER OF TASKS TOO LARGE
*         ERRPL = (NUMBER OF TASK LIBRARIES*(TLDMS+TLDL))-TLDMX 
 TLDMS    EQU    TLDLE*TLDMT+TLDLH  MAXIMUM TLD SPACE PER LIBRARY 
 TLDMN    EQU    10          MAXIMUM ADDITIONAL TASKS ON *TT* RUN 
 TLDL     EQU    TLDMN*TLDLE SPACE NEEDED FOR ADDITIONAL TASKS
  
*         *TLDMX* MUST NEVER BE CHANGED.  TASK ADDRESSES ARE LIMITED TO 
*         A 12-BIT OFFSET VALUE FROM (VTLD).  THIS RESTRICTION IS 
*         IMPOSED BY TAF-S TRD(S).
  
 TLDMX    EQU    10000B      MAXIMUM TLD SPACE FOR ALL LIBRARIES + 1
          ERRNZ  TLDMX-10000B  *TLDMX* MUST EQUAL 10000B
 TRDH     SPACE  4,20 
**        TRANSACTION DIRECTORY HEADER. 
* 
*T TRFW-4 12/ 7700,12/ ,36/ 
*T,TRFW-3 18/ TRDN,6/ ,18/ TRDL,18/ TRLW
*T,TRFW-2 60/ DATE
*T,TRFW-1 60/ TIME
* 
*         TRFW-3. 
*                TRDN = RECORD NAME, *TRD*. 
*                TRDL = LENGTH OF DIRECTORY IN *LIBTASK*. 
*                TRLW = LWA OF DIRECTORY. 
* 
*         TRFW-2. 
*                DATE = LAST MODIFICATION DATE.  YY/MM/DD.
* 
*         TRFW-1. 
*                TIME = LAST MODIFICATION TIME.  HH.MM.SS.
*E
  
  
 TDDN     FIELD  -3,59,42    RECORD NAME
 TDLD     FIELD  -3,35,18    *TRD* LENGTH 
 TDLW     FIELD  -3,17,0     LWA OF DIRECTORY 
 TDDT     FIELD  -2,59,0     MODIFICATION DATE
 TDTM     FIELD  -1,59,0     MODIFICATION TIME
  
 TRDLH    EQU    4           LENGTH OF *TRD* HEADER 
 TRE      SPACE  4,25 
**        TRANSACTION DIRECTORY ENTRY.
* 
*         (IN *LIBTASK*). 
*T  W1    42/ TRNAME,5/ ,7/ ,1/D,2/ ,1/C,1/M,1/R
*T, W2    42/ TSK1,18/0 
*T, W3    42/ TSK2,18/0 
*T, W4    42/ TSK3,18/0 
*T, W5    42/ TSK4,18/0 
*T, W6    42/ TSK5,18/0 
* 
*         WORD 1. 
*                TRNAME - TRANSACTION UNIT NAME.
*                D - 1 IF TRANSACTION LOGICALLY DELETED (IN LIBTASK). 
*                C - 1 IF TRANSACTION MAY USE *CDCS*. 
*                M - 1 IF TRANSACTION MAY USE *CRM*.
*                R - 1 IF TRANSACTION IS RECOVERABLE. 
*         WORD 2. 
*                TSK1   - FIRST TASK TO SCHEDULE. 
*         WORD 3. 
*                TSK2   - SECOND TASK TO SCHEDULE.
*         WORD 4. 
*                TSK3   - THIRD TASK TO SCHEDULE. 
*         WORD 5. 
*                TSK4   - FOURTH TASK TO SCHEDULE.
*         WORD 6. 
*                TSK5   - FIFTH TASK TO SCHEDULE. 
* 
*         (IN *TAF*). 
*T  W1    42/ TRNAME,1/ ,1/ ,1/ ,1/ ,1/ ,8/ ,2/ ,1/C,1/M,1/R
*T, W2    12/ IND1,12/ IND2,12/ IND3,12/ IND4, 12/ IND5 
* 
*         WORD 1. 
*                SEE ABOVE. 
* 
*         WORD 2. 
*                IND1 - IND5, OFFSETS FROM START OF TLD (VTLD)
*                             CORRESPONDING TO TASKS TSK1 - TSK5
*                             ABOVE.
*E
  
  
 TDTN     FIELD  0,59,18     TRANSACTION NAME 
 TDS1     FIELD  0,17,17     TASK1 STATUS (ON/OFF)
 TDS2     FIELD  0,16,16     TASK2 STATUS 
 TDS3     FIELD  0,15,15     TASK3 STATUS 
 TDS4     FIELD  0,14,14     TASK4 STATUS 
 TDS5     FIELD  0,13,13     TASK5 STATUS 
 TDDL     FIELD  0,5,5       LOGICAL DELETE BIT 
 TDDC     FIELD  0,2,2       *CDCS* USAGE FLAG
 TDRM     FIELD  0,1,1       *CRM* USAGE FLAG 
 TDRC     FIELD  0,0,0       RECOVERABLE FLAG 
 TDT1     FIELD  1,59,18     FIRST TASK 
 TDT2     FIELD  2,59,18     SECOND TASK
 TDT3     FIELD  3,59,18     THIRD TASK 
 TDT4     FIELD  4,59,18     FOURTH TASK
 TDT5     FIELD  5,59,18     FIFTH TASK 
  
  
 TRDLE1   EQU    6           LENGTH OF TRD ENTRY (LIBTASK)
 TRDLE2   EQU    2           LENGTH OF TRD ENTRY (TAF)
 TRDMT    EQU    300         MAXIMUM TRANSACTIONS IN LIBRARY
 TRDMS    EQU    TRDLE1*TRDMT+TRDLH  MAXIMUM TRD SPACE PER LIBRARY
 TRDMN    EQU    10          MAXIMUM NEW TRANSACTIONS ON *TT* RUNS
 TRDL     EQU    TRDMN*TRDLE2  SPACE NEEDED FOR ADDITIONAL TRANSACTIONS 
          SPACE  4
          BASE   *
 TLD      ENDX
