*@LIST PUSH; 00050000 *@LIST OFF; 00100000 * /* 00150000 MACRO 00200000 EWDMAP 00250000 SPACE 1 00300000 **************************************************************** 00350000 * * 00400000 * THIS DSECT DESCRIBES THE DIRECT ACCESS DEVICE DEPENDENT * 00450000 * SECTION OF THE ERP WORKAREA. IT IS INVOKED BY IECDERWA * 00500000 * IF EWD IS SPECIFIED AS AN OPTION ON THE MACRO CALL. * 00550000 * * 00600000 **************************************************************** 00650000 SPACE 1 00700000 EWADAREA EQU * START OF DA EWA SECTION 00750000 ORG EWAIERP 00800000 EWDSNS DS XL28 DA SENSE INFORMATION @Y30LSFY 00850000 ORG EWDSNS 00900000 EWDSNS0 DS XL1 SENSE BYTE 0 00950000 EWDCREJ EQU X'80' COMMAND REJECT 01000000 EWDINT EQU X'40' INTERVENTION REQUIRED 01050000 EWDBUSO EQU X'20' BUS OUT 01100000 EWDEQU EQU X'10' EQUIPMENT CHECK 01150000 EWDDATA EQU X'08' DATA CHECK 01200000 EWDOVRN EQU X'04' OVERRUN 01250000 EWDTCC EQU X'02' TRACK CONDITION CHECK 01300000 EWDSKCK EQU X'01' SEEK CHECK 01350000 SPACE 1 01400000 EWDSNS1 DS XL1 SENSE BYTE 1 01450000 EWDPERM EQU X'80' PERMANENT ERROR 01500000 EWDTVRN EQU X'40' TRACK OVERRUN 01550000 EWDEOC EQU X'20' END OF CYLINDER 01600000 EWD13 EQU X'10' RESERVED 01650000 EWDNRF EQU X'08' NO RECORD FOUND 01700000 EWDFP EQU X'04' FILE PROTECT 01750000 EWDMAM EQU X'02' MISSING ADDRESS MARKER 01800000 EWDINHI EQU X'02' WRITE INHIBIT 01850000 EWDOFLO EQU X'01' OVERFLOW OPERATION INCOMPLETE 01900000 SPACE 1 01950000 EWDSNS2 DS XL1 SENSE BYTE 2 02000000 EWDZLOG EQU X'80' 2305 LOG 02050000 EWDWRPS EQU X'80' RPS FEATURE 02100000 EWDMDA1 EQU X'80' MEDIA ERROR @Y30LSFY 02150000 EWDCORR EQU X'40' CORRECTABLE DATA CHECK 02200000 EWD22 EQU X'20' RESERVED 02250000 EWDMDA2 EQU X'20' MEDIA ERROR @Y30LSFY 02300000 EWDEDAT EQU X'10' ENVIRONMENTAL DATA PRESENT 02350000 EWD24 EQU X'08' RESERVED 02400000 EWD25 EQU X'04' RESERVED 02450000 EWD26 EQU X'02' RESERVED 02500000 EWD27 EQU X'01' RESERVED 02550000 SPACE 1 02600000 EWDSNS3 DS XL1 SENSE BYTE 3 02650000 EWDSNS4 DS XL1 SENSE BYTE 4 02700000 EWDSNS5 DS XL1 SENSE BYTE 5 02750000 EWDSNS6 DS XL1 SENSE BYTE 6 02800000 EWDSNS7 DS XL1 SENSE BYTE 7 02850000 EWDSNS8 DS XL1 SENSE BYTE 8 02900000 EWDSNS9 DS XL1 SENSE BYTE 9 02950000 EWDSNS10 DS XL1 SENSE BYTE 10 03000000 EWD100 EQU X'80' RESERVED 03050000 EWDSTAT EQU X'70' STATE BITS 03100000 EWD104 EQU X'08' RESERVED 03150000 EWD105 EQU X'04' RESERVED 03200000 EWD106 EQU X'02' RESERVED 03250000 EWD107 EQU X'01' RESERVED 03300000 SPACE 1 03350000 EWDSNS11 DS XL1 SENSE BYTE 11 03400000 EWDSNS12 DS XL1 SENSE BYTE 12 03450000 EWDSNS13 DS XL1 SENSE BYTE 13 03500000 EWDSNS14 DS XL1 SENSE BYTE 14 03550000 EWDSNS15 DS XL1 SENSE BYTE 15 03600000 EWDSNS16 DS XL1 SENSE BYTE 16 03650000 EWDSNS17 DS XL1 SENSE BYTE 17 03700000 EWDSNS18 DS XL1 SENSE BYTE 18 03750000 EWDSNS19 DS XL1 SENSE BYTE 19 03800000 EWDSNS20 DS XL1 SENSE BYTE 20 03850000 EWDSNS21 DS XL1 SENSE BYTE 21 03900000 EWDSNS22 DS XL1 SENSE BYTE 22 03950000 EWDSNS23 DS XL1 SENSE BYTE 23 04000000 EWDSNS24 DS XL1 SENSE BYTE 24 @Y30LSFY 04050000 EWDSNS25 DS XL1 SENSE BYTE 25 @Y30LSFY 04100000 EWDSNS26 DS XL1 SENSE BYTE 26 @Y30LSFY 04150000 EWDSNS27 DS XL1 SENSE BYTE 27 @Y30LSFY 04200000 ORG EWDSNS24 @Y30LSFY 04250000 EWDRZRO DS XL4 RECORD ZERO @Y30LSFY 04300000 ORG EWDSNS+L'EWDSNS ' 04350000 EWDSAVKY DS XL1 USER CHAN PGN KEY SAVE 04400000 EWDSAVOP DS XL1 USER OPTS SAVE AREA 04450000 EWDSAVS DS XL2 TEMP SENSE SAVE AREA @Y30LSFY 04500000 EWDSAVC DS XL7 TEMP CSW SAVE AREA @Y30LSFY 04550000 EWDHOMAD DS XL6 HOME ADDRESS - FCCHHR 04600000 ORG EWDHOMAD 04650000 EWDHAFLG DS XL1 FLAG BYTE 04700000 EWDHA0 EQU X'80' RESERVED 04750000 EWDHA1 EQU X'40' RESERVED 04800000 EWDHA2 EQU X'20' RESERVED 04850000 EWDHA3 EQU X'10' RESERVED 04900000 EWDHA4 EQU X'08' RESERVED 04950000 EWDHA5 EQU X'04' RESERVED 05000000 EWDHADEF EQU X'02' RESERVED 05050000 EWDHAALT EQU X'01' RESERVED 05100000 EWDCCHH DS XL4 CCHH RETURNED BY RHA 05150000 EWDHARNO DS XL1 RECORD NUMBER 05200000 EWDDISP DS XL3 RESERVED @Y30LSFY 05250000 EWDCCW1 DS CL8 DA CCW 1 05300000 EWDCCW2 DS CL8 DA CCW 2 05350000 EWDCCW3 DS CL8 DA CCW 3 05400000 EWDCCW4 DS CL8 DA CCW 4 05450000 EWDCCW5 DS CL8 DA CCW 5 05500000 EWDCCW6 DS CL8 DA CCW 6 05550000 EWDCCW7 DS CL8 DA CCW 7 05600000 EWDCCW8 DS CL8 DA CCW 8 05650000 EWDCCW9 DS CL8 DA CCW 9 05700000 EWDCCWA DS CL8 DA CCW 10 05750000 SPACE 1 05800000 EWDEND EQU * END OF DA EWA SECTION 05850000 SPACE 1 05900000 EWADAEL EQU EWDEND-EWADAREA LENGTH OF DA EWA SECTION 05950000 MEND 06000000 * */ 06050000 *@LIST POP; 06100000 * 06150000 * /************************************************************/ 06200000 * /* */ 06250000 * /* THIS STRUCTURE DESCRIBES THE DIRECT ACCESS DEVICE DE- */ 06300000 * /* PENDENT SECTION OF THE ERP WORKAREA. IT IS INVOKED BY */ 06350000 * /* IECDERWA IF EWD IS SPECIFIED AS AN OPTION ON THE */ 06400000 * /* MACRO CALL. */ 06450000 * /* */ 06500000 * /************************************************************/ 06550000 * 06600000 * DCL 1 EWADAREA CHAR(128) DEF(EWAIERP), 06650000 * 06700000 * 2 EWDASNS CHAR(28), /* SENSE INFO @Y30LSFY */ 06750000 * 3 EWDSNS0 BIT(8), /* SENSE BYTE 0 */ 06800000 * 4 EWDCREJ BIT(1), /* COMMAND REJECT */ 06850000 * 4 EWDINT BIT(1), /* INTERVENTION REQUIRED */ 06900000 * 4 EWDBUSO BIT(1), /* BUS OUT */ 06950000 * 4 EWDEQU BIT(1), /* EQUIPMENT CHECK */ 07000000 * 4 EWDDATA BIT(1), /* DATA CHECK */ 07050000 * 4 EWDOVRN BIT(1), /* OVERRUN */ 07100000 * 4 EWDTCC BIT(1), /* TRACK CONDITION CHECK */ 07150000 * 4 EWDSKCK BIT(1), /* SEEK CHECK */ 07200000 * 07250000 * 3 EWDSNS1 BIT(8), /* SENSE BYTE 1 */ 07300000 * 4 EWDPERM BIT(1), /* PERMANENT ERROR */ 07350000 * 4 EWDTVRN BIT(1), /* TRACK OVERRUN */ 07400000 * 4 EWDEOC BIT(1), /* END OF CYLINDER */ 07450000 * 4 EWD13 BIT(1), /* RESERVED */ 07500000 * 4 EWDNRF BIT(1), /* NO RECORD FOUND */ 07550000 * 4 EWDFP BIT(1), /* FILE PROTECT */ 07600000 * 4 EWDMAM BIT(1), /* MISSING ADDR MARKER */ 07650000 * 5 EWDINHI BIT(1), /* WRITE INHIBIT */ 07700000 * 4 EWDOFLO BIT(1), /* OVERFLOW/OP INCOMPLETE */ 07750000 * 07800000 * 3 EWDSNS2 BIT(8), /* SENSE BYTE 2 */ 07850000 * 4 EWDZLOG BIT(1), /* 2305 LOG */ 07900000 * 5 EWDWRPS BIT(1), /* RPS FEATURE */ 07950000 * 6 EWDMDA1 BIT(1), /* MEDIA ERROR @Y30LSFY */ 08000000 * 4 EWDCORR BIT(1), /* CORRECTABLE DATA CHECK */ 08050000 * 4 EWD22 BIT(1), /* RESERVED */ 08100000 * 5 EWDMDA2 BIT(1), /* MEDIA ERROR @Y30LSFY */ 08150000 * 4 EWDEDAT BIT(1), /* ENVRMTL DATA PRESENT */ 08200000 * 4 EWD24 BIT(1), /* RESERVED */ 08250000 * 4 EWD25 BIT(1), /* RESERVED */ 08300000 * 4 EWD26 BIT(1), /* RESERVED */ 08350000 * 4 EWD27 BIT(1), /* RESERVED */ 08400000 * 3 EWDSNS3 BIT(8), /* SENSE BYTE 3 */ 08450000 * 3 EWDSNS4 BIT(8), /* SENSE BYTE 4 */ 08500000 * 3 EWDSNS5 BIT(8), /* SENSE BYTE 5 */ 08550000 * 3 EWDSNS6 BIT(8), /* SENSE BYTE 6 */ 08600000 * 3 EWDSNS7 BIT(8), /* SENSE BYTE 7 */ 08650000 * 3 EWDSNS8 BIT(8), /* SENSE BYTE 8 */ 08700000 * 3 EWDSNS9 BIT(8), /* SENSE BYTE 9 */ 08750000 * 3 EWDSNS10 BIT(8), /* SENSE BYTE 10 */ 08800000 * 4 EWD100 BIT(1), /* RESERVED */ 08850000 * 4 EWDSTAT BIT(3), /* STATE BITS */ 08900000 * 4 EWD104 BIT(1), /* RESERVED */ 08950000 * 4 EWD105 BIT(1), /* RESERVED */ 09000000 * 4 EWD106 BIT(1), /* RESERVED */ 09050000 * 4 EWD107 BIT(1), /* RESERVED */ 09100000 * 3 EWDSNS11 BIT(8), /* SENSE BYTE 11 */ 09150000 * 3 EWDSNS12 BIT(8), /* SENSE BYTE 12 */ 09200000 * 3 EWDSNS13 BIT(8), /* SENSE BYTE 13 */ 09250000 * 3 EWDSNS14 BIT(8), /* SENSE BYTE 14 */ 09300000 * 3 EWDSNS15 BIT(8), /* SENSE BYTE 15 */ 09350000 * 3 EWDSNS16 BIT(8), /* SENSE BYTE 16 */ 09400000 * 3 EWDSNS17 BIT(8), /* SENSE BYTE 17 */ 09450000 * 3 EWDSNS18 BIT(8), /* SENSE BYTE 18 */ 09500000 * 3 EWDSNS19 BIT(8), /* SENSE BYTE 19 */ 09550000 * 3 EWDSNS20 BIT(8), /* SENSE BYTE 20 */ 09600000 * 3 EWDSNS21 BIT(8), /* SENSE BYTE 21 */ 09650000 * 3 EWDSNS22 BIT(8), /* SENSE BYTE 22 */ 09700000 * 3 EWDSNS23 BIT(8), /* SENSE BYTE 23 */ 09750000 * 3 EWDSNS24 BIT(8), /* SENSE BYTE 24 @Y30LSFY */ 09800000 * 4 EWDRZRO CHAR(4), /* RECORD ZERO @Y30LSFY */ 09850000 * 3 EWDSNS25 BIT(8), /* SENSE BYTE 25 @Y30LSFY */ 09900000 * 3 EWDSNS26 BIT(8), /* SENSE BYTE 26 @Y30LSFY */ 09950000 * 3 EWDSNS27 BIT(8), /* SENSE BYTE 27 @Y30LSFY */ 10000000 * 10050000 * 2 EWDSAVKY CHAR(1), /* USER CHAN PGM SAVE */ 10100000 * 2 EWDSAVOP CHAR(1), /* USER OPTS SAVE */ 10150000 * 2 EWDSAVS CHAR(2), /* TEMP SENSE SAVE@Y30LSFY */ 10200000 * 2 EWDSAVC CHAR(7), /* TEMP CSW SAVE @Y30LSFY */ 10250000 * 2 EWDHOMAD CHAR(6), /* FCCHHR */ 10300000 * 3 EWDHAFLG BIT(8), /* FLAG BYTE */ 10350000 * 4 EWDHA0 BIT(1), /* RESERVED */ 10400000 * 4 EWDHA1 BIT(1), /* RESERVED */ 10450000 * 4 EWDHA2 BIT(1), /* RESERVED */ 10500000 * 4 EWDHA3 BIT(1), /* RESERVED */ 10550000 * 4 EWDHA4 BIT(1), /* RESERVED */ 10600000 * 4 EWDHA5 BIT(1), /* RESERVED */ 10650000 * 4 EWDHADEF BIT(1), /* DEFECTIVE TRACK */ 10700000 * 4 EWDHAALT BIT(1), /* ALTERNATE TRACK */ 10750000 * 3 EWDCCHH CHAR(4), /* CCHH RETURNED BY RHA */ 10800000 * 3 EWDHARNO PTR(8), /* RECORD NO. */ 10850000 * 10900000 * 2 EWDDISP CHAR(3), /* RESERVED @Y30LSFY */ 10950000 * 2 EWDCCW1 CHAR(8), /* CCW 1 */ 11000000 * 2 EWDCCW2 CHAR(8), /* CCW 2 */ 11050000 * 2 EWDCCW3 CHAR(8), /* CCW 3 */ 11100000 * 2 EWDCCW4 CHAR(8), /* CCW 4 */ 11150000 * 2 EWDCCW5 CHAR(8), /* CCW 5 */ 11200000 * 2 EWDCCW6 CHAR(8), /* CCW 6 */ 11250000 * 2 EWDCCW7 CHAR(8), /* CCW 7 */ 11300000 * 2 EWDCCW8 CHAR(8), /* CCW 8 */ 11350000 * 2 EWDCCW9 CHAR(8), /* CCW 9 */ 11400000 * 2 EWDCCWA CHAR(8), /* CCW 10 */ 11450000 * 11500000 * 2 EWDEND CHAR(0); /* END OF DA EWA AREA */ 11550000