*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