COMSQFS 
COMMON
          CTEXT  COMSQFS - QUEUED FILE EQUIVALENCES.
          BASE   O
*         COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992. 
          SPACE  4
***       COMSQFS - QUEUED FILE EQUIVELENCES. 
*         R. A. JAPS.        74/08/30.
          SPACE  4
***       *COMSQFS* PROVIDES EQUIVALENCES FOR QUEUED FILE SYMBOLS 
*         AND LOCATIONS.
          SPACE  4
***       ENTRY CONDITIONS TO QFSP UTILITY OVERLAYS.
* 
*         THE FOLLOWING TABLES ARE BUILT BY QFSP. 
*                TARG - TABLE OF PROCESSED ARGUMENTS. 
*                TEQP - TABLE OF MASS STORAGE EQUIPMENT.
*                TMSD - TABLE OF MASS STORAGE DESCRIPTIONS. 
*                TDAL - TABLE OF DEVICE ACCESS LEVEL LIMITS.
*                TMSS - TABLE OF AVAILABLE MASS STORAGE SPACE.
*                TPPP - TABLE OF PRINTER PAGE PARAMETERS. 
*                FOTT - TABLE OF FAMILY ORDINALS. 
*         THE FOLLOWING WORDS ARE ALSO SET BY QFSP. 
*                QFTA - QFT POINTER.
*                DFPA - DAYFILE POINTER.
          SPACE  4,5
***       EXIT CONDITIONS FROM QFSP UTILITY OVERLAYS. 
* 
*                (X2) = 0, SET PRIMARY RIGHT SCREEN K-DISPLAY.
*                (X2) .LT. 0, DO NOT CHANGE RIGHT SCREEN K-DISPLAY. 
*                (X2) .GT. 0, FWA OF NEW RIGHT SCREEN K-DISPLAY.
*                (X5) = FWA OF K-DISPLAY MESSAGE. (MESSAGE MUST BE
*                       4 WORDS LONG).
*                (X5) = 0, NO K-DISPLAY MESSAGE.
*                (X5) .LT. O, COMPLEMENT OF FWA OF K-DISPLAY MESSAGE. 
*                            (K-DISPLAY WILL NOT BE RESET TO DEFAULT
*                            VALUES). 
          SPACE  4,4
**        QFSP UTILITY NUMBERS. 
  
  
 FNQD     EQU    0           QDUMP
 FNQL     EQU    1           QLOAD
 FNQM     EQU    2           QMOVE
 FNQR     EQU    3           QREC 
 FNDT     EQU    4           DFTERM 
 FNFN     EQU    5           QFTLIST/QALTER 
          SPACE  4
**        TARG - TABLE OF PROCESSED ARGUMENTS.
* 
* 
*T,ARFM   42/ FAMILY NAME FOR DEVICES ,18/ 0
*T,ARFU   42/ FAMILY NAME FOR UI , 18/ 0
*T,ARDF   42/ DESTINATION FAMILY NAME , 18/ 0 
*T,ARDN   12/ DN , 36/ 0 , 12 / EQ
*T,ARDD   12/ DD , 36/ 0 , 12 / EQ
*T,ARUI   42/ 0 , 18/ UIL 
*T,ARU1   42/ 0 , 18/ UIU 
*T,ARDA   42/ 0 , 18/ DAL 
*T,ARD1   42/ 0 , 18/ DAU 
*T,ARJN   24/ JOB SEQUENCE NUMBER , 36/0
*T,ARJ2   24/ JOB SEQUENCE NUMBER , 36/0
*T,ARJ3   24/ JOB SEQUENCE NUMBER , 36/0
*T,ARJ4   24/ JOB SEQUENCE NUMBER , 36/0
*T,ARJ5   24/ JOB SEQUENCE NUMBER , 36/0
*T,AROL   18/ LD, 42/0
*T,ARNL   18/ NLD, 42/0 
*T,ARID   60/ MINIMUM ID
*T,ARI1   60/ MAXIMUM ID
*T,ARLA   1/U, 47/ 0, 12/ LA
*T,ARL1   60/ 0 
*T,ARUA   1/U, 47/ 0, 12/ UA
*T,ARU2   60/ 0 
*T,ARLL   42/ FILE NAME , 18/ 0 
*T,ARTP   48/ 0 , 12/ TP
*T,ARFS   48/ 0 , 12/ FSL 
*T,ARF1   48/ 0 , 12/ FSU 
*T,ARNF   48/ 0 , 12/ NF
*T,ARSC   48/ 0 , 12/ SC
*T,ARBC   12/ QT , 48/ 0
*T,ARB1   60/ 0 
*T,ARB2   60/ 0 
*T,ARRB   12/ QT , 48/ 0
*T,ARR3   60/ 0 
*T,ARR4   60/ 0 
*T,AROP   48/ 0 , 12/ OP
*T,ARFT   48/ 0 , 12/ FT
*T,ARNM   30/ DAYFILE NAME , 30/ 0
*T,ARTI   60/ DESTINATION TUI - MINIMUM VALUE 
*T,ART1   60/ DESTINATION TUI - MAXIMUM VALUE 
*T,ARTF   42/ FAMILY FOR TERMINAL , 18/ 0 
*T,ARFR   12/ FORMS , 48/ 0 
*T,ARMI   12/ MACHINE ID , 48/ 0
*T,ARFN   42/ DUMP FILE NAME ,18/ 0 
*T,ARUN   60/ USER NUMBER 
*T,ARUJ   42/ USER JOB NAME (UJN) ,18/ 0
*T,ARLO   60/ LIST OPTION 
*T,ARAL   1/U, 59/ NEW ACCESS LEVEL 
*T,ARDC   48/ 0 , 12/ DEVICE CODE 
*T,ARNE   12/ PL , 12/ PR , 12/ PU , 36/ 0
*T,ARND   42/ NEW DESTINATION FAMILY , 18/ 0
*T,ARNU   42/ NEW DESTINATION USER , 18/ 0
*T,ARNC   12/ NEW FORMS , 48/ 0 
*T,ARNI   1/U, 53/ 0, 6/NEW ID
*T,ARNR   1/U, 41/ 0, 18/ REPEAT COUNT
*T,ARNP   1/U, 47/ 0, 12/ PRIORITY
*T,ARFC   1/N, 1/R, 1/E, 1/F, 1/K, 1/L, 1/I, 1/U, 28/ 0, 12/ QO, 12/ FC 
* 
* 
*         DN = DEVICE NUMBER. 
*         DD = DESTINATION DEVICE NUMBER. 
*         EQ = EST ORDINAL. 
*         UIL = LOWER BOUND FOR USER INDEX. 
*         UIU = UPPER BOUND FOR USER INDEX. 
*         DAL = LOWER BOUND FOR DATE RANGE. 
*         DAU = UPPER BOUND FOR DATE RANGE. 
*         LD = DESTINATION LOGICAL IDENTIFIER (LID).
*         NLD = NEW DESTINATION LOGICAL IDENTIFIER (LID). 
*         LA = LOWER ACCESS LEVEL.
*         UA = UPPER ACCESS LEVEL.
*         TP = TYPE.
*                0 = INACTIVE QUEUES
*                1 = ACTIVE QUEUES
*                2 = ALL QUEUES 
*         FSL = LOWER BOUND FOR FILE SIZE RANGE.
*         FSU = UPPER BOUND FOR FILE SIZE RANGE.
*         NF = NUMBER OF MEDIA FILES TO SKIP. 
*         SC = NUMBER OF QUEUED FILES TO SKIP.
*         QT = QUEUE TYPE.
*              ONE BIT REPRESENTS A SPECIFIC QUEUE TYPE.
*                7777 = ALL QUEUE TYPES 
*                4000 = SPECIAL QUEUE TYPE
*                2000 = INPUT QUEUE TYPE
*                1000 = PUNCH QUEUE TYPE
*                0400 = PLOT QUEUE TYPE 
*                0376 = ANY PRINT TYPE
*                0200 = PRINT QUEUE TYPE-ANY PRINTER
*                0100 = PRINT QUEUE TYPE-511 PRINTER
*                0040 = PRINT QUEUE TYPE-580-12 PRINTER 
*                0020 = PRINT QUEUE TYPE-580-16 PRINTER 
*                0010 = PRINT QUEUE TYPE-580-20 PRINTER 
*                0004 = PRINT QUEUE TYPE-5870 NIP 
*                0002 = PRINT QUEUE TYPE-5970 NIP 
*                0001 = WAIT QUEUE-TERMINAL OUTPUT
*                0000 = NO QUEUE TYPES
*         FT = DAYFILE TYPE TO BE TERMINATED. 
*                (SEE *COMSIOQ* FOR DEFINED DAYFILE CODES). 
*                1 = SYSTEM DAYFILE 
*                2 = ACCOUNT DAYFILE. 
*                3 = ERRLOG DAYFILE 
*                4 = MAINTENANCE LOG DAYFILE
*         PL = PLOT QUEUE EXTERNAL CHARACTERISTIC, BIASED BY 4000B. 
*         PR = PRINT QUEUE EXTERNAL CHARACTERISTIC, BIASED BY 4000B.
*         PU = PUNCH QUEUE EXTERNAL CHARACTERISTIC, BIASED BY 4000B.
*         OP = OPTION.
*              QREC OPTIONS.
*                0 = RECOVER/PURGE
*                1 = RECOVER/IGNORE 
*                2 = PURGE/IGNORE 
*                3 = DEQUEUE/IGNORE 
*              QLOAD OPTIONS. 
*                0 = LOAD AND INACTIVATE
*                1 = LOAD AND ACTIVATE
*              QMOVE OPTIONS. 
*                0 = LEAVE AS INACTIVE QUEUE FILES. 
*                1 = LEAVE AS ACTIVE QUEUE FILES. 
*              DFTERM OPTIONS.
*                0 = INACTIVE DAYFILE 
*                1 = ACTIVE DAYFILE 
*              QALTER OPTIONS.
*                0 = ALTER TO REMOTE BATCH. 
*                1 = ALTER TO LOCAL BATCH.
*                2 = DO NOT CHANGE FILE DESTINATION.
*                4 = PURGE SELECTED QUEUED FILES. 
* 
*         U  = FIELD USED FLAG. 
*                FOR *ARDS*, *ARLA*, *ARUA,* AND *ARAL* - 
*                  SET TO 0 IF FIELD USED.
*                  SET TO 1 IF FIELD NOT USED.
*                FOR *ARNI* AND *ARNP* -
*                  SET TO 0 IF FIELD NOT USED.
*                  SET TO 1 IF FIELD USED.
*         N = NO K-DISPLAY OPTION.
*         R = REWIND FLAG.
*         E = ERRORED FILES PROCESSING FLAG.
*         F = FAMILY ORDINAL TABLE PROCESSING FLAG. 
*         K = FORCE *K* DISPLAY ON ERROR RETURN FROM UTILITY. 
*         L = LID TABLE PROCESSING FLAG.
*         I = INPUT FILE PROCESSING FLAG. 
*         U = UNCONDITIONAL FILE PROCESSING.
*         QO = QFT ORDINAL. 
*         FC = FUNCTION COMMAND NUMBER. 
*                0 = GO 
*                1 = PAGE K-DISPLAY 
*                2 = LIST 
*                3 = OUT
* 
*         ALL NUMBERS STORED IN TARG ARE IN BINARY FORMAT.
  
  
          LOC    0
 ARFM     BSS    1
 ARFU     BSS    1
 ARDF     BSS    1
 ARDN     BSS    1
 ARDD     BSS    1
 ARUI     BSS    1
 ARU1     BSS    1
 ARDA     BSS    1
 ARD1     BSS    1
 ARJN     BSS    1
 ARJ2     BSS    1
 ARJ3     BSS    1
 ARJ4     BSS    1
 ARJ5     BSS    1
 ARJNL    EQU    *-ARJN      JSN LIST LENGTH
 AROL     BSS    1
 ARNL     BSS    1
 ARID     BSS    1
 ARI1     BSS    1
 ARLA     BSS    1
 ARL1     BSS    1
 ARUA     BSS    1
 ARU2     BSS    1
 ARLL     BSS    1
 ARTP     BSS    1
 ARFS     BSS    1
 ARF1     BSS    1
 ARNF     BSS    1
 ARSC     BSS    1
 ARBC     BSS    1
 ARB1     BSS    1
 ARB2     BSS    1
 ARRB     BSS    1
 ARR3     BSS    1
 ARR4     BSS    1
 AROP     BSS    1
 ARFT     BSS    1
 ARNM     BSS    1
 ARTI     BSS    1
 ART1     BSS    1
 ARTF     BSS    1
 ARFR     BSS    1
 ARMI     BSS    1
 ARFN     BSS    1
 ARUN     BSS    1
 ARUJ     BSS    1
 ARLO     BSS    1
 ARAL     BSS    1
 ARDC     BSS    1
 ARNE     BSS    1
 ARND     BSS    1
 ARNU     BSS    1
 ARNC     BSS    1
 ARNI     BSS    1
 ARNR     BSS    1
 ARNP     BSS    1
 ARFC     BSS    1
 TARGL    BSS    1      ARGUMENT TABLE LENGTH 
          LOC    *O 
  
          ERRNZ  ARB1-ARBC-1  (VALUES MUST BE CONTINUOUS) 
          ERRNZ  ARB2-ARB1-1  (VALUES MUST BE CONTIGUOUS) 
          ERRNZ  ARR3-ARRB-1  (VALUES MUST BE CONTINUOUS) 
          ERRNZ  ARR4-ARR3-1  (VALUES MUST BE CONTIGUOUS) 
  
  
          ERRPL  TARGL-60D   (TABLE EXCEEDS MAX MASK DEFINITION)
          SPACE  4
**        QFSP CONSTANTS. 
  
 DFPA     EQU    124         DAYFILE POINTER ADDRESS
 DVLA     EQU    125         DEVICE ACCESS LEVEL LOWER LIMIT
 DVUA     EQU    126         DEVICE ACCESS LEVEL UPPER LIMIT
 DFDA     EQU    5           NUMBER OF DAYS IN DATE RANGE 
 FOTL     EQU    100B        LENGTH OF WORKING BUFFER 
 JACA     EQU    131         VALID JOB ACCESS LEVELS
 KLEN     EQU    310         LEFT SCREEN K-DISPLAY LENGTH 
 KMLL     EQU    23D         NUMBER OF LINES IN K-DISPLAY BEFORE THE
*                            MESSAGE BUFFER 
 KTIA     EQU    133         K-DISPLAY TITLE ADDRESS
 OPAM     EQU    144         OPERATOR ACTION MESSAGE POINTER
 OVLA     EQU    15000       PRIMARY OVERLAY ADDRESS
 QFTA     EQU    140         QFT POINTER ADDRESS
 RFL      EQU    22000       REQUIRED FIELD LENGTH
 SECA     EQU    141         SYSTEM SECURITY INFORMATION
 TARA     EQU    145         PROCESSED ARGUMENT TABLE ADDRESS 
 TEQP     SPACE  4,5
**        TEQP - MASS STORAGE EQUIPMENT TABLE.
* 
*                ONE WORD PER EQUIPMENT.
*                INDEXED BY EST ORDINAL.
*                   -1 = EQUIPMENT NOT MASS STORAGE.
*                    0 = END OF TABLE.
* 
*T,       42/FM,6/DN,2/D,2/A,2/E,2/M,1/S,1/P,1/R,1/I
* 
*                FM = FAMILY NAME.
*                DN = DEVICE NUMBER.
*                D  = SYSTEM DAYFILE RESIDENCE. 
*                A  = ACCOUNT FILE RESIDENCE. 
*                E  = ERRLOG RESIDENCE. 
*                M  = MAINTENANCE LOG RESIDENCE.
*                S  = SET IF SHARED DEVICE. 
*                P  = SET IF AUXILIARY DEVICE.
*                R  = SET IF REMOVABLE DEVICE.
*                I  = SET IF IQFT FILE RESIDES ON DEVICE. 
* 
*         DAYFILE RESIDENCE IS DETERMINED BY THE FOLLOWING TWO
*         BIT CODE -
*                00 = NO DAYFILES ON DEVICE.
*                01 = INACTIVE DAYFILE OF SPECIFIED TYPE ON DEVICE. 
*                11 = ACTIVE DAYFILE OF SPECIFIED TYPE ON DEVICE. 
* 
  
  
 TEQA      EQU    TARA+TARGL FWA OF MASS STORAGE EQUIPMENT TABLE
 TMSD     SPACE  4,5
**        TMSD - TABLE OF MASS STORAGE DESCRIPTIONS.
* 
*                ONE WORD PER EQUIPMENT.
*                INDEXED BY EST ORDINAL.
* 
* 
*T        42/USER NUMBER,6/UNITS,1/F,3/,8/MASK
* 
*                UNITS = NUMBER OF UNITS IN EQUIPMENT.
*                F = SET IF ERROR IDLE STATUS ON DEVICE.
*                MASK = DEVICE MASK.
  
  
 TMSA     EQU    TEQA+ESMX+1 FWA OF MASS STORAGE DESCRIPTION TABLE
 TDAA     SPACE  4,10 
**        TDAA - TABLE OF MASS STORAGE DEVICE ACCESS LEVEL LIMITS.
* 
*                ONE WORD PER DEVICE. 
*                INDEXED BY EST ORDINAL.
* 
*T        54/  0, 3/ L, 3/ U
*                L = LOWER ACCESS LEVEL.
*                U = UPPER ACCESS LEVEL.
  
  
 TDAA     EQU    TMSA+ESMX   FWA OF DEVICE ACCESS LEVEL TABLE 
 TMSS     SPACE  4,10 
**        TMSS - TABLE OF AVAILABLE MASS STORAGE SPACE. 
* 
*                ONE WORD PER DEVICE. 
*                INDEXED BY EST ORDINAL.
* 
*T        42/  0, 18/ TKS 
*                TKS = TRACKS AVAILABLE.
  
  
 TAMS     EQU    TDAA+ESMX   FWA OF AVAILABLE SPACE TABLE 
          SPACE  4,10 
**        TPPP - TABLE OF PRINTER PAGE PARAMETERS.
* 
*T,PPLN   60/ CURRENT LINE NUMBER 
*T,PPPL   60/ PAGE LENGTH 
*T,PPPD   6/ PD, 54/ 0
*T,       60/ 0 
* 
*         PD = PRINT DENSITY FORMAT CONTROL CHARACTER.
  
  
 TPPA     EQU    TAMS+ESMX   FWA OF PRINTER PARAMETERS TABLE
          LOC    0
 PPLN     BSS    1
 PPPL     BSS    1
 PPPD     BSS    1
          BSS    1
 TPPPL    BSS    1           TABLE LENGTH 
          LOC    *O 
          SPACE  4,10 
**        FOTT - FAMILY ORDINAL TABLE 
* 
*T,       42/ FAMILY NAME, 18/ FOT ORDINAL
* 
*         ONE ENTRY WILL BE PRESENT FOR EACH FAMILY 
*         THAT IS CURRENTLY IN THE FAMILY ORDINAL TABLE (FOT).
  
  
 FOTA     EQU    TPPA+TPPPL  FWA OF FAMILY ORDINAL TABLE
          SPACE  4,4
**        QREC OPTIONS. 
  
  
 REPG     EQU    0           RECOVER/PURGE
 REIG     EQU    1           RECOVER/IGNORE 
 PGIG     EQU    2           PURGE/IGNORE 
 DEIG     EQU    3           DEQUEUE/IGNORE 
          SPACE  4
**        QALTER OPTIONS. 
  
 RBOP     EQU    0           ALTER TO REMOTE BATCH
 BCOP     EQU    1           ALTER TO LOCAL BATCH 
 NCOP     EQU    2           DO NOT CHANGE FILE DESTINATION 
 PROP     EQU    4           PURGE LOCAL AND REMOTE BATCH 
          SPACE  4
**        QDUMP/QLOAD UTILITY CONTROL WORDS.
* 
*         EACH QUEUED FILE AND THE ASSOCIATED DATA FOR THE FILE 
*         RESIDES ON THE DUMP FILE AS A LOGICAL RECORD.  EACH DUMP
*         SESSION RESIDES ON THE DUMP FILE AS A LOGICAL FILE, ALLOWING
*         MULTIPLE DUMPS ON THE SAME DUMP FILE.  EACH BLOCK OF DATA 
*         IS PRECEEDED BY A CONTROL WORD IN THE FOLLOWING FORMAT -
* 
*T        42/ NAME,3/ A,3/ B,3/ C,9/ D
* 
*         NAME = NAME OF QUEUED FILE IF DATA OR DUMP FILE IF BLOCK
*                IS DUMP HEADER (7 CHARACTER MAXIMUM).
*         A = LOGICAL CONTENT OF BLOCK. 
*                0 - DATA.
*                1 - ROUTE BLOCK (15 WORDS PLUS CHECKSUM IN THE 
*                    SIXTEENTH WORD WHICH IS THE ARITHMETIC SUM OF
*                    THE POPULATION COUNTS OF THE 15 WORDS IN THE 
*                    ROUTE BLOCK).
*                2 - DAYFILE (PRE-DAYFILE OR REGULAR OUTPUT DAYFILE). 
*                3 - NOS OPERATING SYSTEM DEPENDENT DATA. 
*                4 - NOS/BE OPERATING SYSTEM DEPENDENT DATA.
*                5 - SCOPE 2 OPERATING SYSTEM DEPENDENT DATA. 
*                6 - DUMP HEADER (4 WORDS, WORDS 1 AND 2 CONTAINING 
*                    AN ALPHANUMERIC DESCRIPTION OF THE DUMP, WORD
*                    3 THE DATE, AND WORD 4 THE TIME).
*                7 - ERRORS (D FIELD IS NUMBER OF ERRORS ENCOUNTERED).
*         B = OPERATING SYSTEM DEPENDENT DATA.
*             NOS OPERATING SYSTEM (A = 3). 
*                0 - SYSTEM INFORMATION (SYSTEM AND EOI SECTORS). 
*                1 - END OF VOLUME. 
*         C = STRUCTURE OF DATA.
*                0 - FULL BLOCK OF DATA.
*                1 - EOR (WORD COUNT IS DATA WORDS PLUS ONE WORD
*                    WHICH CONTAINS THE LEVEL NUMBER).
*                2 - EOF. 
*         D = NUMBER OF WORDS IN BLOCK. 
          SPACE  4
***       RESERVED FILE NAMES FOR QUEUE UTILITIES.
  
  
 RFIQ     MICRO  1,, IQF
 RFNI     MICRO  1,, NIQFT
 RFMI     MICRO  1,, MIQFT
 RFSC     MICRO  1,, SCR
  
          BASE   *
          ENDX
