*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