COMSJIO 
COMMON
          CTEXT  COMSJIO - QFT EQUIVALENCES.
          SPACE 4,10
          BASE   OCTAL
*         COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992. 
 IOT      SPACE  4,10 
***       COMSJIO - QFT EQUIVALENCES. 
*         H. G. VARNIS.      81/01/26.
          SPACE  4,10 
**        *COMSJIO* DEFINES SYMBOLS FOR QFT ENTRY DATA FIELD CONTENTS.
          SPACE  4,10 
*         QUEUE TYPE EQUIVALENCES.
  
  
 INQT     EQU    0           INPUT QUEUE TYPE 
 PHQT     EQU    1           PUNCH QUEUE TYPE 
 FRQT     EQU    2           RESERVED FOR FUTURE USE
 PLQT     EQU    3           PLOT QUEUE TYPE
 PRQT     EQU    4           PRINT QUEUE TYPE 
 WTQT     EQU    5           ERROR QUEUE TYPE OR TERMINAL OUTPUT
 SNQT     EQU    7           RESERVED FOR INSTALLATIONS 
  
 NRQT     EQU    10          NUMBER OF QUEUE TYPES
          SPACE  4,10 
*         DISPOSITION TYPE EQUIVALENCES.
* 
*         RANGE  DESCRIPTION
*         0-7    INPUT FILES
*         10-17  PUNCH FILES
*         20-27  RESERVED FOR CDC 
*         30-37  PLOT FILES 
*         40-47  PRINT FILES
*         50-57  WAIT FILES 
*         60-67  RESERVED FOR CDC 
*         70-77  RESERVED FOR INSTALLATIONS 
  
  
 INQF     EQU    INQT*10B+0  INPUT QUEUE TYPE 
 NOQF     EQU    INQT*10B+1  INPUT QUEUE TYPE - NO OUTPUT 
 SOQF     EQU    INQT*10B+6  INPUT QUEUE TYPE - STATION OUTPUT
 TOQF     EQU    INQT*10B+7  INPUT QUEUE TYPE - TERMINAL OUTPUT 
  
 PUQF     EQU    PHQT*10B+0  PUNCH QUEUE TYPE 
  
 FRQF     EQU    FRQT*10B+0  RESERVED FOR FUTURE USE
 FLQF     EQU    FRQT*10B+2  RESERVED FOR FUTURE USE
 HRQF     EQU    FRQT*10B+4  RESERVED FOR FUTURE USE
 HLQF     EQU    FRQT*10B+6  RESERVED FOR FUTURE USE
  
 PLQF     EQU    PLQT*10B+0  PLOT QUEUE TYPE
  
 LPQF     EQU    PRQT*10B+0  PRINT QUEUE TYPE - ANY PRINTER 
 P2QF     EQU    PRQT*10B+2  PRINT QUEUE TYPE - 512 PRINTER 
 LRQF     EQU    PRQT*10B+3  PRINT QUEUE TYPE - 580-12 PRINTER
 LSQF     EQU    PRQT*10B+4  PRINT QUEUE TYPE - 580-16 PRINTER
 LTQF     EQU    PRQT*10B+5  PRINT QUEUE TYPE - 580-20 PRINTER
 LXQF     EQU    PRQT*10B+6  PRINT QUEUE TYPE - 5870 NIP
 LYQF     EQU    PRQT*10B+7  PRINT QUEUE TYPE - 5970 NIP
  
 ERQF     EQU    WTQT*10B+0  WAIT QUEUE - ERROR 
 SQQF     EQU    WTQT*10B+6  WAIT QUEUE - STATION OUTPUT
 TQQF     EQU    WTQT*10B+7  WAIT QUEUE - TERMINAL OUTPUT 
  
 S1QF     EQU    SNQT*10B+0  RESERVED FOR INSTALLATIONS 
 S2QF     EQU    SNQT*10B+1  RESERVED FOR INSTALLATIONS 
 S3QF     EQU    SNQT*10B+2  RESERVED FOR INSTALLATIONS 
          SPACE  4,10 
*         PLOT QUEUE EXTERNAL CHARACTERISTICS EQUIVALENCES. 
  
  
 T6EX     EQU    1           TRANSPARENT 6 BIT
 T8EX     EQU    2           TRANSPARENT 8 BIT
          SPACE  4,10 
*         PRINT QUEUE EXTERNAL CHARACTERISTICS EQUIVALENCES.
  
  
 DFEX     EQU    0           DEFAULT PRINTER
 RREX     EQU    1           RESERVED 
 A4EX     EQU    2           A4 - ASCII 48-CHARACTER
 B4EX     EQU    3           B4 - BCD 48-CHARACTER
 B6EX     EQU    4           B6 - BCD 63/4 CHARACTER
 A6EX     EQU    5           A6 - ASCII 64-CHARACTER
 A9EX     EQU    6           A9 - ASCII 96-CHARACTER
          SPACE  4,10 
*         PUNCH QUEUE EXTERNAL CHARACTERISTICS EQUIVALENCES.
  
  
 DFFR     EQU    0           DEFAULT PUNCH
 PBFR     EQU    1           SB - SYSTEM BINARY 
 P8FR     EQU    2           80COL - 80 COLUMN BINARY 
 R1FR     EQU    3           RESERVED 
 PHFR     EQU    4           O26 -  O26 PUNCH 
 P9FR     EQU    5           O29 - O29 PUNCH
 ASFR     EQU    6           ASCII - ASCII PUNCH
          SPACE  4,10 
*         INTERNAL CHARACTERISTICS EQUIVALENCES.
  
  
 DCIC     EQU    0           DISPLAY CODE 
 ASIC     EQU    1           8/12 ASCII 
 BNIC     EQU    2           BINARY 
 A6IC     EQU    3           6/12 ASCII 
 MXIC     EQU    4           HIGHEST *IC* VALUE+1 
          SPACE 4,10
****      INSTALLATION OUTPUT EQUIPMENT DEFINITIONS.
* 
*         VALID DESTINATIONS FOR *ROUTE* STATEMENTS.
*         ENTRIES MAY BE ADDED TO OR DELETED FROM 
*         THIS TABLE TO REFLECT THE EQUIPMENT ACTUALLY
*         AVAILABLE AT A PARTICULAR INSTALLATION. 
  
 PR$      EQU    1           ANY PRINTER
 P2$      EQU    1           ANY 512 PRINTER
 LP$      EQU    1           ANY PRINTER (SAME AS PR) 
 LR$      EQU    1           ANY 580-12 PRINTER 
 LS$      EQU    1           ANY 580-16 PRINTER 
 LT$      EQU    1           ANY 580-20 PRINTER 
 LX$      EQU    1           ANY 5870 NIP 
 LY$      EQU    1           ANY 5970 NIP 
 PU$      EQU    1           PUNCH CODED
 PH$      EQU    1           PUNCH CODED
 SB$      EQU    1           PUNCH SYSTEM BINARY
 PB$      EQU    1           PUNCH SYSTEM BINARY (SAME AS SB) 
 P8$      EQU    1           PUNCH TO 80 COLUMN BINARY
 PL$      EQU    1           PLOTTER
 WT$      EQU    1           WAIT QUEUE 
          SPACE  4,10 
**        CHARACTER STRING FOR QUEUE TYPES. 
  
  
 NMQT     MICRO  1,, INPUFRPLPRWTFRSN 
  
  
****
          SPACE  4,10 
          BASE   *
          SPACE  4,10 
          ENDX
