Table of Contents

MCRECORD Source

References

Source Listing

MCRECORD.COPY.txt
  1. *COPY MCRECORD 00001000
  2. PUSH PRINT 00001200
  3. AIF ('&SYSPARM' NE 'SUP').MCR01 00001400
  4. PRINT OFF,NOGEN 00001600
  5. .MCR01 ANOP 00001800
  6. MCRECORD DSECT 00002000
  7. SPACE 1 00003000
  8. * 00004000
  9. *** MCRECORD - MACHINE CHECK HANDLER RECORD 00005000
  10. * 00006000
  11. * +----+----+----+----+---------+----+----+ 00007000
  12. * 0 |M*1 |M*2 |M*3 |M*4 | MCSWITCH|M*5 |M*6 | 00008000
  13. * +---------------------------------------+ 00009000
  14. * 8 | MCDATE | 00010000
  15. * +---------------------------------------+ 00011000
  16. * 10 | MCCPUID | 00012000
  17. * +---------------------------------------+ 00013000
  18. * 18 | MCPROGID | 00014000
  19. * +---------------------------------------+ 00015000
  20. * 20 | MCJOBID | 00016000
  21. * +---------------------------------------+ 00017000
  22. * 28 | MCOLDPW | 00018000
  23. * +---------------------------------------+ 00019000
  24. * | | 00020000
  25. * 30 = MCFXDLOG = 00021000
  26. * = = 00022000
  27. * | | 00023000
  28. * +---------------------------------------+ 00024000
  29. * | | 00025000
  30. * = = 00026000
  31. * = MCEXTLOG = 00027000
  32. * = = 00028000
  33. * | | 00029000
  34. * +---------------------------------------+ 00030000
  35. * | | 00031000
  36. * = MCHDAMAG = 00032000
  37. * | | 00033000
  38. * +---------------------------------------+ 00034000
  39. * 00035000
  40. *** MCRECORD - MACHINE CHECK HANDLER RECORD 00036000
  41. * 00037000
  42. SPACE 1 00038000
  43. MCREC DS 0D 00039000
  44. MCRECTYP DS 1X M*1 - MACHINE CHECK RECORD TYPE 00040000
  45. MCOPSYS DS 1X M*2 - OPERATING SYSTEM 00041000
  46. MCSWONE DS 1X M*3 - RECORD INDEPENDENT SWITCH 00042000
  47. MCSWTWO DS 1X M*4 - RECORD DEPENDENT SWITCH 00043000
  48. MCSWITCH DS 2X UNUSED SWITCHES 00044000
  49. MCRECCNT DS 1X M*5 - RECORD COUNT 00045000
  50. MCRECCC DS 1X M*6 - SPARE 00046000
  51. MCDATE DS XL8 DATE AND TIME 00047000
  52. MCCPUID DS XL8 CPU INDENTIFICATION 00048000
  53. MCPROGID DS XL8 PROGRAM IDENTITY 00049000
  54. MCJOBID DS XL8 JOB IDENTITY (UNUSED) 00050000
  55. MCOLDPW DS XL8 MACHINE CHECK OLD PSW 00051000
  56. MCFXDLOG DS 35D MACHINE CHECK FIXED LOGOUT 00052000
  57. FXDLGLH EQU (*-MCFXDLOG) 00053000
  58. MCEXTLOG EQU * MACHINE CHECK EXTENDED LOGOUT 00054000
  59. * (THE EXTENDED LOGOUT LENGTH IS A 00055000
  60. * VARIABLE LENGTH-MACHINE DEPENDED) 00056000
  61. MCHDAMAG EQU * THE DAMAGE ASSESSMENT AREA 00057000
  62. * (THE DAMAGE ASSESSMENT IS 80 BYTES) 00058000
  63. ********************************************************************** 00059000
  64. EJECT 00060000
  65. POP PRINT 00061000
  66. SPACE 00062000