COMSEVT 
COMMON
          CTEXT  COMSEVT - EVENT DESCRIPTORS. 
          SPACE  4
*         COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992. 
 EVT      SPACE  4,10 
***       COMSEVT - EVENT DESCRIPTORS.
*         S. L. BETH.        77/06/21.
*         S. L. KSANDER.     77/09/19.
 EVT      SPACE  4,10 
***       EVENT DESCRIPTOR FORMATS. 
* 
*         THE GENERAL FORMAT FOR SYSTEM DEFINED EVENTS IS 
*T        9/  EQ,12/  EVENT 
* 
*         EQ     = THE EST ORDINAL ASSOCIATED WITH THE EVENT. 
* 
*         EVENT  = THE DATA PATTERN DEFINING THE EVENT. 
* 
*         IF *EQ* AND *EVENT* ARE EQUAL TO ZERO THE EVENT 
*         IS CONSIDERED AS A NULL EVENT.
* 
*         THIS COMMON DECK DEFINES EVENTS WITH SPECIAL SYSTEM MEANING.
          SPACE  4,10 
**        SYSTEM EVENTS (EQ = 0). 
  
          LOC    1
 FOTE     BSS    1           FAMILY ORDINAL TABLE FULL
 SFTE     BSS    1           FILE NAME TABLE FULL 
 IOQE     BSS    1           INPUT/OUTPUT QUEUE TABLE FULL
 EJJE     BSS    1           EXECUTING JOB TABLE FULL 
 DFDE     BSS    1           EXCEEDED DAYFILE SIZE
 ELDE     BSS    1           EXCEEDED ERRLOG SIZE 
 ALDE     BSS    1           EXCEEDED ACCOUNT SIZE
 BMLE     BSS    1           EXCEEDED BINARY MAINTENANCE LOG SIZE 
 TKLE     BSS    1           TRACK LIMIT
 UEDE     BSS    1           USER ECS DISABLED
 CDSE     BSS    1           CHANNEL DOWNED BY SYSTEM 
 ELAE     BSS    1           ERRLOG ALERT 
 LSPE     BSS    1           LOW SPACE THRESHOLD
 TCSE     BSS    1           TMS TAPE CATALOG STATUS PROBLEM
 CEDE     BSS    1           CHECK *E,E* DISPLAY
  
 MXOE     BSS    0           MAXIMUM OPERATOR DISPLAYED EVENT + 1 
  
 LINE     BSS    1           *L* DISPLAY INPUT AVAILABLE
 MTXE     BSS    1           *MAGNET* AVAILABLE 
 MSXE     BSS    1           *MSS* EXECUTIVE AVAILABLE
 PFUE     BSS    1           *PF* UNILITY COMPLETE
 CPIE     BSS    1           *CPD* INITIATED
 CPTE     BSS    1           *CPD* TERMINATED 
 RHFE     BSS    1           REMOTE HOST FACILITY 
 SCFE     BSS    1           JOB COUNT BELOW SERVICE LIMIT
 ASXE     BSS    1           *MSE* ALTERNATE STORAGE EXEC. AVAILABLE
 TRME     BSS    1           TMS ROLLOUT FOR MAGNET 
 TUIE     BSS    1           TMS UTILITY INTERLOCK
 TVBE     BSS    1           TMS VSN BUSY OR WAIT FOR SCRATCH 
 ESCE     BSS    1           TAPE EQUIPMENT STATE CHANGE
 SSWE     BSS    1           SUBSYSTEM WAITING FOR REQUIRED CP
 I0SE     BSS    1           INSTALLATION EVENT 0 
 I1SE     BSS    1           INSTALLATION EVENT 1 
 I2SE     BSS    1           INSTALLATION EVENT 2 
 I3SE     BSS    1           INSTALLATION EVENT 3 
 I4SE     BSS    1           INSTALLATION EVENT 4 
 I5SE     BSS    1           INSTALLATION EVENT 5 
 I6SE     BSS    1           INSTALLATION EVENT 6 
 I7SE     BSS    1           INSTALLATION EVENT 7 
  
 MAXE     BSS    1           MAXIMUM EVENT + 1
          LOC    *O 
          SPACE  4
*         EVENTS WITH EQ = *TTEQ*.  (WORKFILE EVENTS) 
* 
*         ALL EVENTS OF THIS TYPE ARE DEFINED AS WORKFILE EDITING 
*         COMPLETE EVENTS WHICH INDICATE THAT THE WORKFILE MAY
*         NOW BE TRANSFERRED BACK TO THE CALLING CONTROL POINT. 
*         THE 12-BIT EVENT FIELD = THE CALLING EJT ORDINAL. 
  
 WRKE     EQU    TTEQ*10000B  WORKFILE EVENT
          SPACE  4,10 
*         EVENTS WITH EQ = *TEEQ*.  (RESOURCE EVENTS) 
  
  
 VSNE     EQU    TEEQ*10000B MISSING VSN/PACK 
*                            THE EVENT BITS ARE THE LOWER 12 BITS 
*                            OF THE SUM OF THE 3 12 BIT BYTES THAT
*                            COMPRISE THE 36 BIT VSN FOR TAPES OR 
*                            THE 42 BIT PACKNAME FOR REMOVABLE PACKS. 
 JBME     EQU    TEEQ*10000B+7776B  JUKEBOX MANAGER NEEDED
 OVRE     EQU    TEEQ*10000B+7777B  OVERCOMMITMENT
          SPACE  4
*         EVENTS WITH EQ = *NEEQ*.  (EXTENDED TIME EVENTS)
* 
*         ALL EVENTS OF THIS TYPE ARE DEFINED AS EXTENDED 
*         TIME ROLLOUTS WHERE THE DELAY TIME IS EQUAL TO
*         7777B*(EVENT)+(ROLLOUT TIME) IN SECONDS.
  
  
 EXTM     EQU    NEEQ*10000B EXTENDED TIME EVENT
          SPACE  4,10 
*         EVENTS WITH EQ = MASS STORAGE DEVICE. 
* 
*         EVENT = 0     WAITING FOR INACCESSIBLE DEVICE.
*         EVENT .NE. 0  WAITING FOR BUSY PERMANENT FILE.
*                       (EVENT = TRACK NUMBER.) 
  
  
 WISE     EQU    0           INACCESSIBLE DEVICE
 RODS     SPACE  4,10 
**        RODS - ROLLOUT DESCRIPTOR.
* 
*         RODS. 
* 
*         DISPLAY CHARACTERS EQUIVALENT TO ALL ROLLOUT
*         DESCRIPTOR COMBINATIONS ARE GENERATED BY THIS MACRO.
* 
*         ENTRIES ARE IN ORDER AS DEFINED BY THE VALUES 
*         OF THE SCHEDULING FIELD IN THE EJT ENTRY -
* 
*         (EQ - EVENT)
*         WHERE EQ = EST ORDINAL OF EVENT DESCRIPTOR. 
*               EVENT = EVENT DESCRIPTOR. 
* 
*         NOTE   TO DETECT ANY MISMATCH, THE *RODS* MACRO MUST BE 
*                ASSEMBLED UNDER THE SAME QUALIFIER AS *COMSEVT*. 
  
  
          PURGMAC  RODS 
 RODS     MACRO 
          ERRNZ  WRKE/10000B-VSNE/10000B-1  TABLE OUT OF SEQUENCE 
          ERRNZ  VSNE/10000B-EXTM/10000B-1  TABLE OUT OF SEQUENCE 
  
*         NOTE - THE NEXT THREE ENTRIES MUST REMAIN IN ORDER, AND 
*         BE THE FIRST THREE ENTRIES IN THE TABLE.
  
          DATA   H*TE*       EXTENDED TIME EVENT (*NEEQ*-0 / 0-0) 
          DATA   H*RS*       WAITING FOR RESOURCE (*TEEQ*-FOLDED VSN) 
          DATA   H*WK*       WAITING FOR WORKFILE (*TTEQ*-EJT)
  
*         EVENTS DISPLAYED ON THE *A,OPERATOR* DISPLAY. 
  
          LOC    1
 FOTE     DATA   H*FO*       WAITING FOR FOT FULL 
 SFTE     DATA   H*FN*       WAITING FOR SYSTEM FNT FULL
 IOQE     DATA   H*QF*       WAITING FOR QFT FULL 
 EJJE     DATA   H*EJ*       WAITING FOR EJT FULL 
 DFDE     DATA   H*DS*       WAITING FOR DAYFILE SIZE EXCEEDED
 ELDE     DATA   H*ES*       WAITING FOR ERROR LOG SIZE EXCEEDED
 ALDE     DATA   H*AS*       WAITING FOR ACCOUNT SIZE EXCEEDED
 BMLE     DATA   H*BS*       WAITING FOR BML SIZE EXCEEDED
 TKLE     DATA   H*TL*       WAITING FOR TRACK LIMIT
 UEDE     DATA   H*ED*       WAITING FOR USER ECS DISABLED
 CDSE     DATA   H*CD*       WAITING FOR CHANNEL DOWNED BY NOS
 ELAE     DATA   H*EA*       WAITING FOR ERRLOG ALERT 
 LSPE     DATA   H*LS*       WAITING FOR LOW SPACE THRESHOLD
 TCSE     DATA   H*TC*       WAITING FOR TMS CATALOG PROBLEM
 CEDE     DATA   H*CE*       WAITING FOR CHECK *E,E* DISPLAY
  
*         EVENTS NOT DISPLAYED ON THE *A,OPERATOR* DISPLAY. 
  
 LINE     DATA   H*LD*       WAITING FOR L-DISPLAY INPUT
 MTXE     DATA   H*MG*       WAITING FOR MAGNET 
 MSXE     DATA   H*MS*       WAITING FOR *MSS*
 PFUE     DATA   H*UA*       WAITING FOR PF UTILITY ACTIVE
 CPIE     DATA   H*CI*       WAITING FOR *CPD* INITIATION 
 CPTE     DATA   H*CT*       WAITING FOR *CPD* TERMINATION
 RHFE     DATA   H*RH*       WAITING FOR *RHF*
 SCFE     DATA   H*SC*       WAITING FOR SERVICE CLASS CHANGE 
 ASXE     DATA   H*MA*       WAITING FOR *MSE*
 TRME     DATA   H*TM*       WAITING FOR TMS ROLLOUT FOR MAGNET 
 TUIE     DATA   H*TU*       WAITING FOR TMS UTILITY ACTIVE 
 TVBE     DATA   H*TV*       WAITING FOR TMS VSN BUSY 
 ESCE     DATA   H*RD*       WAITING FOR EQUIPMENT STATE CHANGE 
 SSWE     DATA   H*SS*       WAITING FOR REQUIRED CP FOR SUBSYSTEM
  
  
  
*         NOTE - THE NEXT EIGHT ENTRIES ARE RESERVED FOR INSTALLATION 
*                EVENTS.
  
 I0SE     DATA   H*I0*       WAITING FOR INSTALLATION DEFINED EVENT 0 
 I1SE     DATA   H*I1*       WAITING FOR INSTALLATION DEFINED EVENT 1 
 I2SE     DATA   H*I2*       WAITING FOR INSTALLATION DEFINED EVENT 2 
 I3SE     DATA   H*I3*       WAITING FOR INSTALLATION DEFINED EVENT 3 
 I4SE     DATA   H*I4*       WAITING FOR INSTALLATION DEFINED EVENT 4 
 I5SE     DATA   H*I5*       WAITING FOR INSTALLATION DEFINED EVENT 5 
 I6SE     DATA   H*I6*       WAITING FOR INSTALLATION DEFINED EVENT 6 
 I7SE     DATA   H*I7*       WAITING FOR INSTALLATION DEFINED EVENT 7 
  
 MAXE     BSS    0           VERIFY *RODS* MACRO MATCHES MAXIMUM EVENT
          LOC    *O 
 RODS     ENDM
  
  
          ENDX
