/********************************************************************/ 00050003 /* MACCOMP Z40LB02 */ 00100003 /* MACSTAT Z40LB02 */ 00150003 /* */ 00200003 /* NAME IEZSENSE */ 00250003 /* */ 00300003 /* FUNCTION-MAPS THE SENSE DATA AS IT APPEARS IN STORAGE */ 00350003 /* */ 00400003 /* STATUS CHANGE LEVEL=0 */ 00450003 /********************************************************************/ 00500003 /*SENSE DATA MAPPING @Z40LB02*/ 00650003 DCL 1 EWOSNS BASED(SNSPTR), /*STRUCTURE FOR 32 @Z40LB02 00700003 BYTES OF SENSE DATA @Z40LB02*/ 00750003 2 EWOSNS0 BIT(8), /*SENSE BYTE 0 @Z40LB02*/ 00800003 3 CREJ BIT(1), /*COMMAND REJECT @Z40LB02*/ 00850003 3 INTV BIT(1), /*INTERVENTION REQD @Z40LB02*/ 00900003 3 BUSO BIT(1), /*BUS OUT PARITY @Z40LB02*/ 00950003 3 EQU BIT(1), /*EQUIPMENT CHECK @Z40LB02*/ 01000003 3 * BIT(1), /*NOT USED @Z40LB02*/ 01050003 3 HRET BIT(1), /*HOST RETRY @Z40LB02*/ 01100003 3 PERR BIT(1), /*PERMANENT ERROR @Z40LB02*/ 01150003 3 ENV BIT(1), /*ENVIRONMENTAL DATA @Z40LB02*/ 01200003 2 EWOSSID BIT(16), /*SSID FIELD @Z40LB02*/ 01210003 3 EWOSNS1 BIT(8), /*SENSE BYTE 1 @Z40LB02*/ 01250003 4 CEM BIT(1), /*CE MESSAGE @Z40LB02*/ 01300003 4 SUU BIT(1), /*SUBSYSTEM UNIT @Z40LB02 01350003 UNUSABLE @Z40LB02*/ 01400003 4 * BIT(2), /*MSG TYPE ETC @Z40LB02*/ 01450003 4 EWOSSID1 BIT(4), /*1ST CHAR OF SSID @Z40LB02*/ 01500003 3 EWOSNS2 BIT(8), /*SENSE BYTE 2 @Z40LB02*/ 01550003 4 EWOSSID2 BIT(8), /*2-3 CHARS OF SSID @Z40LB02*/ 01600003 2 EWOSNS3 BIT(8), /*SENSE BYTE 3 @Z40LB02*/ 01650003 3 FORMAT0 BIT(1), /*FORMAT 0 - '80'X @Z40LB02*/ 01700003 3 FORMAT1 BIT(1), /*FORMAT 1 - '40'X @Z40LB02*/ 01750003 3 FORMAT2 BIT(1), /*FORMAT 2 - '20'X @Z40LB02*/ 01800003 3 FORMAT3 BIT(1), /*FORMAT 3 - '10'X @Z40LB02*/ 01850003 3 FORMAT4 BIT(1), /*FORMAT 4 - '08'X @Z40LB02*/ 01900003 3 FORMAT5 BIT(1), /*FORMAT 5 - '04'X @Z40LB02*/ 01950003 2 EWOVOLID CHAR(6), /*BYTES 4-9 -VOLID @Z40LB02*/ 02000003 3 EWOSNS4 BIT(8), /*SENSE BYTE 4 @Z40LB02*/ 02050003 4 * BIT(1), /*NOT USED @Z40LB02*/ 02100003 4 INTVREQ BIT(1), /*INTERVENTION REQD @Z40LB02*/ 02150003 4 CHBOPAR BIT(1), /*BUS OUT PAR @Z40LB02*/ 02200003 4 EQCHK BIT(1), /*EQUIPMENT CHECK @Z40LB02*/ 02250003 4 DATACHK BIT(1), /*DATA CHECK @Z40LB02*/ 02300003 3 EWOSNS5 BIT(8), /*SENSE BYTE 5 @Z40LB02*/ 02350003 4 * BIT(1), /*BIT NOT USED @Z40LB02*/ 02410003 4 RECON BIT(1), /*RECONFIGURATION BIT @Z40LB02*/ 02420003 3 EWOSNS6 BIT(8), /*SENSE BYTE 6 @Z40LB02*/ 02450003 3 EWOSNS7 BIT(8), /*SENSE BYTE 7 @Z40LB02*/ 02500003 3 EWOSNS8 BIT(8), /*SENSE BYTE 8 @Z40LB02*/ 02550003 3 EWOSNS9 BIT(8), /*SENSE BYTE 9 @Z40LB02*/ 02600003 2 EWOSNS10 BIT(8), /*TABLE 10 IF AVAIL @Z40LB02*/ 02650003 2 EWOSNS11 BIT(8), /*SENSE BYTE 11 @Z40LB02*/ 02700003 3 EWOCHECK BIT(8), /*EQ OR DATA CHECK @Z40LB02*/ 02750003 4 EWOMSGCD BIT(8), /*MESSAGE CODE @Z40LB02*/ 02800003 2 EWOSNS12 BIT(8), /*TERMINATION CODE @Z40LB02*/ 02850003 3 EWOCCOND BIT(4), /*THIS VALUE MAY BE @Z40LB02 02900003 0, A, OR C @Z40LB02*/ 02950003 3 EWOCNUM BIT(4), /*CASE NUMBER @Z40LB02*/ 03000003 2 EWOSNS13 BIT(8), /*SENSE BYTE 13 @Z40LB02*/ 03050003 2 EWOLZYX FIXED(16), /*LZYX VALUE @Z40LB02*/ 03100003 3 EWOLZYX1 BIT(8), /*MSF/ZY VALUE @Z40LB02*/ 03150003 4 MSFVALUE BIT(2), /*MSF VALUE @Z40LB02*/ 03200003 4 ZVALUE BIT(1), /*Z VALUE @Z40LB02*/ 03250003 4 YVALUE BIT(5), /*Y VALUE @Z40LB02*/ 03300003 3 XVALUE BIT(8), /*X VALUE @Z40LB02*/ 03350003 2 EWOCSN CHAR(12), /*CARTRIDGE SERIAL @Z40LB02 03400003 NUMBER-BYTES 16 03450003 THRU 27 @Z40LB02*/ 03500003 3 EWOSNS16 CHAR(1), /*SENSE BYTE 16 @Z40LB02*/ 03550003 3 EWOSNS17 CHAR(1), /*SENSE BYTE 17 @Z40LB02*/ 03600003 3 EWOSNS18 CHAR(1), /*SENSE BYTE 18 @Z40LB02*/ 03650003 3 EWOSNS19 CHAR(1), /*SENSE BYTE 19 @Z40LB02*/ 03700003 3 EWOSNS20 CHAR(1), /*SENSE BYTE 20 @Z40LB02*/ 03750003 3 EWOSNS21 CHAR(1), /*SENSE BYTE 21 @Z40LB02*/ 03800003 3 EWOSNS22 CHAR(1), /*SENSE BYTE 22 @Z40LB02*/ 03850003 3 EWOSNS23 CHAR(1), /*SENSE BYTE 23 @Z40LB02*/ 03900003 3 EWOSNS24 CHAR(1), /*SENSE BYTE 24 @Z40LB02*/ 03950003 3 EWOSNS25 CHAR(1), /*SENSE BYTE 25 @Z40LB02*/ 04000003 3 EWOFSC CHAR(2), /*FAULT SYMP CODE @Z40LB02*/ 04050003 4 EWOSNS26 CHAR(1), /*SENSE BYTE 26 @Z40LB02*/ 04100003 4 EWOSNS27 CHAR(1), /*SENSE BYTE 27 @Z40LB02*/ 04150003 2 EWOCYL CHAR(4), /*SENSE BYTES 28-31 @Z40LB02 04200003 WILL CONTAIN CYL @Z40LB02 04250003 IF AVAILABLE @Z40LB02*/ 04300003 3 CCHHR CHAR(4), /*CCHHR VALUE @Z40LB02*/ 04350003 4 EWOCC CHAR(2); /*CYLINDER INFO @Z40LB02*/ 04400003