  /*-------------------------------------------------------*/
  /*     INICIO INCLUDE HIEST090                           */
  /*-------------------------------------------------------*/
  /*                                                       */
  /* ESTRUCTURA DE COMUNICACION CON LAS RUTINAS DE RAMOS   */
  /* ESTR90 (BATCH)  - EST090 (CICS)                       */
  /*                                                       */
  /*-------------------------------------------------------*/

 DCL 1 ESTRUCTURA UNAL,
       2 OPCIO                BIN FIXED (15),
       2 CODRET               BIN FIXED (15),
       2 IDIOMA               CHAR (3),
       2 NOMBRES_RAMOS        CHAR (1),
       2 INCOHERENCIA (50)    BIT  (1),
       2 COLUMNESTAULA,
         3 VIDAONOVIDA        CHAR   (1),
         3 RAMINTERN          CHAR   (2),
         3 NOMRAMINTERN       CHAR  (30),
         3 RAMCOMPTABLE       CHAR   (2),
         3 NOMRAMCOMPTABLE    CHAR  (30),
         3 RAMEXTERN          CHAR   (2),
         3 NOMRAMEXTERN       CHAR  (30),
         3 NOMRAMEXTREDUIT    CHAR  (10),
         3 CAPITALREASEGURO   CHAR   (1),
         3 YNICOR             CHAR   (1), /* NIVEL COMERCIALIZACION */
         3 AGRUP_NIV02        CHAR   (3),
         3 NOMRAMEST1         CHAR  (30),
         3 AGRUP_NIV03        CHAR   (3),
         3 YRCORP             CHAR   (1),
         3 CODIAUX            CHAR   (1),
         3 NOMRAMEST2         CHAR  (30),
         3 TIPO_CORPORATE     CHAR   (1),
         3 FILLER03           CHAR   (1),
         3 TARJETA_SANITARIA  CHAR   (1),
         3 CADUCIDAD          CHAR   (1),
         3 CANAL_CLIENTE      CHAR   (1),
         3 NOMAGRUP_NIV051    CHAR  (30),
         3 RAMOCSG            CHAR   (2),
         3 RAMODGS            CHAR   (2),
         3 ARBITRIOBOMBEROS   CHAR   (1),
         3 NOMAGRUP_NIV052    CHAR  (30),
         3 IND_FATCA          CHAR   (1),
         3 IND_PBC            CHAR   (1),
         3 REASEGURO          CHAR   (1),
         3 CARACTERISTICARAMO CHAR   (1),
         3 BASEDEDATOS        CHAR   (1),
         3 NOMAGRUP_NIV061    CHAR  (30),
         3 GRUPO              CHAR   (2),
         3 AGRUP_NIV04        CHAR   (3),
         3 NOMAGRUP_NIV062    CHAR  (30),
         3 FILLER07           CHAR   (2),
         3 RAMOIPS            CHAR   (2),
         3 PROCEDENCIARIESGO  CHAR   (1),
         3 AREAEMISION        CHAR   (2),
         3 OBS_FATCA          CHAR   (1),
         3 RAMO_GEB           CHAR   (1),
         3 FICO               CHAR   (1),
         3 AGRUP_NIV05        CHAR   (3),
         3 RAMOPRESUPUESTO    CHAR   (2),
         3 RAMOTIREA          PIC '9999',
         3 CIDA               CHAR   (2),
         3 TECNICAS           CHAR   (1),
         3 RACEPINT           CHAR   (1),
         3 GRUPOREMESA        PIC '99999',
         3 FILLER08           CHAR   (2),
         3 GRUPCOMP           CHAR   (2),
         3 RAMEST             CHAR   (3),
         3 LOPD               CHAR   (1),
         3 FILLER09           CHAR   (2),
         3 MICROLOB           CHAR   (6),
         3 TRAMGREU           CHAR   (1),
         3 RAMOCOMUN          PIC   '99',
         3 RAMOANUL           CHAR   (1),
         3 MACROLOB           CHAR   (6),
         3 RAMOTT             CHAR  (3),
         3 RAMOTTS            CHAR  (3),
         3 AGRUP_NIV06        CHAR  (3),
         3 FILLER10           CHAR  (2);

   ESTRUCTURA = '';

   DCL PTR_ESTRUCTURA POINTER;
   PTR_ESTRUCTURA = ADDR(ESTRUCTURA);


 DCL 1 ESTRUCTURA_TT_TTS UNAL BASED(ADDR(ESTRUCTURA)),
       2 FILLER48             CHAR(48),
       2 AGRUP_SIM            CHAR(2),
       2 NOMAGRUP_SIM         CHAR(30),
       2 FILLER44             CHAR(44),
       2 LOB                  CHAR(3),
       2 NOMRAMTT             CHAR(30),
       2 FILLER5              CHAR(5),
       2 NOMRAMTTS            CHAR(30),
       2 LOB_25               CHAR(3),
       2 FILLER02             CHAR(2),
       2 LIMITE_DT            FIXED(15),
       2 LIMITE_DD            FIXED(15),
       2 LIMITE_DG            FIXED(15),
       2 FILLER11             CHAR(11),
       2 F_SIN_GRAVE          FIXED(15),
       2 FILLER59             CHAR(59),
       2 AGRUP_TT             CHAR(3),
       2 NOMAGRUP_TT          CHAR(30),
       2 FILLER8              CHAR(8),
       2 LIMITE_CAP_REA       CHAR(1);

  /*-------------------------------------------------------*/
  /*     FIN INCLUDE HIEST090                              */
  /*-------------------------------------------------------*/
