COMSQAC 
COMMON
          CTEXT  COMSQAC - *QAC* INTERFACE DEFINITIONS. 
          SPACE  4,10 
          BASE   D
*         COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992. 
 QAC      SPACE  4,10 
***       COMSQAC - *QAC* INTERFACE DEFINITIONS.
* 
*         B. M. SLIWINSKI.   81/09/24.
          SPACE  4,10 
***       *COMSQAC* DEFINES VALUES FOR VARIOUS FIELDS IN THE
*         *QAC* PARAMETER BLOCK.
          SPACE  4,10 
**        *QAC* PARAMETER BLOCK DEFINITIONS.
* 
*         NOTE - *QAC* PARAMETER BLOCK DEFINITIONS ARE ALSO DEFINED IN
*                THE *SYMPL* COMMON DECK *COMUQQC*.  ANY CHANGES TO 
*                THIS DECK MAY REQUIRE CHANGES TO *COMUQQC*.
* 
*         REQUEST PREFIX PORTION. 
  
  
 BEGIN    BSSN   0
 FCNQ     BSSN   1           FILENAME, ERROR CODE, FUNC., COMPLETE BIT
 FIRQ     BSSN   1           LENGTH, FIRST
 INAQ     BSSN   1           IN 
 OUTQ     BSSN   1           OUT
 LIMQ     BSSN   1           FNT, ORDINAL, QUEUE, LIMIT 
          SPACE  4,10 
**        SELECTION CRITERIA PORTION. 
  
  
 FAMQ     BSSN   1           DESTINATION FAMILY, BATCH ID, ORIGIN 
 DUNQ     BSSN   1           DESTINATION USER NAME, USER INDEX
 SELQ     BSSN   1           JSN, SELECTION FLAGS 
 LNKQ     BSSN   1           JOB/FILE CHARACTERISTICS, LINK ADDRESS 
 LIDQ     BSSN   1           SLID, DLID, ALID ADDRESS 
          BSSN   1           RESERVED FOR CDC 
          BSSN   1           RESERVED FOR INSTALLATIONS 
 SPEC     BSSN   0           BEGINNING OF FUNCTION SPECIAL WORDS
          SPACE  4,10 
**        *ALTER* FUNCTION PORTION. 
  
  
 BEGIN    BSSN   SPEC 
 SSWQ     BSSN   1           SENSE SWITCHES, *ALTER* FLAGS
 NDFQ     BSSN   1           NEW DEST. FAMILY 
 NUNQ     BSSN   1           DEST. UN, SPACING CODE, BATCH ID 
 NFCQ     BSSN   1           NEW FILE CHARACTERISTICS 
          BSSN   1           RESERVED FOR INSTALLATIONS 
 END      BSSN
          SPACE  4,10 
**        *GET* FUNCTION PORTION. 
  
  
 BEGIN    BSSN   SPEC 
 DAYQ     BSSN   1           DAYFILE ADDR., SERVICE CLASS, ACCT. LIMIT
 INTQ     BSSN   1           INTERRUPT ADDR., SPACING CD., REPEAT COUNT 
 FLNQ     BSSN   1           FILE LENGTH
          BSSN   1           RESERVED FOR INSTALLATIONS 
 END      BSSN
          SPACE  4,10 
**        *PEEK* FUNCTION PORTION.
  
  
 BEGIN    BSSN   SPEC 
 CNTQ     BSSN   1           QUEUE TYPE COUNTS
 ENLQ     BSSN   1           ENTRY LENGTH 
 PIBQ     BSSN   1           *PEEK* INFORMATION BITS
          BSSN   1           RESERVED FOR INSTALLATIONS 
 END      BSSN
          SPACE  4,10 
**        FUNCTION CODES. 
* 
*         BITS 9 - 1 IN WORD 0 OF THE REQUEST PREFIX PORTION. 
  
  
 BEGIN    BSSN   1
 ALFC     BSSN   1           *ALTER*
 GTFC     BSSN   1           *GET*
 PKFC     BSSN   1           *PEEK* 
 MXFC     BSSN   1           MAXIMUM FUNCTION CODE + 1
 END      BSSN
          SPACE  4,10 
**        MINIMUM PARAMETER BLOCK LENGTHS.
* 
*         BITS 23 - 18 IN WORD 1 OF THE REQUEST PREFIX PORTION. 
  
  
 ALLB     EQU    17          *ALTER*
 GTLB     EQU    16          *GET*
 PKLB     EQU    16          *PEEK* 
 EGLB     EQU    78          *EXTENDED GET* 
  
*         ACTUAL NUMBER OF WORDS REQUIRED FOR EXTENDED *GET* REQUEST. 
  
 EQAB     EQU    83 
          SPACE  4,10 
**        QUEUE TYPES.
* 
*         BITS 35 - 24 IN WORD 4 OF THE REQUEST PREFIX PORTION. 
*         BITS 59 - 48 IN WORD 8 OF THE SELECTION CRITERIA PORTION. 
  
  
 INQQ     EQU    1           INPUT
 EXQQ     EQU    2           EXECUTING JOB
 PRQQ     EQU    4           PRINT
 PHQQ     EQU    10B         PUNCH
 PLQQ     EQU    20B         PLOT 
 WTQQ     EQU    40B         WAIT 
 MXQQ     EQU    100B        END OF QUEUE TYPES 
          SPACE  4,10 
**        ORIGIN TYPES. 
* 
*         BITS 11 - 0 IN WORD 5 OF THE SELECTION CRITERIA PORTION.
  
  
 CLOR     EQU    0           SELECTS SAME ORIGIN AS CALLER
 SYOR     EQU    1           SYSTEM 
 BCOR     EQU    2           BATCH
 RBOR     EQU    3           REMOTE BATCH 
 TXOR     EQU    4           INTERACTIVE
          SPACE  4,10 
**        SELECTION FLAGS.
* 
*         BITS 35 - 0 IN WORD 7 OF THE SELECTION CRITERIA PORTION.
  
  
*         SELECTION FLAGS FOR BITS 11-0.
  
 SOSF     EQU    1           SPECIFIC ORDINAL AND QUEUE SELECTED
 DPSF     EQU    2           INHIBIT DUPLICATE LOCAL FILE NAME SEARCH 
 ZPSF     EQU    4           ALLOW ZERO PRIORITY FILES TO BE SELECTED 
 FMSF     EQU    10B         DESTINATION FAMILY, USER NAME
 IDSF     EQU    20B         DESTINATION BATCH ID 
 OTSF     EQU    40B         ORIGIN 
 JSSF     EQU    100B        JSN
 FCSF     EQU    200B        FORMS CODE 
 DSSF     EQU    400B        EXPLICIT DISPOSITION CODE
 ECSF     EQU    1000B       EXPLICIT EXTERNAL CHARACTERISTICS
 HESF     EQU    2000B       HIERARCHIAL EXTERNAL CHARACTERISTICS 
 ZESF     EQU    4000B       ALLOW EC = 0 TO BE SELECTED
  
*         SELECTION FLAGS FOR BITS 23-12. 
  
 ICSF     EQU    1           INTERNAL CHARACTERISTICS 
 LVSF     EQU    2           ACCESS LEVEL RANGE SPECIFIED 
 DLSF     EQU    4           DESTINATION LID SPECIFIED
 ALSF     EQU    10B         ALID LIST ADDRESS SPECIFIED
 SLSF     EQU    20B         CREATION LID SPECIFIED 
 LPSF     EQU    40B         ALLOW *PR*/*LP* TO BE SELECTED 
 RJSF     EQU    100B        SELECT ONLY RECOVERABLE JOBS 
 FISF     EQU    400B        FILE SIZE INDEX RANGE SPECIFIED
 IFOF     EQU    1000B       IGNORE OWNERSHIP ON *PEEK* (*SSJ=* ONLY) 
          SPACE  4,10 
**        ERROR CODES.
* 
*         RETURNED IN BITS 18 - 10 OF WORD 0 OF THE REQUEST PREFIX
*         PORTION.
  
  
 ER01     EQU    1           INCORRECT QUEUE TYPE 
 ER02     EQU    2           INCORRECT FAMILY NAME, USER NAME 
 ER03     EQU    3           UNDEFINED ORIGIN TYPE
 ER04     EQU    4           MUTUALLY EXCLUSIVE BITS/FIELDS SELECTED
 ER05     EQU    5           INCORRECT FORMS CODE 
 ER06     EQU    6           INCORRECT DISPOSITION CODE 
 ER07     EQU    7           NO ENTRY SELECTED
 ER08     EQU    8           DUPLICATE LOCAL FILE NAME
 ER09     EQU    9           INCORRECT BATCH ID 
 ER10     EQU    10          INCORRECT FILE NAME
 ER11     EQU    11          COUNT OF ZERO INCORRECT
 ER12     EQU    12          NO PROCESSING DONE ON *ALTER*/*PEEK* 
 ER18     EQU    18          INCORRECT EXTERNAL CHARACTERISTICS 
 ER19     EQU    19          UNABLE TO DROP ON-LINE JOB 
 ER20     EQU    20          INCORRECT DESTINATION LID
 ER21     EQU    21          INCORRECT ACCESS LEVEL 
 ER22     EQU    22          INCORRECT FILE SIZE INDEX
 ER23     EQU    23          INCORRECT SERVICE CLASS
 ER24     EQU    24          SERVICE CLASS FULL 
 ER25     EQU    25          CANNOT ALTER SERVICE CLASS OF ON-LINE JOB
 ER26     EQU    26          UNDEFINED SERVICE CLASS
 ER27     EQU    27          JOB ALREADY WAITING ON SERVICE CLASS 
 ER28     EQU    28          CANNOT CHANGE SERVICE CLASS OF SUBSYSTEM 
 ER29     EQU    29          PRU LIMIT ON ATTACH OF QUEUED FILE 
          SPACE  4,10 
**        *ALTER* FLAGS.
* 
*         BITS 29 - 0 IN WORD 12 OF THE *ALTER* FUNCTION PORTION. 
  
  
*         FLAG DEFINITIONS FOR BITS 11-0. 
  
 FMAF     EQU    1           ALTER REMOTE BATCH FAMILY NAME/USER NAME 
 IDAF     EQU    2           ALTER LOCAL BATCH ID 
 PRAF     EQU    4           ALTER PRIORITY 
 FCAF     EQU    10B         ALTER FORMS CODE 
 SCAF     EQU    20B         ALTER SPACING CODE 
 DSAF     EQU    40B         ALTER DISPOSITION CODE 
 ECAF     EQU    100B        ALTER EXTERNAL CHARACTERISTICS 
 RCAF     EQU    200B        ALTER REPEAT COUNT 
 LVAF     EQU    400B        ALTER ACCESS LEVEL OF OUTPUT FILE
 AJAF     EQU    1000B       ABORT EXECUTING JOB/EVICT QUEUED FILE
 SSAF     EQU    2000B       SET SENSE SWITCHES 
 CSAF     EQU    4000B       CLEAR SENSE SWITCHES 
  
*         FLAG DEFINITIONS FOR BITS 23-12.
  
 GOAF     EQU    1           CLEAR PPU PAUSE FLAG 
 DYAF     EQU    2           ISSUE DAYFILE MESSAGE
 CFAF     EQU    4           *CFO* COMMAND
 IMAF     EQU    10B         MESSAGE TO BE ISSUED FOR ABORTED JOB 
 PAAF     EQU    20B         SET PPU PAUSE FLAG (*PAUSE* COMMAND) 
 DLAF     EQU    40B         ALTER DESTINATION LID
 KJAF     EQU    100B        KILL JOB 
 CLAF     EQU    200B        ALTER SERVICE CLASS
          SPACE  4,10 
**        *PEEK* INFORMATION BITS.
* 
*         BITS 59 - 0 IN WORD 14 OF THE *PEEK* FUNCTION PORTION.
  
  
*         BIT DEFINITIONS FOR BITS 11-0.
  
 JSPB     EQU    2           JSN, ORDINAL, QUEUE TYPE 
 OTPB     EQU    4           OUTPUT FILE CHARACTERISTICS
 PRPB     EQU    10B         PRIORITY, FL-ECS, FL-CM
 FMPB     EQU    20B         DESTINATION FAMILY 
 UNPB     EQU    40B         DESTINATION USER NAME, BATCH ID
 OFPB     EQU    100B        OWNER FAMILY 
 OUPB     EQU    200B        OWNER USER NAME, BATCH ID
 FUPB     EQU    400B        DEST. *FO-UI*, CREATION *FO-UI*
 UJPB     EQU    1000B       USER JOBNAME 
 SCPB     EQU    2000B       OUTPUT CHARACTERISTICS 
 DTPB     EQU    4000B       EST ORDINAL, CREATION DATE AND TIME
  
*         BIT DEFINITIONS FOR BITS 23-12. 
  
 FLPB     EQU    1           FILE LENGTH, CREATION JSN
 ESPB     EQU    2           EJT STATUS 
 M1PB     EQU    4           *MS1W* MESSAGE 
 M2PB     EQU    10B         *MS2W* MESSAGE 
 SLPB     EQU    20B         SRU LIMIT
 ASPB     EQU    40B         ACCUMULATED SRU-S
 DYPB     EQU    100B        DAYFILE MESSAGES 
 CSPB     EQU    200B        COMMANDS 
 LDPB     EQU    400B        LOGICAL ID 
 ITPB     EQU    1000B       IMPLICIT REMOTE TEXT STRING
 RTPB     EQU    ITPB        REMOTE TEXT STRING 
 ETPB     EQU    2000B       EXPLICIT REMOTE TEXT STRING
 RUPB     EQU    4000B       REMOTE MAINFRAME USER NAME 
  
*         BIT DEFINITIONS FOR BITS 35-24. 
  
 RFPB     EQU    1           REMOTE MAINFRAME FAMILY NAME 
 ALPB     EQU    2           ACCESS LEVEL, ACCESS LEVEL LIMITS, OJSN
          SPACE  4,10 
**        *PEEK* INFORMATION NUMBERS. 
* 
*         RETURNED IN BITS 5 - 0 OF THE FIRST WORD OF EACH UNIT OF
*         INFORMATION IN THE *PEEK* REPLY BUFFER. 
  
  
 BEGIN    BSSN   1
 JSPI     BSSN   1           JSN, ORDINAL, QUEUE TYPE 
 OTPI     BSSN   1           OUTPUT CHARACTERISTICS 
 PRPI     BSSN   1           PRIORITY, FL-ECS, FL-CM
 FMPI     BSSN   1           DESTINATION FAMILY 
 UNPI     BSSN   1           DESTINATION USER NAME, BATCH ID
 OFPI     BSSN   1           OWNER FAMILY 
 OUPI     BSSN   1           OWNER USER NAME, BATCH ID
 FUPI     BSSN   1           DEST. *FO-UI*, OWNER *FO-UI* 
 UJPI     BSSN   1           USER JOBNAME 
 SCPI     BSSN   1           OUTPUT CHARACTERISTICS 
 DTPI     BSSN   1           EST ORDINAL, CREATION DATE AND TIME
 FLPI     BSSN   1           FILE LENGTH, CREATION JSN
 EJPI     BSSN   1           EJT STATUS, CPU STATUS, SCHEDULING FIELD 
 M1PI     BSSN   1           *MS1W* MESSAGE 
 M2PI     BSSN   1           *MS2W* MESSAGE 
 SLPI     BSSN   1           SRU LIMIT
 ASPI     BSSN   1           ACCUMULATED SRU-S
 DYPI     BSSN   1           DAYFILE MESSAGES 
 CSPI     BSSN   1           COMMANDS 
 LDPI     BSSN   1           LOGICAL ID-S 
 ITPI     BSSN   1           IMPLICIT REMOTE TEXT STRING
 RTPI     EQU    ITPI        REMOTE TEXT STRING 
 ETPI     BSSN   1           EXPLICIT REMOTE TEXT STRING
 RUPI     BSSN   1           REMOTE USER NAME 
 RFPI     BSSN   1           REMOTE FAMILY NAME 
 ALPI     BSSN   1           ACCESS LEVEL 
 MXPI     BSSN   1           MAXIMUM *PEEK* INFORMATION NUMBER + 1
 END      BSSN
          SPACE  4,10 
          BASE   *
          ENDX
