*/* */ 00900002 */* ***** VTAM DEVICE DEPENDENT EWA SECTION OF EWATMAP ***** */ 01800002 */* */ 02700002 *%GOTO EWAPLS1; 03600002 * ***** ASSEMBLER LANGUAGE DSECT FOR EWATMAP ******* 04500002 MACRO 05400002 EWATMAP 06300002 EWATMAP DSECT 07200002 ORG EWAIERP 08100002 DS 0F FORCE WORD BOUNDARY 09000002 EWATRS01 DS CL4 RESERVED 09900002 EWATOBR DS 0CL18 OBR INTERFACE 10800002 EWATSIO DS XL2 SIO COUNTER 11700002 EWATTMP DS XL1 TEMPORARY ERROR COUNTER 12600002 EWATRS02 DS XL1 RESERVED 13500002 EWATCCL DS XL1 LAST EXECUTED COMMAND 14400002 EWATCCF DS XL1 FIRST COMMAND IN ERROR 15300002 EWATREC DS XL1 RECD TYPE, IF ZERO PERM ERROR 16200002 * EQUATES FOR EWATREC FLAGS 17100002 EWATRS03 EQU X'80' RESERVED 18000002 EWATOVF EQU X'40' COUNTER OVERFLOW RECORD 18900002 EWATCLO EQU X'20' CLOSEDOWN RECORD 19800002 EWATRS04 EQU X'1F' RESERVED (LAST 5 BITS/FLAGS) 20700002 * 21600002 EWATRS05 DS XL1 RESERVED 22500002 EWATTRM DS CL8 SYMBOLIC TERMINAL NAME 23400002 EWATSNL DS XL1 LAST SENSE RECEIVED 24300002 EWATSNF DS XL1 FIRST SENSE RECEIVED 25200002 EWATSR06 DS XL3 RESERVED 26100002 EWATCSW DS XL7 ORIGINAL CSW - LAST 7 BYTES 27000002 EWATCCW DS XL8 ORIGINAL CCW 27900002 DS 0F FORCE WORD BDY FOR EWATERPW 28800002 EWATERPW DS 0XL20 3270 ERP WORK AREA 29700002 EWATLFCM DS A CURRENT FAILING CCW POINTER 30600002 EWATCFCS DS A CURRENT FAILING SET POINTER 31500002 EWATEWRT DS A E/W CCW SET POINTER 32400002 EWATWSBA DS A W/SBA CCW SET POINTER 33300002 EWATCFOP DS XL1 CURRENT FAILING OP-CODE 34200002 EWATRECT DS XL1 RECORD TYPE FLAGS 35100002 * EQUATES FOR EWATRECT FLAGS 36000002 EWATRS07 EQU X'80' RESERVED 36900002 EWATCTOV EQU X'40' COUNTER OVERFLOW RECORD 37800002 EWATCLOS EQU X'20' CLOSEDOWN RECORD 38700002 EWATRS08 EQU X'1F' RESERVED (LAST 5 BITS/FLAGS) 39600002 * 40500002 EWATLPC DS XL2 LOCAL PROCESS CONTROL SWS 41400002 * EWATLPC FIRST FLAG BYTE EQUATES 42300002 EWATLPC0 EQU X'80' INVALID CCW ADDRESS 43200002 EWATLPC1 EQU X'40' SEARCH EXITING 44100002 EWATLPC2 EQU X'20' SEARCH DATA CHAINING 45000002 EWATLPC3 EQU X'10' CHANNEL PGM NOT ALL READS 45900002 EWATLPC4 EQU X'08' E/W OR W/SBA FOUND 46800002 EWATLPC5 EQU X'04' RD FOLLOWS E/W OR W/SBA 47700002 EWATLPC6 EQU X'02' RD & WT FOLLOWS E/W OR W/SBA 48600002 EWATLPC7 EQU X'01' ALLOW RETRY ( CCC/ICC/CDC/UC ) 49500002 * EWATLPC SECOND FLAG BYTE EQUATES 50400002 EWATLPC8 EQU X'80' RETRY CONTROL SWITCH 1 51300002 EWATLPC9 EQU X'40' SUCCESSFUL RETRY 52200002 EWATPLCA EQU X'20' RETRY CONTROL SWITCH 2 53100002 EWATLPCR EQU X'1F' RESERVED (LAST 5 BITS/FLAGS) 54000002 MEND 54900002 *%EWAPLS1: ; 55800002 *DCL 56700002 * 1 EWATMAP BDY(WORD) DEFINED(EWAIERP), /* VTAM DEP. EWA SECTION */ 57600002 * 2 EWATRS01 CHAR(4), /* RESERVED */ 58500002 * 2 EWATOBR CHAR(18), /* OBR INTERFACE */ 59400002 * 3 EWATSIO CHAR(2), /* SIO COUNTER */ 60300002 * 3 EWATTMP CHAR(1), /* TEMPORARY ERROR COUNTER */ 61200002 * 3 EWATRS02 CHAR(1), /* RESERVED */ 62100002 * 3 EWATCCL CHAR(1), /* LAST EXECUTED COMMAND */ 63000002 * 3 EWATCCF CHAR(1), /* FIRST COMMAND IN ERROR */ 63900002 * 3 EWATREC CHAR(1), /* RECORD TYPE, IF ZERO PERMANENT 64800002 * ERROR */ 65700002 * 4 EWATRS03 BIT(1), /* RESERVED */ 66600002 * 4 EWATOVF BIT(1), /* COUNTER OVERFLOW RECORD */ 67500002 * 4 EWATCLO BIT(1), /* CLOSEDOWN RECORD */ 68400002 * 4 EWATRS04 BIT(5), /* RESERVED */ 69300002 * 3 EWATRS05 CHAR(1), /* RESERVED */ 70200002 * 3 EWATTRM CHAR(8), /* SYMBOLIC TERMINAL NAME */ 71100002 * 3 EWATSNL CHAR(1), /* LAST SENSE RECEIVED */ 72000002 * 3 EWATSNF CHAR(1), /* FIRST SENSE RECEIVED */ 72900002 * 2 EWATRS06 CHAR(3), /* RESERVED */ 73800002 * 2 EWATCSW CHAR(7), /* ORIGINAL CSW - LAST 7 BYTES */ 74700002 * 2 EWATCCW CHAR(8), /* ORIGINAL CCW */ 75600002 * 2 EWATERPW CHAR(20) BDY(WORD), /* 3270 ERP WORK AREA */ 76500002 * 3 EWATLFCM PTR(31), /* CURRENT FAILING CCW POINTER */ 77400002 * 3 EWATCFCS PTR(31), /* CURRENT FAILING SET POINTER */ 78300002 * 3 EWATEWRT PTR(31), /* E/W CCW SET POINTER */ 79200002 * 3 EWATWSBA PTR(31), /* W/SBA CCW SET POINTER */ 80100002 * 3 EWATCFOP CHAR(1), /* CURRENT FAILING OP-CODE */ 81000002 * 3 EWATRECT BIT(8), /* RECORD TYPE FLAGS */ 81900002 * 4 EWATRS07 BIT(1), /* RESERVED */ 82800002 * 4 EWATCTOV BIT(1), /* COUNTER OVERFLOW RECORD */ 83700002 * 4 EWATCLOS BIT(1), /* CLOSEDOWN RECORD */ 84600002 * 4 EWATRS08 BIT(5), /* RESERVED */ 85500002 * 3 EWATLPC BIT(16), /* LOCAL PROCESS CONTROL SWS */ 86400002 * 4 EWATLPC0 BIT(1), /* INVALID CCW ADDRESS */ 87300002 * 4 EWATLPC1 BIT(1), /* SEARCH EXITING */ 88200002 * 4 EWATLPC2 BIT(1), /* SEARCH DATA CHAINING */ 89100002 * 4 EWATLPC3 BIT(1), /* CHANNEL PGM NOT ALL READS */ 90000002 * 4 EWATLPC4 BIT(1), /* E/W OR W/SBA FOUND */ 90900002 * 4 EWATLPC5 BIT(1), /* RD FOLLOWS E/W OR W/SBA */ 91800002 * 4 EWATLPC6 BIT(1), /* RD & WT FOLLOWS E/W OR W/SBA*/ 92700002 * 4 EWATLPC7 BIT(1), /* ALLOW RETRY (CCC/ICC/CDC/UC)*/ 93600002 * 4 EWATLPC8 BIT(1), /* RETRY CONTROL SWITCH 1 */ 94500002 * 4 EWATLPC9 BIT(1), /* SUCCESSFUL RETRY */ 95400002 * 4 EWATLPCA BIT(1), /* RETRY CONTROL SWITCH 2 */ 96300002 * 4 EWATLPCR BIT(5); /* RESERVED */ 97200002