COMKSCD 
COMMON
          CTEXT  COMKSCD - SUBCP DEFINITIONS. 
          SPACE  4,10 
          BASE   DECIMAL
*         COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992. 
 SCD      SPACE  4,10 
***       SCD - SUBCP DEFINITIONS.
*         G. W. PROPP.  80/05/28. 
 SCD      SPACE  4,10 
***       *COMKSCD* GIVES THE DEFINITIONS FOR *TAF* SUBCP TABLE 
*         AND ENTRIES.  THE SUBCP TABLE CONTROLS THE PROCESSING OF
*         TASKS UNDER *TAF*.  THIS DECK REQUIRES *COMKFLD*
*         AND *COMKSCD*.
  
  
*         *TAF* SUBCP TABLE ENTRIES.
* 
*T  W1    1/S,1/R,1/L,1/C,1/P,1/B,18/FC,18/FL,18/RA 
*T, W2    1/S,1/D,1/C,1/R,1/A,1/T,1/P,1/D,13/  ,3/NC,18/EP,18/CC
*T, W3    12/      NM,12/        ,18/      LS,18/      NS 
*T, WN    1/X,1/ ,1/ ,1/ ,1/ ,1/I, 18/ ,18/ TCBA,18/ CBA
* 
*         WORD 1. 
*            S   - 1, IF STOARGE MOVE LOCKED OUT. 
*            R   - 1, IF SUBCP IS RELEASABLE. 
*            L   - 1, IF TASK WILL REQUEST COMMUNICATION BLOCK. 
*            C   - 1, IF IN *CMM* STATUS. 
*            P   - 1, IF PAUSE BY MEMORY MANAGER (FUTURE USE).
*            B   - 1, IF IN USE BY BATCH CONCURRENCY. 
*            FC  - FREE CORE AFTER SUBCP. 
*            FL  - SUBCP FL.
*            RA  - SUBCP RA.
* 
*         WORD 2. 
*            S    - 1, IF SYSTEM TASK.
*            D    - 1, IF TASK CODE IS REUSABLE.
*            C    - 1, IF TASK IS CM RESIDENT.
*            R    - 1, IF TASK IN RECALL. 
*            A    - 1, IF TASK IS TO BE ABORTED.
*            T    - 1, IF TASK IS TO BE TERMINATED. 
*            P    - 1, IF CDCS ABORTED. 
*            D    - 1, IF TASK IS DROPED BY THE OPERATOR. 
*            NC   - NUMBER OF COMMUNICATION BLOCKS AT SUBCP.
*            EP   - FWA OF TASK ENTRY POINT.
*            CC   - FWA OF STATUS WORD FOR ACTIVE COMMUNICATION BLOCK.
* 
*         WORD 3. 
*            NM   - TASK DIRECTORY INDEX. 
*            LS   - LAST SUBCP. 
*            NS   - NEXT SUBCP. 
* 
*         WORD 4 TO 10B ARE USED FOR COMMUNICATION BLOCK STATUS WORDS.
*            X    - 1, IF COMMUNICATION BLOCK PRESENT.
*            I    - 1, IF INITIAL COMMUNICATION BLOCK LOAD. 
*            TCBA - TASK COMMUNICATION BLOCK FWA (IF NOT DEFAULT).
*            CBA  - FWA OF COMMUNICATION BLOCK. 
  
*         CPAL MUST BE EVEN MULTIPLE OF 10B.
  
 CPAL     EQU    10B         LENGTH OF A SUBCP ENTRY
 SCPAL    EQU    CPAL/10B+2  SHIFT TO CONVERT SUBCP FWA TO NUMBER 
 CPAHL    EQU    3           LENGTH OF HEADER 
 CPACL    EQU    CPAL-CPAHL  MAXIMUM NUMBER OF STATUS WORDS 
  
*         SUBCP FIELD DEFINITIONS.
  
 SCRL     FIELD  0,58,58     1, IF SPACE RELEASABLE 
 SCSC     FIELD  0,57,57     1, IF TASK REQUESTED COMMUNICATION BLOCK 
 SCCM     FIELD  0,56,56     1, IF IN *CMM* STATUS
 SCPU     FIELD  0,55,55     1, IF PAUSE FOR STORAGE REQUESTS 
 SCBC     FIELD  0,54,54     1, IF IN USE BY BATCH CONCURRENCY
 SCFC     FIELD  0,53,36     FREE SPACE AFTER SUBCP 
 SCFL     FIELD  0,35,18     TASK FIELD LENGTH
 SCRA     FIELD  0,17,0      TASK RA
 SCST     FIELD  1,59,59     1, IF SYSTEM TASK
 SCTR     FIELD  1,58,58     1, IF TASK IS REUSABLE 
 SCCR     FIELD  1,57,57     1, IF TASK IS CM RESIDENT
 SCRC     FIELD  1,56,56     1, IF TASK IS IN RECALL
 SCTA     FIELD  1,55,55     1, IF TASK IS TO BE ABORTED
 SCTM     FIELD  1,54,54     1, IF TASK IS TO BE TERMINATED 
 SCCD     FIELD  1,53,53     1, IF CDCS ABORTED 
 SCDR     FIELD  1,52,52     1, IF DROPED BY OPERATOR 
 SCNC     FIELD  1,38,36     NUMBER OF C.B.-S AT SUBCP
 SCEP     FIELD  1,35,18     FWA OF TASK ENTRY POINT
 SCCC     FIELD  1,17,0      FWA OF STATUS WORD FOR ACTIVE C.B. 
 SCNM     FIELD  2,59,48     TASK DIRECTORY INDEX 
 SCLS     FIELD  2,35,18     LAST SUBCP TABLE 
 SCNS     FIELD  2,17,0      NEXT SUBCP TABLE 
  
          BASE   *
          ENDX
