*COPY ERRBLOK                                                           00001000
         PUSH  PRINT                                           @VA04958 00001200
         AIF   ('&SYSPARM' NE 'SUP').ERR01                     @VA04958 00001400
         PRINT OFF,NOGEN                                       @VA04958 00001600
.ERR01   ANOP                                                           00001800
ERRBLOK  DSECT                                                          00002000
         SPACE 1                                                        00003000
***               ERRBLOK - ERROR BLOCK USED TO BUILD OBR/MDR           00004000
*                                                                       00005000
*          0   +-----------------+-----+-----------------------+        00006000
*              |      ERRKEY     | E*1 |        ERRRSV1        |        00007000
*          8   +-----------------+-----+-----------------------+        00008000
*              |        ERRTIME        |         ERRDATE       |        00009000
*         10   +-----------------------+-----------------------+        00010000
*              |                    ERRCCW                     |        00011000
*         18   +-----------------------------------+-----+-----+        00012000
*              |               ERRVOLID            | E*2 | E*3 |        00013000
*         20   +-----------------------------------+-----+-----+        00014000
*              |                                               |        00015000
*         28   |                    ERRPARM                    |        00016000
*              |                                               |        00017000
*         30   +-----------------------------------------------+        00018000
*              |                                               |        00019000
*              =                    ERRIOB                     =        00020000
*              |                                               |        00021000
*         70   +-----------------------------------------------+        00022000
*              |                                               |        00023000
*              =                    ERRIOER                    =        00024000
*              |                                               |        00025000
*              +-----------------------------------------------+        00026000
*                                                                       00027000
***               ERRBLOK - ERROR BLOCK USED TO BUILD OBR/MDR           00028000
         SPACE 1                                                        00029000
ERRKEY   DS    3X             KEY USED TO DETERMINE OBR/MDR PROCESSING  00030000
ERRSV1   DS    1X        E*1  RESERVED FOR FUTURE USE                   00031000
ERRSV2   DS    1F             RESERVED FOR FUTURE USE                   00032000
ERRTIME  DS    1F             TIME RECORD WAS BUILT                     00033000
ERRDATE  DS    1F             DATE RECORD WAS BUILT                     00034000
ERRHEADR EQU   (*-ERRBLOK)    SIZE OF HEADER IN BYTES                   00035000
ERRCCW   DS    1D             FAILING CCW                               00036000
ERRVOLID DS    6X             VOLID OF FAILING DEVICE                   00037000
ERRSDR   DS    1X        E*2  SDRFLAGS FROM SDRBLOK                     00038000
ERRCORR  DS    1X        E*3  CORRELATION COUNT FOR MDR RECORDS         00039000
ERRPARM  DS    2D             DEVICE DEPENDENT PARAMETER STRING         00040000
ERRIOB   DS    (IOBSIZE)D     COPIED IOBLOK - SEE IOBLOK FOR DETAILS    00041000
ERRIOER  DS    (IOERSIZE)D    COPIED IOERBLOK -SEE IOERBLOK FOR DETAILS 00042000
ERRSIZE  EQU   (*-ERRBLOK)/8  SIZE OF ERRBLOK IN DOUBLEWORDS            00043000
         ORG   ERRCCW                                                   00044000
ERRMIOB  DS    (IOBSIZE)D     COPIED IOBLOK - SEE IOBLOK FOR DETAILS    00045000
ERRMIOER DS    (IOERSIZE)D    COPIED IOERBLOK -SEE IOERBLOK FOR DETAILS 00046000
ERRMSIZE EQU   (*-ERRBLOK)/8  SIZE OF MDR ERRBLOK IN DOUBLEWORDS        00047000
         ORG   ERRCCW                                                   00048000
ERRCCNT  DS    2X             SIZE OF CONTASK DATA BUFFER               00049000
ERRCONT  DS    0C             CONTASK DATA BUFFER (VARIABLE LENGTH)     00050000
         EJECT                                                          00051000
         POP   PRINT                                           @VA04958 00052000
         SPACE                                                          00053000