COMUJCA 
COMMON
  
#     COMUJCA - CONTAINS THE JOB CONTROL AREA DEFINITIONS.            # 
                                               CONTROL NOLIST;
                                               CONTROL IFEQ LISTCON,1;
                                               CONTROL LIST;
                                               CONTROL FI;
  
# 
***   COMUJCA - CONTAINS THE JOB CONTROL AREA DEFINITIONS.
* 
*         COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
* 
*     THIS COMDECK CONTAINS THE BASED ARRAY DEFINING THE
*     JOB CONTROL AREA. 
# 
  
      BEGIN  # COMUJCA #
  
      BASED 
      ARRAY JBCA [1:1] S(12);        # JOB CONTROL AREA # 
        BEGIN 
        ITEM JCA$INLP   U(00,12,12);  # LOWER BOUND PRIORITY FOR INPUT
                                        FILES # 
        ITEM JCA$INUP   U(00,24,12);  # UPPER BOUND PRIORITY #
        ITEM JCA$INWF   U(00,36,12);  # WEIGHTING FACTOR #
        ITEM JCA$EXIL   U(01,00,12);  # LOWER BOUND PRIORITY FOR
                                        JOB SLICE # 
        ITEM JCA$EXLP   U(01,12,12);  # LOWER BOUND PRIORITY FOR
                                        EXECUTING JOBS #
        ITEM JCA$EXUP   U(01,24,12);  # UPPER BOUND PRIORITY #
        ITEM JCA$EXWF   U(01,36,12);  # WEIGHTING FACTOR #
        ITEM JCA$EXIP   U(01,48,12);  # INITIAL PRIORITY #
        ITEM JCA$OTLP   U(02,12,12);  # LOWER BOUND PRIORITY FOR
                                        OUTPUT FILES #
        ITEM JCA$OTUP   U(02,24,12);  # UPPER BOUND PRIORITY #
        ITEM JCA$OTWF   U(02,36,12);  # WEIGHTING FACTOR #
        ITEM JCA$CL     U(03,00,06);  # CPU PRIORITY LOWER BOUND #
        ITEM JCA$CU     U(03,06,06);  # CPU PRIORITY UPPER BOUND #
        ITEM JCA$CT     U(03,12,12);  # CONTROL POINT TIME SLICE #
        ITEM JCA$CM     U(03,24,12);  # CM TIME SLICE # 
        ITEM JCA$NJ     U(03,36,12);  # MAXIMUM JOBS OR USERS # 
        ITEM JCA$TD     U(03,48,12);  # TIME OUT DELAY FOR SUSPENDED
                                        JOBS #
        ITEM JCA$CP     U(04,00,12);  # CONTROL POINT SLICE PRIORITY #
        ITEM JCA$TP     U(04,12,12);  # BASE PRIORITY FOR 
                                        INTERACTIVE JOBS #
        ITEM JCA$FL     U(04,24,12);  # MAXIMUM FL ANY JOB #
        ITEM JCA$AM     U(04,36,24);  # MAXIMUM FL ALL JOBS # 
        ITEM JCA$SD     U(05,00,12);  # CPU SWITCH DELAY #
        ITEM JCA$EC     U(05,24,12);  # MAXIMUM ECS FL ANY JOB #
        ITEM JCA$EM     U(05,48,12);  # MAXIMUM ECS FL ALL JOBS # 
        ITEM JCA$DS     U(06,00,03);  # DIRECT ACCESS FILE SIZE INDEX # 
        ITEM JCA$FC     U(06,03,03);  # PERMANENT FILE NUMBER 
                                        RESTRICTIONS #
        ITEM JCA$CS     U(06,06,03);  # INDIRECT ACCESS FILES 
                                        CUMULATIVE SIZE INDEX # 
        ITEM JCA$FS     U(06,09,03);  # INDIRECT ACCESS FILE SIZE 
                                        INDEX # 
        ITEM JCA$DT     U(06,48,12);  # DETACHED JOB SERVICE CLASS #
        ITEM JCA$PR     U(07,00,12);  # CPU PRIORITY #
        ITEM JCA$IT     U(07,12,12);  # SYSTEM I/O CPU THRESHOLD (MS) # 
        ITEM JCA$SE     U(07,24,12);  # CPU SLICE EXTENSION (MS) #
        ITEM JCA$RS     U(07,36,12);  # RECALL CPU SLICE (MS) # 
        ITEM JCA$US     U(07,48,12);  # UNEXTENDED CPU SLICE (MS) # 
        ITEM JCA$AJ     U(10,00,12);  # JOB COUNT FOR SERVICE CLASS # 
        END 
  
      END  # COMUJCA #
  
                                               CONTROL LIST;
