COMSIOQ 
COMMON
          CTEXT  COMSIOQ - DAYFILE/QPROTECT EQUIVALENCES. 
          BASE   O
          SPACE  4
*         COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992. 
          SPACE  4
***       COMSIOQ - DAYFILE/QPROTECT EQUIVALENCES.
*         T.H. MACFARLAND.   74/04/23.
*         D. A. COAPSTICK    74/10/17.  (MODIFIED). 
          SPACE  4
***              COMSIOQ DEFINES EQUIVALENCES NEEDED BY PROGRAMS
*         CONCERNED WITH QUEUES.  THIS DECK IS USED BY BOTH CP
*         AND PP PROGRAMS INVOLVED IN THE QUEUE PROTECT PORTIONS
*         OF THE SYSTEM.
          SPACE  4
****      MACROS. 
  
  
**        FILEREC - QUEUE RECOVERY FILE TYPE TABLE. 
* 
*         THESE ENTRIES ARE ORDER DEPENDENT.
* 
*         THESE TABLES ARE USED BY MULTIPLE PROGRAMS TO IDENTIFY FILE 
*         TYPES FOR PROCESSING.  THE *RTFT* MICRO IS A
*         COMPANION TABLE THAT IDENTIFIES THE FILE TYPES
*         BY DISPLAY CODE MNEMONICS FOR ACCOUNTING MESSAGES.
*         THE *RTFT* MICRO MUST PARALLEL THE *RDAT* TABLE.
  
  
 FILEREC  MACRO 
 RDAT     BSS    0
          CON    INFT 
          CON    QFFT 
  
 RDATL    EQU    *-RDAT 
          ENDM
  
 RTFT     MICRO  1,,*INQF*
 QCALL    SPACE  4
***       QCALL - CALL QFM. 
* 
*         QCALL  F,A
* 
*         ENTRY  F = FUNCTION CODE. 
*                A = FWA OF FET.
* 
*         CALL   QFM. 
  
  
          PURGMAC QCALL 
  
 QCALL    MACRO  F,A
  R=  X2,A
  R=  X7,F
  RJ  QFM 
  ENDM
          SPACE  4
**        STATIC QFT THRESHOLD LIMIT. 
* 
*         THE FOLLOWING VALUE SETS THE PERCENTAGE LIMIT 
*         OF THE QFT ALLOCATED FOR REQUEUING FILES. 
  
  
 SQTL     EQU    75D         STATIC QFT THRESHOLD LIMIT 
          SPACE  4
**        DAYFILE EOI DEFINITIONS.
* 
*         THESE DEFINITIONS PROVIDE IDENTIFYING INFORMATION 
*         REGARDING THE RESPECTIVE DAYFILE.  THE TRACK
*         AND SECTOR OF THE DAYFILE SYSTEM SECTOR AND 
*         THE PACKED TIME AND DATE OF THE LAST
*         FILE EXTENSION ARE WRITTEN IN THE EOI OF THE
*         RESPECTIVE DAYFILE PERMITTING VERIFICATION OF DAYFILE 
*         INTEGRITY.
  
  
 EITK     EQU    2           SYSTEM SECTOR TRACK POINTER (1DD/RMS)
 EISE     EQU    3           SYSTEM SECTOR SECTOR POINTER (1DD/RMS) 
 EITM     EQU    4 - 22      PACKED TIME AND DATE, AND
*                            CODED TIME AND DATE FOR *REC*. 
 EITL     EQU    23          LENGTH OF EOI FOR DAYFILES 
          SPACE  4
**        PERMANENT DAYFILE DEFINITIONS.
* 
*         THE FOLLOWING VALUES DEFINE THE USER INDEX UNDER WHICH
*         TERMINATED DAYFILES WILL BE MADE PERMANENT (MUST BE 
*         GREATER THAN 377700B) AND THE USER NUMBER TO WHICH THESE
*         PERMANENT DAYFILES SHOULD BE PERMITTED. 
  
  
 PDUI     EQU    377777B     PERMANENT DAYFILE USER INDEX 
 USRN     MICRO  1,,**       USER NUMBER TO PERMIT
          SPACE  4
**        EQUATES FOR QFM FUNCTIONS.
* 
*         THESE EQUATES DEFINE THE VALID *QFM* FUNCTIONS. 
*         THE THREE CHARACTER PREFIX IDENTIFIES THE 
*         ROUTINE IN *QFM* THAT PROCESSES THE FUNCTION. 
  
  
 ATQF     EQU    01          ATTACH IQFT FILE 
 DTQF     EQU    02          DETACH IQFT FILE 
 PGQF     EQU    03          PURGE IQFT FILE
 STQF     EQU    04          SET IQFT FIRST TRACK TO MST
 IIQF     EQU    05          INITIALIZE IQFT FILE 
 RQLF     EQU    06          REQUEUE FNT/FST LIST 
 RLLF     EQU    07          RELEASE FNT/FST LIST 
 DEQF     EQU    10          DEQUEUE FNT/FST
 AQFF     EQU    11          ATTACH QUEUED FILE 
 QRSF     EQU    12          READ SYSTEM SECTOR 
 AIQF     EQU    13          ATTACH INACTIVE QUEUED FILE
 RIQF     EQU    14          REQUEUE INACTIVE QUEUED FILE 
 SRRF     EQU    15          SET RERUN (PROTECT BIT) -NON TTY JOBS
 CRRF     EQU    16          CLEAR RERUN -NON TTY JOBS
*         EQU    17          *** RESERVED *** 
*         EQU    20          *** RESERVED *** 
 IQFF     EQU    21          INTERLOCK QUEUED FILE
 CFEF     EQU    22          CREATE FOT ENTRY 
 CQFF     EQU    23          CREATE QUEUE FILE
 QREF     EQU    24          READ EOI SECTOR
 QWEF     EQU    25          WRITE EOI SECTOR 
  
 MXQF     EQU    26          END OF *QFM* FUNCTION CODES
          SPACE  4
**        QFM ERROR RETURN CODES (BITS 10 - 13 OF FET+0). 
  
 FNFE     EQU    1           FILE NOT FOUND 
 FAIE     EQU    2           FILE ALREADY INTERLOCKED 
 TASE     EQU    3           IQFT TRACK ALREADY ASSIGNED
 FTHE     EQU    4           FNT THRESHOLD REACHED
 INSE     EQU    5           INVALID SYSTEM SECTOR
 RMSE     EQU    6           RMS ERROR
 RRAE     EQU    7           INPUT FILE ALREADY IN RERUN STATUS 
 NRAE     EQU    10          INPUT FILE ALREADY IN NORERUN STATUS 
 DUNE     EQU    11          DEVICE UNAVAILABLE 
 RDVE     EQU    12          DEVICE IGNORED - REMOVABLE (QREC)
*         EQU    13          UNUSED 
 FTFE     EQU    14          FOT FULL 
 EIDE     EQU    15          DEVICE IGNORED - ERROR IDLE (QREC) 
 DFNE     EQU    16          DUPLICATE FILE NAME
 NSEE     EQU    17          INCORRECT ACCESS LEVEL FOR QUEUED FILE 
          SPACE  4
**        QFM SUBFUNCTION TABLE.
* 
*         THESE SUBFUNCTIONS IDENTIFY WHICH FILE *QFM* IS TO
*         PERFORM THE PRIMARY FUNCTION UPON.  IF A SUBFUNCTION
*         IS REQUIRED IT IS REPRESENTED IN FET+7, BYTE 3. 
*         QFM DOCUMENTATION DESCRIBES WHICH FUNCTIONS REQUIRE 
*         SUBFUNCTIONS. 
  
  
          LOC    1
 DFQT     BSS    0
 SDAY     EQU    *           SYSTEM DAYFILE BYTE
 ACCF     EQU    *+1         ACCOUNT FILE BYTE
 ERLF     EQU    *+2         ERROR LOG BYTE 
 BMLF     EQU    *+3         MAINTENANCE LOG BYTE 
 IQFT     EQU    *+4         IQFT BYTE
 DFQTL    EQU    DFQT+IQFT-1 LENGTH OF TABLE
          LOC    *O 
          SPACE  4
**        QUEUED FILE IQFT ENTRY SIZE AND FORMAT. 
* 
*T        60/ QFT ENTRY 
*T,       60/ QFT ENTRY 
*T,       60/ QFT ENTRY 
*T,       60/ QFT ENTRY 
*T,       60/ RESERVED FOR QFT EXPANSION
*T,       60/ RESERVED FOR QFT EXPANSION
*T,       60/ RESERVED FOR QFT EXPANSION
*T,       60/ RESERVED FOR QFT EXPANSION
*T,       24/ LENGTH (PRU-S),36/ PACKED DATE AND TIME 
*T,       42/ CREATION FAMILY NAME,6/ ,12/ MACHINE ID 
*T,       42/ DESTINATION FAMILY NAME,18/ INSTALLATIONS 
*T,       42/ OWNER USER NUMBER,18/ OWNER USER INDEX
*T,       42/ OWNER FAMILY NAME,18/ RESERVED
*T,       60/ RESERVED
*T,       60/ RESERVED
*T,       60/ RESERVED
  
 QFEWL    EQU    20          IQFT ENTRY LENGTH
****
  
          BASE   *
  
          ENDX
