COMSDSP 
COMMON
          CTEXT  COMSDSP - DSP EQUIVALENCES.
          SPACE  4,10 
          BASE   OCTAL
*         COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992. 
          SPACE  4,10 
***       COMSDSP - DSP EQUIVALENCES. 
*         M. J. CARIDDI.     81/09/01.
 COMSDSP  SPACE  4,10 
**        *COMSDSP* DEFINES EQUIVALENCES NEEDED BY
*         PROGRAMS WHEN CALLING *DSP*.
          SPACE  4,10 
*         ABORTED INPUT FILE CODES. 
  
 NOIE     EQU    0           NO JOB ABORT 
 JCIE     EQU    1           JOB COMMAND ERROR
 CRIE     EQU    2           CARD READER ERROR
 OTIE     EQU    3           OPERATOR INPUT TERMINATION 
 DFIE     EQU    4           DISK FULL
 MSIE     EQU    5           MASS STORAGE ERROR 
 NRIE     EQU    6           NO RERUN 
 BCIE     EQU    7           BINARY CARD SEQUENCE ERROR 
 HDIE     EQU    10          INCORRECT HOLLERITH CODE 
 ODIE     EQU    11          OPERATOR DROP
 STIE     EQU    12          *ST* SPECIFIED AND USER NOT VALIDATED
 IDIE     EQU    13          INCORRECT LID SPECIFIED
 DBIE     EQU    14          QUEUE LIMITS EXCEEDED ON REMOTE MF 
 VLIE     EQU    15          JOB NOT VALID ON REMOTE MF 
 NLIE     EQU    16          JOB NOT VALIDATED TO USE LINK
 UNIE     EQU    17          USER NAME/PASSWORD NOT VALID 
 SCIE     EQU    20          INCORRECT SERVICE CLASS
 USIE     EQU    21          UNDEFINED SERVICE CLASS
 UCIE     EQU    22          USER SECURITY COUNT EXHAUSTED
 HRIE     EQU    23          HARDWARE RERUN THRESHOLD EXCEEDED
 SWIE     EQU    24          SOFTWARE ERROR RERUN THRESHOLD EXCEEDED
 MXIE     EQU    25          MAXIMUM ERROR + 1
          SPACE  4,10 
*         *DSP* ERROR CODES.
  
          QUAL   ERR
 EC00     EQU    0           UNDEFINED
 EC01     EQU    1           * DSP - FILE NAME ERROR.*
 EC02     EQU    2           * DSP - FILE NOT ON MASS STORAGE.* 
 EC03     EQU    3           * DSP - INCORRECT FILE TYPE.*
 EC04     EQU    4           RESERVED 
 EC05     EQU    5           RESERVED 
 EC06     EQU    6           * DSP - IMMEDIATE ROUTING - NO FILE.*
 EC07     EQU    7           * DSP - INCORRECT DISPOSITION CODE.* 
 EC10     EQU    10B         * DSP - USER ACCESS NOT VALID.*
 EC11     EQU    11B         * DSP - UNDEFINED SERVICE CLASS.*
 EC12     EQU    12B         * DSP - INCORRECT REQUEST.*
 EC13     EQU    13B         * DSP - DEFERRED ROUTING NOT ALLOWED.* 
 EC14     EQU    14B         * DSP - INCORRECT DATA DECLARATION.* 
 EC15     EQU    15B         * DSP - INCORRECT LID.*
 EC16     EQU    16B         * DSP - CANNOT ROUTE JOB TO INPUT FILE.* 
 EC17     EQU    17B         * DSP - COMPLETE BIT ALREADY SET.* 
 EC20     EQU    20B         * DSP - FILE ON REMOVABLE DEVICE.* 
 EC21     EQU    21B         * DSP - INCORRECT TID.*
 EC22     EQU    22B         * DSP - FORMS CODE NOT ALPHANUMERIC.*
 EC23     EQU    23B         * DSP - INCORRECT INTERNAL CHARACTERISTICS*
 EC24     EQU    24B         * DSP - QUEUED FILE READ ERROR.* 
 EC25     EQU    25B         * DSP - QFT FULL.* 
 EC26     EQU    26B         * DSP - THIS ROUTING NOT ALLOWED.* 
 EC27     EQU    27B         * DSP - DEVICE FULL.*
 EC30     EQU    30B         * DSP - MASS STORAGE ERROR.* 
 EC31     EQU    31B         * DSP - I/0 SEQUENCE ERROR.* 
 EC32     EQU    32B         * DSP - JOB COMMAND ERROR.*
 EC33     EQU    33B         * DSP - TOO MANY DEFERRED BATCH JOBS.* 
 EC34     EQU    34B         * DSP - INCORRECT USER COMMAND.* 
 EC35     EQU    35B         * DSP - DEVICE INACCESSIBLE.*
 EC36     EQU    36B         * DSP - INCORRECT FILE MODE.*
 EC37     EQU    37B         * DSP - INCORRECT EXTERNAL CHARACTERISTICS*
 EC40     EQU    40B         * DSP - INCORRECT ORIGIN TYPE.*
 EC41     EQU    41B         * DSP - INCORRECT SPACING CODE.* 
 EC42     EQU    42B         * DSP - INCORRECT JOB ABORT CODE.* 
 EC43     EQU    43B         RESERVED 
 EC44     EQU    44B         RESERVED 
 EC45     EQU    45B         * DSP - INCORRECT SERVICE CLASS.*
 EC46     EQU    46B         * DSP - ALTERNATE FAMILY NOT ALLOWED.* 
 EC47     EQU    47B         * DSP - USER SECURITY COUNT EXHAUSTED.*
 EC50     EQU    50B         * DSP - JSN ALREADY IN SYSTEM.*
 EC51     EQU    51B         * DSP - ALTERNATE USER NOT ALLOWED.* 
 ECMX     EQU    52B         MAXIMUM ERROR CODE + 1 
          QUAL   *
          SPACE  4,10 
*         *DSP* FLAG BIT EQUIVALENCES.
  
  
 FRFJ     EQU    1           FORCED JSN (INPUT FILES ONLY) (SYOT ONLY)
 FRDR     EQU    1           DEFERRED ROUTE (OUTPUT FILES ONLY) 
 FRCS     EQU    2           ROUTE TO CENTRAL SITE
 FRTI     EQU    4           TID OR FM/UN 
 FRLD     EQU    10B         SLID AND/OR DLID 
 FRDC     EQU    20B         DISPOSITION CODE (DC)
*         EQU    40B         (RESERVED FOR INSTALLATIONS) 
 FREB     EQU    100B        EXTENDED PARAMETER BLOCK 
 FREC     EQU    200B        EXTERNAL CHARACTERISTICS (EC)
 FRIC     EQU    400B        INTERNAL CHARACTERISTICS (IC)
 FRPR     EQU    1000B       PRIORITY 
 FRFC     EQU    2000B       FORMS CODE (FC)
 FRSI     EQU    4000B       SUBSYSTEM INITIATION (SYOT REQUIRED) 
 FREP     EQU    10000B      ERROR PROCESSING 
 FRUJ     EQU    20000B      USER JOB NAME (UJN)
 FRRC     EQU    40000B      REPEAT COUNT 
 FRSC     EQU    100000B     SPACING CODE 
 FRAC     EQU    200000B     ACCOUNTING 
 FRFN     EQU    400000B     RETURN FILE NAME 
          SPACE  4,10 
*         EXTENDED PARAMETER BLOCK FLAG BIT EQUIVALENCES. 
  
  
 EFDD     EQU    1           DATA DECLARATION 
 EFOU     EQU    2           OWNING USER NAME/FAMILY NAME (*SSJ=*)
 EFCU     EQU    4           CREATOR USER NAME/FAMILY NAME (*SSJ=*) 
 EFSP     EQU    10B         SUBSYSTEM PROCESSING (*SSJ=*)
 EFNV     EQU    20B         DO NOT VALIDATE PASSWORD (*SSJ=*)
 EFCP     EQU    40B         CONTROL POINT AND SSID SPECIFIED 
 EFSC     EQU    100B        SET ORIGIN DEFAULT SERVICE CLASS (*SSJ=*)
 EFEP     EQU    200B        USE ENCRYPTED PASSWORD (*SSJ=*)
 EFRQ     EQU    400B        SPECIAL REQUEUE OPERATION (*SSJ=*) 
 EFDS     EQU    1000B       DO NOT VALIDATE SERVICE CLASS (*SSJ=*) 
 EFCH     EQU    2000B       CHARGE/PROJECT (*SSJ=*)
          SPACE  4,10 
*         SPECIAL LID CODES.
  
  
 LCZR     EQU    1           SET LID TO ZERO
 LCPD     EQU    2           SET LID TO PID OF THIS MF
  
 MXLC     EQU    3           MAXIMUM VALID SPECIAL LID CODE + 1 
          SPACE  4,10 
*         PARAMETER BLOCK LENGTHS.
  
  
 DPBL     EQU    7           PARAMETER BLOCK
 EPBL     EQU    22B         EXTENDED PARAMETER BLOCK 
          SPACE  4,10 
          BASE   *
          SPACE  4,10 
          ENDX
