COMSJCE 
COMMON
          CTEXT  COMSJCE - JOB CONTROL EQUIVALENCES.
          SPACE  4,10 
*         COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992. 
 JCE      SPACE  4,10 
***       COMSJCE - JOB CONTROL EQUIVALENCES. 
*         J. L. LARSON.      75/05/22.
 JCE      SPACE  4,10 
***       *COMSJCE* DEFINES VARIOUS DEFAULTS AND SYMBOLS FOR JOB
*         CONTROL PARAMETERS. 
 JCE      SPACE  4,10 
**        JOB CONTROL DEFAULTS. 
  
  
 DFJP     EQU    10B         DEFAULT JOB PRIORITY 
 DFJT     EQU    100B        DEFAULT JOB TIME LIMIT 
 DFJF     EQU    50000B      DEFAULT JOB FL (FOR INITIAL SCHEDULING)
 DFJE     EQU    0           DEFAULT JOB ECS FIELD LENGTH 
 JCE      SPACE  4,10 
**        JOB CONTROL EQUIVALENCES. 
  
  
 JPNP     EQU    7777B       JOB CARD PARAMETER NOT PRESENT 
 JCE      SPACE  4,10 
**        JOB CONTROL UPPER BOUNDS. 
  
  
 MXJP     EQU    17B         MAXIMUM JOB PRIORITY 
 COMSJCE  SPACE  4,10 
**        JOB TERMINATION CODES.
  
  
*         THE FOLLOWING SYMBOL, *TJJT*, DEFINES THE DEFAULT 
*         JOB TERMINATION CODE FOR ALL NON-TIMESHARING JOBS.
*         NOTE THAT *3AK/RRJ* ASSUMES THAT ANY JOB TERMINATION
*         CODE GREATER OR EQUAL TO *RJJT* IS RERUNABLE. 
  
 TJJT     EQU    0           TERMINATE JOB
 SUJT     EQU    1           SUSPEND JOB
 RJJT     EQU    2           RERUN JOB
 HRJT     EQU    3           HARDWARE ERROR RERUN 
 SRJT     EQU    4           SOFTWARE ERROR RERUN 
 NXJT     EQU    5           MAXIMUM + 1 NON-TIMESHARING JOB CODES
  
          ERRNG  10B-NXJT    JOB TERMINATION CODE WONT FIT IN *EOJW*
 COMSJCE  SPACE  4,10 
**        JOB TERMINATION QUEUE FILE DISPOSITION CODES. 
  
  
*         THE FOLLOWING SYMBOL, *QOJT*, DEFINES THE DEFAULT 
*         QUEUE DISPOSITION CODE FOR ALL NON-TIMESHARING JOBS.
  
 QOJT     EQU    0           QUEUE ALL OUTPUT 
  
*         THE FOLLOWING SYMBOL, *NOJT*, DEFINES THE DEFAULT 
*         QUEUE DISPOSITION CODE FOR ALL TIMESHARING JOBS.
  
 NOJT     EQU    1           DROP ALL OUTPUT
 TTJT     EQU    2           QUEUE OUTPUT TO INTERACTIVE QUEUE
 SSJT     EQU    3           QUEUE OUTPUT TO STATION OUTPUT QUEUE 
 MXJT     EQU    4           MAXIMUM TERMINATION CODE 
          SPACE  4,10 
**        JOB TERMINATION MODES.
  
 NOTM     EQU    0           JOB TERMINATION NOT IN PROGRESS
 NLTM     EQU    1           NORMAL JOB TERMINATION IN PROGRESS 
 UCTM     EQU    2           UNCONDITIONAL JOB TERMINATION IN PROGRESS
          SPACE  4,10 
**        PROLOGUE/EPILOGUE TERMINATION CODES.
* 
*         THESE VALUES DETERMINE THE PROCESSING WHEN A SYSTEM PROLOGUE, 
*         PROJECT PROLOGUE, OR PROJECT EPILOGUE TERMINATES.  THE CCPT 
*         VALUE IS USED TO FLAG THAT A SYSTEM PROLOGUE OR A PROJECT 
*         PROLOGUE OR EPILOGUE IS EXECUTING WHEN NO SPECIAL TERMINATION 
*         PROCESSING NEEDS TO BE PERFORMED. 
  
  
 NOPT     EQU    0           NO PROCESSING REQUIRED 
 CCPT     EQU    1           CLEAR TERMINATION CODE 
 CRPT     EQU    2           SET CHARGE REQUIRED UNCONDITIONALLY
 CAPT     EQU    3           SET CHARGE REQUIRED ON ABORT 
 LOPT     EQU    4           LOGOUT 
 LAPT     EQU    5           LOGOUT ON ABORT
          SPACE  4,10 
**        DEFAULT INCREMENT WHEN LIMITS ARE REACHED.
* 
*         THESE VALUES ARE USED WHEN THE CORRESPONDING LIMIT ERROR
*         OCCURS TO ALLOW THE USER TO COMPLETE JOB PROCESSING.
  
  
 DCLI     EQU    100         INCREMENT FOR COMMAND LIMIT
 DMLI     EQU    100         INCREMENT FOR DAYFILE MESSAGE LIMIT
 DSLI     EQU    10          INCREMENT FOR SRU LIMIT
 DTLI     EQU    10          INCREMENT FOR TIME LIMIT 
  
*         THE FOLLOWING IS USED BY THE *RLMM* FUNCTION IN *CPUMTR*. 
*         IT IS INTENDED TO ALLOW THE USER TO RAISE THE ACCOUNT 
*         BLOCK SRU LIMIT AFTER IT HAS BEEN EXCEEDED, BUT IS STILL
*         WITHIN THE USER SRU VALIDATION LIMIT.  THIS ONLY AFFECTS
*         TIME-SHARING JOBS, AND IS NOT USED IN ANY OTHER WAY.
  
 TSLI     EQU    1           SRU INCREMENT AT BEGINNING OF JOB
          SPACE  4,10 
          ENDX
