*COPY SDRBLOK 00001000
PUSH PRINT 00002000
AIF ('&SYSPARM' NE 'SUP').SDR01 00003000
.SDR01 ANOP 00004000
SDRBLOK DSECT 00005000
SPACE 1 00006000
*** SDRBLOK - STATISTICAL DATA RECORDING BLOCK 00007000
* 00008000
* 0 +-----------------------+-----+-----+-----+-----+ 00009000
* | SDRRDEV | S*1 | S*2 | S*3 | S*4 | 00010000
* 8 +-----+-----------------+-----+-----+-----+-----+ 00011000
* | S*5 | SDRCUA | | 00012000
* 10 +-----+-----------------+ SDRCTRS +-----------+ 00013000
* | | | 00014000
* 18 +-----------------------------------+ SDRCTRS1 | 00015000
* | | 00016000
* 20 +-----------------------------------------------+ 00017000
* 00018000
*** SDRBLOK - STATISTICAL DATA RECORDING BLOCK 00019000
SPACE 1 00020000
SDRRDEV DS 1F ADDRESS OF ASSOCIATED RDEVBLOK 00021000
SDRFLAGS DS 1X S*1 SDRBLOK FLAGS 00022000
SDRPRMCT DS 1X S*2 PARAMETER LIST COUNTER 00023000
SDRFLCT DS 1X S*3 FULL BYTE COUNTER 00024000
SDROVFWK DS 1X S*4 STATISTICAL UPDATE WORK BYTE 00025000
SDRLNGTH DS 1X S*5 LENGTH(BYTES) OF SDR COUNTERS 00026000
SDRCUA DS 3X PRIMARY CUA OF DEVICE BEING USED 00027000
SDRBSIZE EQU (*-SDRBLOK) SDRBLOK BASE SIZE, IN BYTES 00028000
SDRCTRS DS 10X SDR ERROR COUNTERS 00029000
SPACE 1 00030000
SDRSIZE EQU (*-SDRBLOK+7)/8 00031000
SPACE 1 00032000
SDRCTRS1 DS 10X ADDITIONAL SDR ERROR COUNTERS 00033000
* FOR DEVICES WHICH USE MORE THAN 00034000
* 10 SDR COUNTERS. EXAMPLE 3400 00035000
* TAPE DRIVES 00036000
SPACE 1 00037000
SDRSIZE1 EQU (*-SDRBLOK)/8 00038000
SPACE 00039000
* BITS DEFINED IN SDRFLAGS 00040000
SDRSHRT EQU X'80' SHORT OBR TO BE WRITTEN 00041000
SDRRECD EQU X'40' OBR TO BE RECORDED ON COUNTER OVERFLOW 00042000
SDRMAX EQU X'20' MAX NUMBER OF SDR COUNTERS HANDLED 00043000
* 00044000
* 00045000
* 00046000