COMSEJT 
COMMON
          CTEXT  COMSEJT - EXECUTING JOB DEFINITIONS. 
          SPACE  4,10 
          BASE   M
*         COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992. 
          SPACE  4,10 
***       COMSEJT - EXECUTING JOB DEFINITIONS.
* 
*         R. M. DANISCH.     81/01/27.
          SPACE  4,10 
**        COMSEJT DEFINES SYMBOLS USED BY PROGRAMS CONCERNED WITH JOB 
*         CONTROL.
          SPACE  4,10 
**        JOB STATUS. 
  
  
 PRJS     EQU    0           PRE-INITIAL JOB STEP 
 EXJS     EQU    1           EXECUTING
 ROJS     EQU    2           SCHEDULER ROLLOUT
 SIJS     EQU    3           SCP ROLLIN 
 SOJS     EQU    4           SCP ROLLOUT
 TOJS     EQU    5           TIMED/EVENT ROLLOUT
 IOJS     EQU    6           INTERACTIVE ROLLOUT
 DOJS     EQU    7           DISABLED ROLLOUT 
 SUJS     EQU    10          SUSPENDED ROLLOUT
 PCJS     EQU    11          PSEUDO-ROLLOUT 
  
 RCJS     EQU    11          HIGHEST RECOVERABLE JOB STATUS 
  
 ERJS     EQU    12          I/O ERROR ON ROLLOUT FILE
 NVJS     EQU    13          *NVE*
 PWJS     EQU    14          PRE-INITIAL WAIT 
 SWJS     EQU    15          SERVICE LIMIT WAIT 
 MXJS     EQU    16          MAXIMUM JOB STATUS + 1 
  
*         EQU    16-30       RESERVED FOR CDC 
*         EQU    31 - 37     RESERVED FOR INSTALLATIONS 
          SPACE  4,10 
**        CONNECTION STATUS.
  
  
 NICS     EQU    0           NOT INTERACTIVE
 DTCS     EQU    1           DETACHED 
 OLCS     EQU    2           ON-LINE
  
 MXCS     EQU    3           MAXIMUM CONNECTION STATUS + 1
  
*         EQU    3 - 13      RESERVED FOR CDC 
*         EQU    14 - 17     RESERVED FOR INSTALLATIONS 
          SPACE  4,10 
**        SYSTEM JOB SEQUENCE NUMBER. 
  
  
 SJSN     MICRO  1,,*SYS *
          SPACE  4
**        EJT RA+1 REQUEST CODES. 
  
  
 BEGIN    BSSN   1
  
 DTEJ     BSSN   1           DETACH JOB 
 ENEJ     BSSN   1           ENABLE JOB FOR SCHEDULING
 FJEJ     BSSN   1           FREEZE JOB 
 RCEJ     BSSN   1           RECOVER DETACHED JOB 
 RSEJ     BSSN   1           RESTART RECOVERED JOB
 RTEJ     BSSN   1           RESET TIMEOUT
 SAEJ     BSSN   1           SET ABORT FLAG 
 TJEJ     BSSN   1           TERMINATE JOB
 MXEJ     BSSN   1           MAXIMUM REQUEST VALUE + 1
          SPACE  4
 EJPB     EQU    7           PARAMETER BLOCK LENGTH 
          SPACE  4
**        ERROR RESPONSES FOR EJT RA+1 REQUESTS.
  
  
 BEGIN    BSSN   0
  
 NOER     BSSN   1           NO ERROR 
 IEER     BSSN   1           INVALID EJTO 
 ISER     BSSN   1           INVALID SERVICE CLASS
 IOER     BSSN   1           INVALID ORIGIN TYPE
 MAER     BSSN   1           MESSAGE BUFFER OUT OF RANGE
 IPER     BSSN   1           INVALID PPI
 JFER     BSSN   1           JOB NOT FOUND
 ERER     BSSN   1           ERROR ON ROLLOUT FILE READ 
 NDER     BSSN   1           JOB NOT DISABLED 
 ENER     BSSN   1           ENTRY POINT NAME NOT FOUND 
 HEER     BSSN   1           HIGHER ERROR FLAG SET
 JDER     BSSN   1           JOB CANNOT BE DETACHED 
 NRER     BSSN   1           JOB NOT RECOVERABLE
 DLER     BSSN   1           DETACH LIMIT EXCEEDED
 NTER     BSSN   1           JOB NOT DETACHED 
 NSER     BSSN   1           JOB NOT SUSPENDED
 RTER     BSSN   1           RETRY - RESOURCE REJECT OR INTERLOCK 
 SFER     BSSN   1           SERVICE CLASS FULL 
 JOER     BSSN   1           JOB NOT ONLINE CONNECTION STATUS 
 SSER     BSSN   1           SYSTEM SOFTWARE ERROR
 REER     BSSN   1           RECOVERABLE DISK ERROR 
          SPACE  4
**        REASON CODES FOR DETACH.
  
  
 BEGIN    BSSN   1
  
 LDRC     BSSN   1           LINE DISCONNECT
 TORC     BSSN   1           TIMEOUT
 SARC     BSSN   1           SUBSYSTEM ABORT
 UDRC     BSSN   1           USER DETACH
 PDRC     BSSN   1           PROGRAM INITIATED DETACH 
 PIDL     BSSN   1           PROGRAM INITIATED DETACH AND LOGOUT
 MXDT     BSSN   1           MAXIMUM DETACH REASON CODE 
  
 END      BSSN
          SPACE  4,10 
          BASE   *
          ENDX
