*COPY MCRECORD 00001000 PUSH PRINT 00001200 AIF ('&SYSPARM' NE 'SUP').MCR01 00001400 PRINT OFF,NOGEN 00001600 .MCR01 ANOP 00001800 MCRECORD DSECT 00002000 SPACE 1 00003000 * 00004000 *** MCRECORD - MACHINE CHECK HANDLER RECORD 00005000 * 00006000 * +----+----+----+----+---------+----+----+ 00007000 * 0 |M*1 |M*2 |M*3 |M*4 | MCSWITCH|M*5 |M*6 | 00008000 * +---------------------------------------+ 00009000 * 8 | MCDATE | 00010000 * +---------------------------------------+ 00011000 * 10 | MCCPUID | 00012000 * +---------------------------------------+ 00013000 * 18 | MCPROGID | 00014000 * +---------------------------------------+ 00015000 * 20 | MCJOBID | 00016000 * +---------------------------------------+ 00017000 * 28 | MCOLDPW | 00018000 * +---------------------------------------+ 00019000 * | | 00020000 * 30 = MCFXDLOG = 00021000 * = = 00022000 * | | 00023000 * +---------------------------------------+ 00024000 * | | 00025000 * = = 00026000 * = MCEXTLOG = 00027000 * = = 00028000 * | | 00029000 * +---------------------------------------+ 00030000 * | | 00031000 * = MCHDAMAG = 00032000 * | | 00033000 * +---------------------------------------+ 00034000 * 00035000 *** MCRECORD - MACHINE CHECK HANDLER RECORD 00036000 * 00037000 SPACE 1 00038000 MCREC DS 0D 00039000 MCRECTYP DS 1X M*1 - MACHINE CHECK RECORD TYPE 00040000 MCOPSYS DS 1X M*2 - OPERATING SYSTEM 00041000 MCSWONE DS 1X M*3 - RECORD INDEPENDENT SWITCH 00042000 MCSWTWO DS 1X M*4 - RECORD DEPENDENT SWITCH 00043000 MCSWITCH DS 2X UNUSED SWITCHES 00044000 MCRECCNT DS 1X M*5 - RECORD COUNT 00045000 MCRECCC DS 1X M*6 - SPARE 00046000 MCDATE DS XL8 DATE AND TIME 00047000 MCCPUID DS XL8 CPU INDENTIFICATION 00048000 MCPROGID DS XL8 PROGRAM IDENTITY 00049000 MCJOBID DS XL8 JOB IDENTITY (UNUSED) 00050000 MCOLDPW DS XL8 MACHINE CHECK OLD PSW 00051000 MCFXDLOG DS 35D MACHINE CHECK FIXED LOGOUT 00052000 FXDLGLH EQU (*-MCFXDLOG) 00053000 MCEXTLOG EQU * MACHINE CHECK EXTENDED LOGOUT 00054000 * (THE EXTENDED LOGOUT LENGTH IS A 00055000 * VARIABLE LENGTH-MACHINE DEPENDED) 00056000 MCHDAMAG EQU * THE DAMAGE ASSESSMENT AREA 00057000 * (THE DAMAGE ASSESSMENT IS 80 BYTES) 00058000 ********************************************************************** 00059000 EJECT 00060000 POP PRINT 00061000 SPACE 00062000