         %SKIP(3);
 /********************************************************************
 *     INCLUDE ISTS011                    ESTA OK                    *
 *     TWA TRANSACCIO REDUIDA                                        *
 *********************************************************************/
 DCL PTREPITWA       PTR;

 DCL 1 KEPITWA BASED(PTRTWA),
       2 OLDTWA     CHAR(12412), /* TWA SISTEMA ANTERIOR   */
       2 NEWTWA     CHAR(2269); /* TWA DE TRANSACCION RED */

 DCL 1 EPITWA         BASED(PTREPITWA) UNALIGNED,
       2 KEYTWA,
         3 MATTWA          CHAR(3),  /*MATRICULA PC/36              */
         3 FILL1           CHAR(1),  /*BLANCOS PARA S36             */
         3 NPPTWA          PIC'99',  /*DE 00 A 40 NUM PANT PART     */
         3 WSTWA           CHAR(2),  /* WS DEL 36                   */
       2 EREPITWA         CHAR(1),   /* 9=ERROR LEVE,8=GRAVE        */
       2 IDIOMATTWA       CHAR(1),   /* IDIOMA DE TRABAJO           */
       2 IDIOMACTWA       CHAR(1),   /* IDIOMA PARA CONTRATO        */
       2 CICLOTWA         CHAR(1),
       2 AUSTWA           PTR,       /*APUNTA A LA TWA DE USUARIO   */
       2 TUTWA            CHAR(8),   /* TRANSACCION USUARIO      */
       2 ENTORNTWA        CHAR(1),   /* 3=REAL,6=USUARI,4=DESENVOLU */
       2 CLIENTWA         CHAR(1),   /* G=GRUP,P=PORTUGAL           */
       2 DISPTWA          CHAR(1),   /* DISPOSITIVO SALIDA          */
                                     /* I=IMPRESORA,F=FAX           */
       2 OPCLSTTWA        CHAR(1),   /* I=INMEDIATA,D=DIFERIDO      */
                                     /* F=FAX DIURNO,N=FAX NOCTURNO */
       2 ENDB2TWA         CHAR(1),   /* YA CARGADO EN DB2 S/N       */
       2 ORITRATWA        CHAR(1),   /* ORIGEN TRANSACCION EN EPI   */
                                     /* 0=NO HAY,1=GED,2=CALL CENTER*/
       2 OPCGEDTWA        CHAR(1),   /* HAY DOCMTO. GED S/N         */
       2 NUMGEDTWA   BIN FIXED(15),  /* NUM.ITEMS COLA TS GED       */
       2 POSGEDTWA   BIN FIXED(15),  /* POS.ITEMS COLA TS GED       */
       2 TSGEDTWA         CHAR(1),   /* HAY COLA TS GED A ENVIAR S/N*/
       2 TENVMODTWA       CHAR(1),   /* TIPO DE ENVIO CAMBIO MODULO */
       2 TRAMITWA         CHAR(20),  /* NUMERO EXPEDIENTE GED       */
       2 CIATWA           CHAR(1),   /* COMPAIA                    */
       2 REGIONTWA        CHAR(2),   /* REGION                      */
       2 SUCPROTWA        CHAR(3),   /* SUCURSAL PRODUCTORA         */
       2 AGENTWA          CHAR(5),   /* AGENTE                      */
       2 RAMOTWA          CHAR(2),   /* RAMO                        */
       2 GENMDTOTWA       CHAR(4),   /* GENERICO DE MANDATOS        */
       2 PPMDL2           PTR,       /* PTR PARAM CAMBIO MODULO 2   */
       2 PDMDL2           PTR,       /* PTR DATOS CAMBIO MODULO 2   */
       2 NAVMDL2          CHAR(1),   /* MODULOS2:1/ACT. 2/NO ACT.   */
       2 EUROPTTWA        CHAR(1),   /* S=PANTALLA EUROTRATABLE     */
       2 DISPOSTWA        CHAR(1),   /* DISPOSITIVO (3270,MQS,36,PC)*/
       2 TRANSPORTWA      CHAR(1),   /* TRANSPORTE(TCP,BMS,WEB,)    */
       2 PROTOTWA         CHAR(1),   /* PROTOCOLO (PEPE,APPC)       */
       2 UBICACIOTWA      CHAR(1),   /* C=CENTRO OPERATIVO          */
       2 OPERPRTTWA       CHAR(8),   /* USUARIO DESTINO IMPRESION   */
       2 MATPRTTWA        CHAR(3),   /* MATRICULA DESTINO IMPRESION */
       2 INDORITWA        CHAR(1),   /* 0=GENERNET V4               */
                                     /* 1=SIGVIEW,2=PERSIS,3=NOPERSI*/
       2 IDIOMAT2TWA      CHAR(2),   /* IDIOMA DE TRABAJO           */
       2 IDIOMAC2TWA      CHAR(2),   /* IDIOMA PARA CONTRATO        */
       2 TRATALITWA       BIT(1),    /* NUEVO PROCESO LITERALES     */
       2 TRATAPANTWA      BIT(1),    /* SI TRATA PANTALLAS          */
       2 AUTOPRTTWA       BIT(1),    /* AUTOMATA IMPRESION C.O.     */
       2 FICHAPOLI        BIT(1),    /* IMPRESION FICHA Y POLIZA */
       2 IRAGV5TWA        BIT(1),    /* IR A GENERNET V5            */
       2 FILBITWA         BIT(3),    /* LIBRE                       */
       2 AREATUTWA        CHAR(2),   /* AREA ASIGNADA POR TRANSACC  */
       2 UNITTUTWA        CHAR(2),   /* UNIT ASIGNADA POR TRANSACC  */
       2 DPTOTWA          CHAR(3),   /* DEPARTAMENTO DE DESARROLLO  */
       2 FILLERX          CHAR(24),  /* LIBRE                       */
       2 Y2MXTWA          CHAR(1),   /* CIA DE 2MX                  */
       2 IDPRTTWA         CHAR(8),   /* ID DESTINO IMPRESION        */
       2 IPPRTTWA         CHAR(4),   /* DIRECCION IP IMPRESORA      */
       2 MQAREATWA        CHAR(8),   /* AREA MQSERIES               */
       2 MQAPLITWA        CHAR(8),   /* APLICACION MQSERIES         */
       2 MQCOLATWA        CHAR(8),   /* COLA MQSERIES               */
       2 EUROMCC          CHAR(01),  /* INDICADOR EURO PARA MCC 0,1 */
       2 TDOCTWA          CHAR(1),   /* TIPO DCMTO.P/POL.S/SIN.ETC. */
       2 EUROTUTWA        BIT(1),    /* 1=PANTALLA EN EUROS         */
       2 EUROBSTWA        BIT(1),    /* 1=APLICACION EN EUROS       */
       2 EUROPRTWA        BIT(1),    /* 1=PROCEDE DEL STS016        */
       2 MDT3MDL2         BIT(1),    /* 1=DESACTIVA MDTO-3 MODULO 2 */
       2 EUROVISION       BIT(1),    /* 1=VISION EN EUROS           */
       2 ERR3270          BIT(1),    /* NO TRADUCE                  */
       2 BIGFUS           BIT(1),    /* IMPRESION GENERNET 2000 V3  */
       2 CTGTIPOTWA       BIT(1),    /* TIPO COMUNICACION CTG       */
       2 PMODTWA          CHAR(1),   /* 0=NO MODIF,1=SI MODIF       */
       2 PATRASTWA        CHAR(1),   /* 0=ADELANTE,1=ATRAS          */
       2 OPCIOTWA         CHAR(1),   /* A=ALTA,B=BAJA,M=MODIF,C=CON */
       2 ENTLOGICTWA      CHAR(8),   /* PUNTO ENT. MODUL.LOGICA     */
       2 MODULOTWA        CHAR(8),   /* MODULO LOGICA A EJECUTAR    */
       2 TIPUSRTWA        CHAR(1),   /* TIPO USUARIO 0 SUCURSAL     */
                                     /*              1 AGENTE       */
                                     /*              2 VSI          */
                                     /*              3 PROFESIONAL  */
                                     /*              4 MQS          */
                                     /*              5 MCC          */
       2 PORIGIN          PTR,       /* DIRECCION A IMAGVCOM        */
       2 PACTUAL          PTR,       /* DIRECCION A IMAGNCOM        */
       2 ITEM99TWA        PIC'(5)9', /* VAX RETURN CODE NATIU       */
       2 PTRPRR           PTR,       /* PTR A REGISTRE REPRESENTACIO*/
       2 ITEMETWA          PIC'99',  /*INDICE ERROR TWA             */
       2 FUNCIOTWA        CHAR(1),   /*FUNCIO ERROR TWA             */
       2 PRTEPI           CHAR(2),   /*IMPRESORA SESION EPI         */
       2 NEXPTWA          PIC'9999', /*SIGUIENTE PANTALLA A PROY    */
       2 NEXPGMTWA        CHAR(8),   /*SIGUIENTE PGM PARA LINK      */
       2 NEXTRANTWA       CHAR(4),   /*SIGUIENTE TRANS              */
       2 CTOSTWA          CHAR(3),   /*CTOS                         */
       2 CBOSTWA          CHAR(2),   /*CBOS                         */
       2 CROHTWA          CHAR(3),   /*CROH PERO DE 3 POSICIONES    */
       2 PVACIATWA        CHAR(1),   /* 0 PANT LLENA,1 PANT VACIA   */
                                     /* 2 PANT NO MODIFICADA        */
       2 NTCICSTWA        PIC'(6)9', /*NUMERO TAREA DE CICS         */
       2 CPROYTWA         CHAR (1),  /*0 NO PROYECTAR 1 SI          */
       2 CFINTWA          CHAR (1),  /*0 NO FIN TRANSAC. 1 SI       */
       2 CLITTWA          CHAR (1),  /*0 NO LITERAL                 */
                                     /*1 SI LITERAL PRIMERA PROYEC  */
                                     /*2 SI LITERAL SEGUNDA PROYEC  */
       2 LITOBTWA         PIC '99',  /*NUMERO LITERALES OBLIGATOR.  */
       2 CGRABTWA         CHAR (1),  /*0 NO GRABAR F.APOYO. 1 SI    */
       2 ENTPGMTWA        CHAR(6),   /* PUNTO DE VUELTA A PGM USER  */
       2 OPERTWA          CHAR(8),   /* NOMBRE DEL OPERADOR DEL EPI */
       2 USERTWA          CHAR(2000); /*PARA DATOS USUARIO          */

 /*   VALORES DEL CAMPO TIPUSRTWA   */

 DCL USRTWASUC CHAR(1) INIT('0');         /* TIPUSRTWA = SUCURSAL */
 DCL USRTWAMED CHAR(1) INIT('1');         /* TIPUSRTWA = MEDIADOR */
 DCL USRTWAVSI CHAR(1) INIT('2');         /* TIPUSRTWA = INFORMAT.*/
 DCL USRTWAPRO CHAR(1) INIT('3');         /* TIPUSRTWA = PROFESIO.*/
 DCL USRTWAMQS CHAR(1) INIT('4');         /* TIPUSRTWA = MQSERIES */
 DCL USRTWAMCC CHAR(1) INIT('5');         /* TIPUSRTWA = MCC      */

 /******************************************************************
 *    IDENTIFICACION COLAS TS CON NUEVA NOMENCLATURA               *
 *******************************************************************/
 DCL 1 $IDENT_COLA,
       2 $CUA_B    CHAR(3) INIT('B  '),
       2 $CUA_E    CHAR(3) INIT('E  '),
       2 $CUA_S    CHAR(3) INIT('S  '),
       2 $IMPRES   CHAR(3) INIT('I  '),
       2 $3270     CHAR(3) INIT('3  '),
       2 $TWA      CHAR(3) INIT('   '),
       2 $COM      CHAR(3) INIT(' 00'),
       2 $CLAUS_99 CHAR(3) INIT(' TT'),
       2 $ESTADIST CHAR(3) INIT('TTT'),
       2 $ERROR    CHAR(3) INIT('EC '),
       2 $GED      CHAR(3) INIT('GED'),
       2 $GRD      CHAR(3) INIT('GRD'),
       2 $MOD      CHAR(3) INIT('MOD'),
       2 $MENU     CHAR(3) INIT('M  '),
       2 $DSI600   CHAR(3) INIT('D  ');
 IDENT_COLA_TS:PROC(A) RETURNS (CHAR(8));
   DCL A CHAR(3);
   DCL B CHAR(8);
   IF   ID_TS_NUEVA
   THEN DO;
        SELECT (A);
          WHEN ($MENU)     B = IDENTIF_TS || 'M';
          WHEN ($CUA_B)    B = IDENTIF_TS || 'B';
          WHEN ($CUA_E)    B = IDENTIF_TS || 'E';
          WHEN ($CUA_S)    B = IDENTIF_TS || 'S';
          WHEN ($TWA)      B = IDENTIF_TS || 'W';
          WHEN ($COM)      B = IDENTIF_TS || '0';
          WHEN ($CLAUS_99) B = IDENTIF_TS || 'T';
          WHEN ($ESTADIST) B = IDENTIF_TS || 'X';
          WHEN ($IMPRES)   B = IDENTIF_TS || 'I';
          WHEN ($3270)     B = IDENTIF_TS || '3';
          WHEN ($GED)      B = IDENTIF_TS || 'G';
          WHEN ($GRD)      B = IDENTIF_TS || 'R';
          WHEN ($MOD)      B = IDENTIF_TS || 'N';
          WHEN ($ERROR)    B = IDENTIF_TS || '9';
          WHEN ($DSI600)   B = IDENTIF_TS || 'D';
          OTHER            B = IDENTIF_TS || '?';
        END;
        END;
   ELSE B = MATTWA || A || WSTWA;
   RETURN (B);
 END IDENT_COLA_TS;
 /********************************************************************
 *     FI INCLUDE ISTS011                                            *
 *********************************************************************/
