         %SKIP(3);
 /********************************************************************
 *     INCLUDE  STSTWA                                               *
 *     INTERFASE DE PASO DE DATOS ENTRE PROGRAMAS.                   *
 *********************************************************************/
 DCL PTRTWA PTR;
 DCL PTRWEBTWA PTR BASED(ADDR(PTRAITWA));
 DCL 1 TWA BASED(PTRTWA),
       2 TWA_ESTRELLA,                   /* CAMPOS DE ESTRELLA       */
         3 TWA_ERR_ESTRELLA CHAR(1),     /* CAMPO DE ERROR ESTRELLA  */
         3 TWA_RES_ESTRELLA CHAR(9),     /* RESTO CAMPOS   ESTRELLA  */
       2 TWAERROR       CHAR(70),        /* CAMPO DE ERROR           */
       2 LONGME         BIN FIXED(15),   /* LONG. MENSAJE DE ENTRADA */
       2 LONGMS         BIN FIXED(15),   /* LONG. MENSAJE DE SALIDA  */
       2 LONGPARE       BIN FIXED(15),   /* LONG. PARCIAL DE ENTRADA */
       2 LONGPARS       BIN FIXED(15),   /* LONG. PARCIAL DE SALIDA  */
       2 PTR022         PTR,             /* ADDR. REGISTRO 022       */
       2 PTR023         PTR,             /* ADDR. REGISTRO 023       */
       2 PTRSAL         PTR,             /* ADDR. MENSAJE DE SALIDA  */
       2 PTRDSAL        PTR,             /* ADDR. COMIENZO REG SALID */
       2 PTRENT         PTR,             /* ADDR. MENSAJE DE ENTRADA */
       2 PTRDENT        PTR,             /* ADDR. COMIENZO REG ENTRA */
       2 PTRATTWA       PTR,             /* ADDR. ATRIBUTS CAMPS WAS */
       2 PTRCWA         PTR,             /* ADDR. CWA                */
       2 PTRDTWA        PTR,             /* ADDR. AREA DATOS TWA     */
       2 PTRNOM         PTR,             /* ADDR. AREA NOMXXXX TWA   */
       2 LONGCS         BIN FIXED(15),   /* LONG. CABECERA SALIDA    */
       2 LONGCE         BIN FIXED(15),   /* LONG. CABECERA ENTRADA   */
       2 OENQCWA        BIN FIXED(31),   /* OFFSET AREA ENQUEUE CWA  */
       2 CROH           CHAR(2),         /* CODIGO REPUESTA FUNCION  */
       2 CTOSCBOS,                       /* COLA DE CTOS Y CBOS      */
                                         /* PRINCIPAL Y SECUNDARIOS  */
         3 ICTOSCBOS    BIN FIXED(15),   /* NUMERO DE CTOS Y CBOS    */
                                         /* ENCOLADOS                */
         3 MATCTOSCBOS(20),              /* MATRIZ PARA GUARDARLOS   */
           4 CTOS       CHAR(3),         /* CTOS EN COLA             */
           4 CBOS       CHAR(2),         /* CBOS EN COLA             */
           4 VEZ        CHAR(1),         /* VEZ  EN COLA             */
       2 TWACODI,                        /* CODIGOS PASO ENTRE PGMS  */
                                         /* DE NIVEL 2               */
                                         /* '0'B=NO, '1'B=SI         */
         3 DTB          BIT(1),          /* NECESITA DTB             */
         3 PSBPLANIYANO BIT(1),          /* PSB PLANIFICADA          */
         3 RBOSPTE      BIT(1),          /* RECIBOS PTES.            */
         3 RBOSPTEA     BIT(1),          /* RECIBOS PTES. ANTERIORES */
         3 RBOSPTEP     BIT(1),          /* RECIBOS PTES. POSTERIORES*/
         3 RBOSPTEV     BIT(1),          /* RECIBOS PTES. VENCIMIENTO*/
         3 RBOSCOB      BIT(1),          /* RECIBOS COBRADOS         */
         3 RBOSCOBA     BIT(1),          /* RECIBOS COBR. ANTERIORES */
         3 RBOSCOBP     BIT(1),          /* RECIBOS COBR. POSTERIORES*/
         3 STOSPTE      BIT(1),          /* SINIESTROS PTES.         */
         3 STOSPTEA     BIT(1),          /* SNTROS. PTES. ANTERIORES */
         3 STOSPTEP     BIT(1),          /* SNTROS. PTES. POSTERIORES*/
         3 STOSEOM      BIT(1),          /* SNTROS. =  |  >  EFECTOS */
         3 TROFFLIN     BIT(1),          /* T.R. OFFLINE. 1 SI, 0 NO */
         3 TROFFERR     BIT(1),          /* T.R. OFFLINE ERROR. 0S,1N*/
         3 ERRENVIA     BIT(1),          /* ERROR GRAVE YA ENVIADO,1S*/
         3 D3270        BIT(1),          /* DEVICE 3270              */
         3 DDIGITAL     BIT(1),          /* DEVICE DIGITAL (VAX)     */
         3 D36AS        BIT(1),          /* DEVICE 36/AS             */
         3 DAGENTS      BIT(1),          /* DEVICE PC DE AGENTS      */
         3 DAPPN        BIT(1),          /* DEVICE CONECTION LUTYPE6 */
         3 ID_TS_NUEVA  BIT(1),          /* NUEVO NOMBRE COLAS TS    */
         3 ID_MS_NUEVO  BIT(1),          /* MSG VARIABLE             */
         3 DINFOVIA     BIT(1),          /* DEVICE INFOVIA           */
         3 READONLY_TWA BIT(1),          /* CICS SOLO LECTURA        */
         3 DMQS         BIT(1),          /* DEVICE DE MQSERIES       */
         3 DIMS         BIT(1),          /* DEVICE DE IMS            */
         3 DESTRELLA    BIT(1),          /* DEVICE DE ESTRELLA       */
         3 MARCA_SINTWA BIT(1),          /* MARCA DE SINIESTROS      */
         3 DTCPIP       BIT(1),          /* DEVICE TCPIP             */
         3 DWEB         BIT(1),          /* DEVICE WEB               */
         3 DHTTP        BIT(1),          /* DEVICE HTTP              */
         3 PPIMI        BIT(1),          /* PROTOCOLO PIMI           */
         3 INFO_GENER   BIT(1),          /* HAY INFORMACION GENERNET */
         3 CICSSRV      BIT(1),          /* ES CICS DE SERVICIO      */
         3 DCTG         BIT(1),          /* CICS TRANSACTION GATEWAY */
         3 IMPRESINPAN  BIT(1),          /* IMPRESION SIN PANTALLAS  */
         3 INTERACTWA   BIT(1),          /* HAY USUARIO PERSONA      */
         3 CAMCLITWA    BIT(1),          /* CAMBIO CLIENTE           */
         3 YASTS016     BIT(1),          /* YA PASO POR  STS016      */
         3 IMPRMASSTWA  BIT(1),          /* IMPRESION MASIVA         */
         3 DCANCLITWA   BIT(1),          /* CANAL CLIENTE            */
         3 STSPCEF      BIT(1),          /* TRACE VSI                */
         3 FILLCODI     BIT(21),         /* FILLER PARA FUTURAS      */
                                         /* AMPLIACIONES             */
       2 FECHATWA       CHAR(6),         /* FECHA PARA PASAR ENTRE   */
                                         /* SUBFUNCIONES.            */
       2 TWAZZZ         CHAR(3),         /* FILLER                   */
       2 TOKENTWA       CHAR(24),        /* TOKEN                    */
       2 YORIG          CHAR(1),         /* ORIGEN DE TRANSACCIO     */
       2 YRCVY          CHAR(1),         /* RECOVERY SI O NO         */
       2 WUSER          CHAR(4),         /* USUARI PC O              */
                                         /* CODI TRANSACCIO O        */
                                         /* X'FFFF' SI ES 'UT30A'    */
       2 YGRDO          CHAR(1),         /* GRAVACIO DO-S, N=NO      */
       2 YTRNO          CHAR(4),         /* TRANSACCIO ORIGEN        */
       2 PTRPANTWA      PTR,             /* PTR TWA B.F.             */
       2 PTRSTA         PTR,             /* PTR ESTADISTICAS ALERTAS */
       2 CURPOSTWA      BIN FIXED(15),   /* CURSOR POSITION          */
       2 FILLETU        CHAR(2),         /* FILLER                   */
       2 TWATABPTR      PTR,             /* PUNTER TABLAS ACCES      */
       2 IMPCTR         PIC'999',        /* CONTADOR CRIDES STS201   */
       2 IDENTIF_TS     CHAR(7),         /*IDENTIFICACION COLAS TS   */
       2 TOKENUSRTWA    CHAR(24),        /* TOKEN DE SESION CTG      */
       2 ID_USER_TWA    CHAR(8),         /* USUARIO REAL             */
       2 ITITWA         BIN FIXED(15),   /* ITEM INICIO IMPRESION    */
       2 ITCTWA         BIN FIXED(15),   /* ITEM ACTUAL IMPRESION    */
       2 WPUTWA         CHAR(1),         /*                          */
       2 PROTOCOLO_TWA  CHAR(1),         /*                          */
       2 PRESENTA_TWA   CHAR(1),         /*                          */
       2 ACCESO_TWA     CHAR(1),         /*                          */
       2 SESION_TWA     CHAR(1),         /*                          */
       2 CLI_NT_TWA     CHAR(1),         /* CLIENTE NUEVA TRANSACCION*/
       2 IMPR_TWA       CHAR(4),         /* MI IMPRESION GENERNET V5 */
       2 PTR_DSI600_TWA PTR,             /* PUNTERO CACHE DSI600     */
       2 PTRINFTWA      PTR,             /* PTR INFORMACION GENERNET */
       2 PTRAITWA       PTR,             /* AREA INTERMEDIA TS (3270)*/
       2 REGENTSAL(1000: 1999),          /* MATRIZ DE REGISTROS      */
          3 NOM        CHAR(4),          /* NOMBRE REG. XXXX         */
          3 PTRE       PTR,              /* ADDR. REG XXXX DE ENTRADA*/
          3 PTRS       PTR,              /* ADDR. REG XXXX DE SALIDA */
       2 NOM9999        CHAR(4),         /* NOMBRE REG. 9999         */
       2 PTRE9999       PTR,             /* ADDR. REG 9999 DE ENTRADA*/
       2 PTRS9999       PTR,             /* ADDR. REG 9999 DE SALIDA */
       2 FINTWA         CHAR(4);         /* FIN TWA. ESTARA A FFFFFFF*/
 /********************************************************************
 *     FI INCLUDE  STSTWA                                            *
 *********************************************************************/
