*COPY CCHREC 00001000
PUSH PRINT 00001200
AIF ('&SYSPARM' NE 'SUP').CCHR01 @VA08768 00001210
PRINT OFF,NOGEN @VA08768 00001220
.CCHR01 ANOP 00001230
CCHREC DSECT 00002000
SPACE 1 00003000
* 00004000
*** CCHREC - CHANNEL CHECK HANDLER RECORD 00005000
* 00006000
* +-----+-----+-----+-----+-----------+-----+-----+ 00007000
* 0 | C*1 | C*2 | C*3 | C*4 | CCSW2REV | C*5 | C*6 | 00008000
* +-----+-----+-----+-----+-----------+-----+-----+ 00009000
* 8 | CCDATE | 00010000
* +-----------------------+-----------+-----------+ 00011000
* 10 | CCCPUID | CCHMDL | CCHMCEL | 00012000
* +-----------------------+-----------+-----------+ 00013000
* 18 | CCPROGID | 00014000
* +-----------------------------------------------+ 00015000
* | | 00016000
* 20 = FAILADD = 00017000
* | | 00018000
* +-----------------------------------------------+ 00019000
* 30 | FAILCCW | 00020000
* +-----------------------------------------------+ 00021000
* 38 | FAILCSW | 00022000
* +-----------------------+-----------------------+ 00023000
* 40 | FAILECSW | CCDEVTYP | 00024000
* +-----+-----------------+-----------+-----------+ 00025000
* 48 | C*7 | CCHCUA | CCHCHCUA | CCHCLOGL | 00026000
* +-----+-----------------+-----------+-----------+ 00027000
* | | 00028000
* = = 00029000
* 50 = CCHLOG = 00030000
* = = 00031000
* | | 00032000
* +-----------------------------------------------+ 00033000
* 00034000
*** CCHREC - CHANNEL CHECK HANDLER RECORD 00035000
* 00036000
SPACE 1 00037000
CCRECTYP DS 1X C*1 - RECORD TYPE 00038000
CCOPSYS DS 1X C*2 - OPERATING SYSTEM 00039000
CCSW1 DS 1X C*3 - SWITCH ONE 00040000
CCSW2 DS 1X C*4 - SWITCH TWO 00041000
CCSW2REV DS 2X UNUSED 00042000
CCRECNT DS 1X C*5 - RECORD COUNT 00043000
CCRECNT1 DS 1X C*6 - UNUSED 00044000
CCDATE DS 1D DATE AND TIME 00045000
CCCPUID DS 1F CPU ID 00046100
CCHMDL DS 1H CPU MACHINE MODEL NUMBER 00046200
* ( 0158, 0168 ETC ) 00046300
CCHMCEL DS 1H MAX LENGTH OF MACHINE (CPU) 00046400
* DEPENDENT, 00046500
* MACHINE CHECK EXTENDED LOGOUT AREA 00046600
CCPROGID DS 1D USERID 00047000
FAILADD DS 8H ACTIVE I/O UNITS 00048000
FAILCCW DS 1D FAILIND CCW 00049000
FAILCSW DS 1D FAILING CSW 00050000
FAILECSW DS 0F FAILING ECSW 00051000
IGPRGFLG DS CL1 PROGRAM FLAG BITS 00052000
CCHSIOB EQU X'80' SIO BIT 00053000
CCHINTB EQU X'40' INTERRUPT BIT 00054000
CCHTIO EQU X'20' TEST I/O BIT 00054010
CCHHIO EQU X'10' HALT I/O BIT 00054020
CCHSNSB EQU X'04' SENSE DATA STORED BIT 00055000
CCHCNTB EQU X'02' COUNT VALID BIT 00056000
CCHNRYB EQU X'01' NO RETRY BIT 00057000
IGBLAME DS CL1 PROBABLE SOURCE OF ERROR 00058000
CCHCPU EQU X'80' CPU IS SOURCE OF ERROR 00059000
CCHCHNL EQU X'40' CHANNEL IS SOURCE OF ERROR 00060000
CCHSCUB EQU X'20' STORAGE CONTROL UNIT SOURCE OF ERROR 00061000
CCHSTG EQU X'10' STORAGE IS SOURCE OF ERROR 00062000
CCHINTFC EQU X'08' CONTROL UNIT IS SOURCE OF ERROR 00063010
IGVALIDB DS CL1 VALIDITY INDICATOR BITS 00064000
CCHINTFV EQU X'80' INTERFACE ADDRESS VALID 00065010
CCHRCV EQU X'10' SEQUENCE CODE VALID 00065020
CCHUSV EQU X'08' UNIT STATUS VALID 00065030
CCHCMDV EQU X'04' COMMAND ADDRESS VALID 00067000
CCHCAV EQU X'02' CHANNEL ADDRESS VALID 00068000
CCHDAV EQU X'01' DEVICE ADDRESS VALID 00069000
IGTERMSQ DS CL1 TERMINATION/SEQUENCE CODE BITS 00070000
COMPSYS EQU X'C0' SYSTEM RESET 00071000
COMPSEL EQU X'80' SELECTIVE RESET 00072000
COMPFES EQU X'40' STOP, STACK, OR NORMAL TERMINATION 00073010
CCHIOH EQU X'10' IO INTERFACE HANGUP OCCURRED 00073500
COMPID EQU X'00' INTERFACE DISCONNECT 00074000
CCHDI EQU X'08' I/O ERROR ALERT 00075010
* SEQUENCE CODE BITS 00076000
RTCODE0 EQU X'00' RETRY 00077000
RTCODE1 EQU X'01' CODE 00078000
RTCODE2 EQU X'02' VALUES 00079000
RTCODE3 EQU X'03' FOR 00080000
RTCODE4 EQU X'04' THE 00081000
RTCODE5 EQU X'05' BUILDED 00082000
RTCODE6 EQU X'06' ECSW 00083000
RTCODE7 EQU X'07' * 00084000
CCDEVTYP DS 1F CP DEVICE TYPE 00085000
CCHANID DS CL1 C*7 CHANNEL IDENTIFICATION 00086100
CCHCUA DS CL3 ACTUAL FAILING DEVICE ADDRESS 00086200
CCHCHCUA DS CL2 ADDRESS FROM MACHINE LOCATION 00088000
* HEX'BA' 00088020
CCHCLOGL DS CL2 LENGTH OF CHANNEL LOGOUT 00088040
CCHSIZE EQU (*-CCHREC)/8 SIZE IN DOUBLEWORDS 00088100
CCHLOG80 DS 0CL112 2880 CHANNEL - 112 BYTES 00089000
CCHLOG70 DS 0CL24 2870 CHANNEL - 24 BYTES 00090000
CCHLOG60 DS 0CL24 2860 CHANNEL - 24 BYTES 00091000
CCHADDR DS 1F UNIT ADDR STORED BY INTEGRATED CHANNEL 00091100
CCHSIZE1 EQU (*-CCHREC) SIZE IN BYTES FOR INTEGRATED CHANNEL 00091200
CCHLOG45 DS 0CL96 145 INTEGRATED CHANNEL - 96 BYTES 00095000
CCHLOG35 DS 0CL24 135 INTEGRATED CHANNEL - 24 BYTES 00096000
********************************************************************** 00097000
* THE BITS IN ENTSW ARE DEFINE BELOW 00098000
********************************************************************** 00099000
SIOCCH EQU X'80' SIO ENTRY 00100000
INTERCCH EQU X'40' I/O INTERRUPT ENTRY 00101000
TIOCCH EQU X'20' TIO INSTRUCTION WAS ISSUED 00102050
HIOCCH EQU X'10' HIO INSTRUCTION WAS ISSUED 00102100
TERMSYS EQU X'08' TERMINATION OF OPERATING SYSTEM 00102150
DEVCCH EQU X'04' DEVICE BLOCK ADDRESS EXIST 00102200
IOBCCH EQU X'02' I/O BLOCK ADDRESS EXIST 00102250
********************************************************************** 00108000
EJECT 00109000
POP PRINT 00110000
SPACE 00111000