ibm:vm370-lib:copy:errblok.copy_src
Table of Contents
ERRBLOK Source
References
- Fixes Applied : 0
- This Source Date : Friday, December 8, 1978
- Last Fix ID : [Unmodified]
Source Listing
- ERRBLOK.COPY.txt
- *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
ibm/vm370-lib/copy/errblok.copy_src.txt · Last modified: 2023/08/06 13:36 by Site Administrator