Table of Contents

SDRBLOK Source

References

Source Listing

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