/********************************************************************/ 00010037
 /*                                                                  */ 00020037
 /*   MACRO NAME = IDAERRCD                                          */ 00030037
 /*                                                                  */ 00040037
 /*   DESCRIPTIVE NAME = VSAM OPEN/CLOSE/EOV ERROR CODES.            */ 00042037
 /*                                                                  */ 00044037
 /*   FUNCTION = THE ERROR CODE IS DETERMINED BY THE PROBLEM CODE    */ 00046037
 /*              RELATING TO A PROBLEM. THE ERROR CODE IS THEN MOVED */ 00048037
 /*              INTO THE ACB (ACBERFLG) TO COMMUNICATE WITH THE     */ 00048437
 /*              USER.                                               */ 00048837
 /*                                                                  */ 00049237
 /*   CONTROL BLOCK STRUCTURE = NONE                                 */ 00049637
 /*                                                                  */ 00049737
 /*   INCLUDED MACROS = NONE                                         */ 00049837
 /*                                                                  */ 00049937
 /*   METHOD OF ACCESS = PL/S - NO DECLARES NECESSARY                */ 00099937
 /*                                                                  */ 00109937
 /*   CREATED BY: N/A                                                */ 00119937
 /*                                                                  */ 00129937
 /*   STATUS = VSAM MVS SELECTABLE UNIT 7                    @ZA16012*/ 00139907
 /*                                                                  */ 00141907
 /*   DATE OF LAST CHANGE = 05 AUG 1976                      @ZA16012*/ 00143907
 /*                                                                  */ 00145937
 /********************************************************************/ 00147937
   DCL (OPERR000 CONSTANT(0),     /* NO ERROR FOR OPEN OR CLOSE */      03000037
    OPERR004 CONSTANT(4),    /* WARNING - ACB ALREADY OPEN FOR OPEN OR  06000037
                                ACB NOT OPEN FOR CLOSE AND TCLOSE    */ 09000037
    OPERR080 CONSTANT(80),   /* WARNING - PROCESSING INTEGRITY */       12000037
    OPERR096 CONSTANT(96),   /* WARNING - UNUSABLE DATA SET OPENED      15000037
                                          FOR INPUT          @X04SVRL*/ 16000037
    OPERR100 CONSTANT(100),  /* WARNING - EMPTY UPGRADE AIX  @X04SVRL*/ 17000037
    OPERR104 CONSTANT(104),  /* WARNING-VOLUME TIMESTAMP DISCREPANCY    18000037
                                AND ACB INDICATES INPUT      @X04SVRP*/ 19000037
    OPERR108 CONSTANT(108),  /* WARNING-D.S. TIMESTAMP DISCREPANCY   */ 21000037
    OPERR116 CONSTANT(116),  /* WARNING - DATA SET NOT PROPERLY CLOSED*/24000037
    OPERR128 CONSTANT(128),  /* DD NAME NOT FOUND IN TIOT */            27000037
    OPERR132 CONSTANT(132),  /* I/O ERR RD/WRT JFCB */                  30000037
    OPERR136 CONSTANT(136),  /* NO CORE AVAILABLE */                    33000037
    OPERR144 CONSTANT(144),  /* I/O ERROR RD/WRT CATALOG ENT */         36000037
    OPERR148 CONSTANT(148),  /* CATALOG ENTRY NOT FOUND */              39000037
    OPERR152 CONSTANT(152),  /* DATA SET SECURITY INVALID */            42000037
    OPERR160 CONSTANT(160),  /* CONFLICTING PARAMETERS */               45000037
    OPERR164 CONSTANT(164),  /* I/O ERROR READING VOLUME LABEL */       48000037
    OPERR168 CONSTANT(168),  /* DATA SET NOT AVAILABLE */               51000037
    OPERR176 CONSTANT(176),  /* PGFIX FAILURE                       */  54000037
    OPERR180 CONSTANT(180),  /* CAT DOES NOT EXIST OR NOT OPEN      */  57000037
    OPERR184 CONSTANT(184),  /* I/O ERROR COMPLETING I/O REQUEST    */  60000037
    OPERR188 CONSTANT(188),  /* ACB IS NOT FOR A VALID DATA SET */      60050037
    OPERR192 CONSTANT(192),  /* UNUSABLE DATA SET OPENED FOR OUTPUT     60150037
                                                             @X04SVRL*/ 60250037
    OPERR196 CONSTANT(196),  /* ACCESS TO DATA REQUESTED VIA EMPTY      60350037
                                PATH AIX                     @X04SVRL*/ 60450037
    OPERR200 CONSTANT(200),  /* FMT 4 DSCB INDICATES VOL IS UNUSABLE    60550037
                                                             @X04SVRL*/ 60650037
    OPERR204 CONSTANT(204),  /* ACB INDICATES GSR OR CBIC BUT CALLER IS 60750007
                                NOT IN SUPERVISOR STATE AND KEY 0 TO 7  60810007
                                                             @ZA16012*/ 60870007
    OPERR208 CONSTANT(208),  /* ACB INDICATES GSR AND SYSTEM IS VS1     60950037
                                                             @X04SVRL*/ 61050037
    OPERR212 CONSTANT(212),  /* ACB INDICATES LSR/GSR AND DATA SET      61150037
                                IS EMPTY                     @X04SVRL*/ 61250037
    OPERR216 CONSTANT(216),  /* ACB INDICATES LSR/GSR AND KEY LENGTH    61350037
                                OF DS EXCEEDED MAXKEY IN BLDVRP MACRO   61450037
                                                             @X04SVRL*/ 61550037
    OPERR220 CONSTANT(220),  /* DB/DC - BSPH TOO SMALL       @X04SVGP*/ 61650037
    OPERR224 CONSTANT(224),  /*ICI PROCESSING AND CREATE MODE INDICATED 61700037
                                                             @X04SVRL*/ 61710037
    OPERR228 CONSTANT(228),  /* DB/DC - VSRT DOES NOT EXIST  @X04SVRL*/ 61750037
    OPERR232 CONSTANT(232),  /* RESET SPECIFIED FOR NON-REUSABLE DS     61850037
                                                             @X04SVRL*/ 61950037
    OPERR236 CONSTANT(236),  /* MSS STAGE OR DESTAGE ERROR   @X04SVRL*/ 62050037
    OPERR240 CONSTANT(240), /* VOLUME TIMESTAMP DISCREPANCY AND         62150037
                               ACB INDICATES OUTPUT          @X04SVRP*/ 62250037
    OPERR244 CONSTANT(244)) /* CRA VOLUME NOT MOUNTED        @X04SVRP*/ 62350037
         FIXED(31);          /* ERRORS DETECTED BY OPEN AND CLOSE   */  63000037
  /* THE FOLLOWING ERRORS ARE DETECTED BY OPEN, CLOSE, EOV OR        */ 66000037
  /* TCLOSE, BUT ERROR FLAGS ARE NOT SET IN THE ACB IN ORDER         */ 69000037
  /* NOT TO INTERFERE WITH ANY POSSIBLE PROCESSING BEING DONE        */ 72000037
  /* ON THAT ACB BY ANOTHER TASK:                                    */ 75000037
  /*     ACB BUSY                                                    */ 78000037
  /*     ACB DOES NOT BELONG TO JOB STEP ISSUING OPEN, CLOSE         */ 81000037
  /*       OR TCLOSE                                                 */ 84000037