*@LIST PUSH; 00600006 *@LIST OFF ; 01200006 * /* 01800006 MACRO 02400006 EWTCMAP 03000006 SPACE 1 03600006 **************************************************************** 04200006 * * 04800006 * THIS DSECT DESCRIBES THE TELECOMMUNICATIONS ACCESS METHOD * 05400006 * DEVICE DEPENDENT SECTION OF THE ERP WORKAREA. IT IS * 06000006 * INVOKED BY IECDERWA IF EWTC IS SPECIFIED AS AN OPTION ON * 06600006 * THE MACRO CALL. * 07200006 * * 07800006 * OS/VS2 RELEASE 2,4/1/73,LEVEL=01 * 08400006 * * 09000006 **************************************************************** 09600006 SPACE 1 10200006 EWTCADDR EQU * 10800006 EWTCSNS DS AL2 SENSE INFORMATION 12000006 EWTCTID DS AL2 TERMINAL IDENTIFICATION 12600006 * CHARACTERS 13200006 *********************************************************************** 13800006 * START OF DEVICE DEPENDENT INFORMATION FOR OBR/SDR * 14400006 *********************************************************************** 15000006 EWTCSIO DS AL2 COUNT OF START I/O COMMANDS FOR 15600006 * LINE OR STATION 16200006 EWTCTMP DS AL1 COUNT OF TEMPORARY ERRORS FOR 16800006 * LINE OR STATION 17400006 EWTCMSK DS AL1 LINE OR STATION RECORDING ERROR 18000006 * MASK 18600006 EWTCTPL DS AL1 TP OP-CODE OF LAST INTERRUPTED 19200006 * I/O OPERATION 19800006 EWTCTPF DS AL1 TP OP-CODE OF FIRST INTERRUPTED 20400006 * I/O OPERATION 21000006 EWTCFLG DS AL1 OBR/SDR FLAG BYTE 21600006 * BIT DEFINITIONS 22200006 EWTCTEM EQU X'80' TEMPORARY ERROR 22800006 EWTCOVF EQU X'40' COUNTER OVERFLOW 23400006 EWTCEOD EQU X'20' END-OF-DAY RECORDING 24000006 EWTCSEL EQU X'10' INITIAL SELECTION ERROR 24600006 EWTCGRA DS AL1 GRAPHIC RESPONSE CHARACTER 25200006 EWTCTRM DS CL8 TERMINAL OR UCB NAME 25800006 EWTCSNL DS AL1 SENSE OF LAST INTERRUPTED I/O 26400006 * OPERATION. 27000006 EWTCSNF DS AL1 SENSE OF FIRST INTERRUPTED I/O 27600006 * OPERATION. 28200006 *********************************************************************** 28800006 * END OF DEVICE DEPENDENT INFORMATION FOR OBR/SDR * 29400006 *********************************************************************** 30000006 EWTCRSV1 DS AL2 RESERVED 30600006 EWTCRSV2 DS AL1 RESERVED 31200006 EWTCCSW DS XL7 INTERRUPTED CSW 31800006 EWTCCCW DS 2A INTERRUPTED CCW. 32400006 EWTCBUFF DS A ADDRESS OF TPER BUFFER FOR MDR 32600006 EWTCEND EQU * 32800006 * 33000006 *********************************************************************** 33600006 * 0 * EWTCSNS * EWTCTID * 34200006 *********************************************************************** 34800006 * 4 * EWTCSIO * EWTCTMP * EWTCMSK * 35400006 *********************************************************************** 36000006 * 8 * EWTCTPL * EWTCTPF * EWTCFLG * EWTCGRA * 36600006 *********************************************************************** 37200006 * 12 * EWTCTRM * 37800006 *********************************************************************** 38400006 * 16 * * 39000006 *********************************************************************** 39600006 * 20 * EWTCSNL * EWTCSNF * EWTCRSV1 * 40200006 *********************************************************************** 40800006 * 24 * EWTCRSV2 * EWTCCSW * 41400006 *********************************************************************** 42000006 * 28 * * 42600006 *********************************************************************** 43200006 * 32 * EWTCCCW * 43800006 *********************************************************************** 44400006 * 36 * * 45000006 *********************************************************************** 45600006 * 40 * EWTCBUFF * 45800006 *********************************************************************** 46000006 MEND 46200006 * */ 46800006 *@LIST POP; 47400006 * 48000006 * /************************************************************/ 48600006 * /* */ 49200006 * /* THIS STRUCTURE DESCRIBES THE TELECOMMUNICATIONS ACCESS */ 49800006 * /* METHOD DEVICE DEPENDENT SECTION OF THE ERP WORKAREA. IT*/ 50400006 * /* IS INVOKED BY IECDERWA IF EWTC IS SPECIFIED AS AN */ 51000006 * /* OPTION ON THE MACRO CALL. */ 51600006 * /* */ 52200006 * /* OS/VS2 RELEASE2,4/1/73,LEVEL=01 */ 52800006 * /* */ 53400006 * /************************************************************/ 54000006 * 54600006 DCL 1 EWTCADDR CHAR(44) BASED(ADDR(EWAIERP)) BDY(DWORD), 55200006 * 2 EWTCSNS FIXED (16), /* SENSE INFORMATION */ 55800006 * 2 EWTCTID FIXED (16), /* TERMINAL IDENTIFICATION */ 56400006 * /* CHARACTERS. */ 57000006 * /*******************************************************************/ 57600006 * /* START OF DEVICE DEPENDENT INFORMATION FOR OBR/SDR */ 58200006 * /*******************************************************************/ 58800006 * 2 EWTCSIO FIXED (16), /* COUNT OF START I/O COMMANDS*/ 59400006 * /* FOR LINE OR STATION */ 60000006 * 2 EWTCTMP FIXED (8), /* COUNT OF TEMPORARY ERRORS */ 60600006 * /* FOR LINE OR STATION */ 61200006 * 2 EWTCMSK FIXED (8), /* LINE OR STATION RECORDING */ 61800006 * /* ERROR MASK */ 62400006 * 2 EWTCTPL FIXED (8), /* TP OP-CODE OF LAST */ 63000006 * /* INTERRUPTED I/O OPERATION */ 63600006 * 2 EWTCTPF FIXED (8), /* TP OP-CODE OF FIRST */ 64200006 * /* INTERRUPTED I/O OPERATION */ 64800006 * 2 EWTCFLG FIXED (8), /* OBR/SDR FLAG BYTE */ 65400006 * 3 EWTCTEM BIT(1), /* TEMPORARY ERROR */ 66000006 * 3 EWTCOVF BIT(1), /* COUNTER OVERFLOW */ 66600006 * 3 EWTCEOD BIT(1), /* END-OF-DAY RECORDING */ 67200006 * 3 EWTCSEL BIT(1), /* INITIAL SELECTION ERROR */ 67800006 * 2 EWTCGRA FIXED (8), /* GRAPHIC RESPONSE */ 68400006 * /* CHARACTER. */ 69000006 * 2 EWTCTRM CHAR (8), /* TERMINAL OR UCB NAME */ 69600006 * 2 EWTCSNL FIXED (8), /* SENSE OF LAST INTERRUPTED */ 70200006 * /* I/O OPERATION */ 70800006 * 2 EWTCSNF FIXED (8), /* SENSE OF FIRST INTERRUPTED */ 71400006 * /* I/O OPERATION */ 72000006 * 2 EWTCRSV1 FIXED (16), /* RESERVED */ 72600006 * /*******************************************************************/ 73200006 * /* END OF DEVICE DEPENDENT INFORMATION FOR OBR/SDR */ 73800006 * /*******************************************************************/ 74400006 * 2 EWTCRSV2 FIXED (8), /* RESERVED */ 75000006 * 2 EWTCCSW CHAR (7), /* INTERRUPTED CSW. */ 75600006 * 2 EWTCCCW CHAR(8), /* INTERRUPTED CCW. */ 76200006 2 EWTCBUFF CHAR(4), /* ADDRESS OF TPER BUFFER */ 76400006 * /* FOR MDR */ 76600006 * /*******************************************************************/ 76800006 * /* 0 * EWTCSNS * EWTCTID */ 77400006 * /*******************************************************************/ 78000006 * /* 4 * EWTCSIO * EWTCTMP * EWTCMSK */ 78600006 * /*******************************************************************/ 79200006 * /* 8 * EWTCTPL * EWTCTPF * EWTCFLG * EWTCGRA */ 79800006 * /*******************************************************************/ 80400006 * /* 12 * EWTCTRM */ 81000006 * /*******************************************************************/ 81600006 * /* 16 * */ 82200006 * /*******************************************************************/ 82800006 * /* 20 * EWTCSNL * EWTCSNF * EWTCRSV1 */ 83400006 * /*******************************************************************/ 84000006 * /* 24 * EWTCRSV2 * EWTCCSW */ 84600006 * /*******************************************************************/ 85200006 * /* 28 * */ 85800006 * /*******************************************************************/ 86400006 * /* 32 * EWTCCCW */ 87000006 * /*******************************************************************/ 87600006 * /* 36 * */ 88200006 * /*******************************************************************/ 88800006 * /* 40 * EWTCBUFF */ 89000006 * /*******************************************************************/ 89200006 * 2 EWTCEND CHAR(0); /* END OF EWTC */ 89400006