###########################################################################
#                                                                         #
#      Date: Junio 1998                                                   #
#  ADPPT079: Lmites autorizado para el cliente                           #
###########################################################################

TRANSACCION ADPPT079 ENVIA 1024 RECIBE ? INDEXADO

ENVIA DELIMITANDO last

        CAMPO ident             1:29   Identificacin de la transaccin   X(29)

#                                   1:8   Cdigo de transaccin            X(8)
#                                   9:1   Blanco                           X(1)
#                                  10:4   HHMM                             9(4)
#                                  14:3   Nmero de secuencia              9(3)
#                                  17:1   Siempre [                        X(1)
#                                  18:2   Puesto                           9(2)
#                                  20:4   Aplicacin que hace la peticin  X(4)
#                                  24:1   Siempre ]                        X(1)
#                                  25:1   Fin de transaccin (1/0)         9(1)
#                                  26:4   Nmero de orden del segmento IMS 9(4)

        CAMPO tipo              30:2    Tipo                               9(2)
        CAMPO subtipo           32:2    Subtipo                            9(2)
        CAMPO version           34:2    Versin de aplicacin              9(2)
        CAMPO b_ofi             36:8    Banco CSB y oficina del terminal   9(8)
        CAMPO userid            44:8    Usuario                            X(8)
        CAMPO cod_idioma        52:2    idioma                             9(2)
#                                         10=Castellano

#                                               ----------------->>>>>    X(24)
#       A partir de aqu ir con separadores de final de campo

     # Cdigo de banco de trabajo
     NUMERICO cod_bancsb_w                   !:4:0
     # Cdigo de oficina de trabajo
     NUMERICO cod_cofici_w                    !:4:0
     # Cdigo de unidad de coste
     NUMERICO cod_ucostew                    !:4:0
     # Cdigo de cliente
     NUMERICO cod_cclien                     !:9:0
     # Cod. Contrapartida
     NUMERICO cod_contrapa                   !:4:0
     # Cdigo de Banco
     NUMERICO cod_bancsb                     !:4:0
     # Cdigo de producto
     NUMERICO cod_prodserv                   !:4:0
     # Cdigo de subproducto
     NUMERICO cod_subprodu                   !:4:0
     # Cdigo de tipo de sancin X(01)
     CAMPO cod_tsancion
     #
     # Cdigo de supervisin X(01)
     CAMPO cod_tsupervi
     # Ind. de vigencia X(01)
     CAMPO xsn_vigente
     # Ind. de tipo de intervencin X(01)
     CAMPO xsn_interv
     # Num. pgina solicitada
     NUMERICO qnu_pagina                     !:2:0

#                                               ----------------->>>>>    9(27)

RECIBE DELIMITANDO last

        CAMPO ctrans             1:8    Nombre de la transaccion
        CAMPO fin_trn           25:1    Fin de la transaccin
        CAMPO numseg            26:4    Numero de Orden del Segmento       X(29)
#
        CAMPO tipo              30:2    Tipo                               9(2)
        CAMPO subtipo           32:2    Subtipo                            9(2)
        CAMPO version           34:2    Versin de aplicacin              9(2)
        CAMPO b_ofi             36:8    Banco CSB y oficina del terminal   9(8)
        CAMPO userid            44:8    Usuario                            X(8)
        CAMPO cod_idioma        52:2    idioma                             9(2)
#                                         10=Castellano

        CAMPO cretor            54:4    Cdigo de retorno                  X(4)
#                                       "    " Ok
#                                        BE Error BD mensajes
#                                        MI Mensaje inexistente
#                                        DD Demasiadas rdenes de acotar
#                                           (mas los que se puedan dar)
        CAMPO mensaje           58:50   Mensaje                            X(50)
        TIPO  tip_datos        108:2    Tipo de salida de informacin      9(2)

#                                          00= Salida sin informacin
#                                          01= Salida con datos sin error
#                                          02= Salida con datos de error
#                                        --------------------------->>>   X(109)
        PARA TIPO 00
        PARA TIPO 01

#       A partir de aqu ir con separadores de final de campo

     # N de registros localizados
     NUMERICO qnu_registros                       !:4:0
     # Pgina solicitada
     NUMERICO qnu_pagina                          !:2:0
     # Total pags con datos
     NUMERICO qnu_totalpag                        !:2:0





REPITE
     # Cdigo de Banco
     NUMERICO cod_cbanco_l                        !:4:0
     # Cdigo de Ofici
     NUMERICO cod_cofici_l                        !:4:0
     # Cdigo de contrapartida
     NUMERICO cod_contrapa_l                      !:4:0
     # num. de folio
     NUMERICO num_folio_l                         !:14:0
     # Fecha de vto
     CAMPO fec_vencimi                            # X(10)
     # Lmite vigente del Folio
     NUMERICO  qty_importev                       !:15:2

     # Cdigo de moneda asociada al lmite        # X(03)
     CAMPO cod_divisa_l

     # disponible actual
     NUMERICO  qty_disponib                       !:15:2
     # X(01)
     CAMPO     xti_indicas1

     # Dispuesto sobre disponible
     NUMERICO  qty_dispuest                       !:15:2
     # X(01)
     CAMPO     xti_indicas2

     # cdigo de situacin/estado
     NUMERICO  cod_situacio                       !:4:0
     # Fecha de vigencia/ alta
     CAMPO fec_vigencia                           # X(10)

     # Cdigo de producto
     NUMERICO cod_prodserv_l                      !:4:0
     # Cdigo de subproducto
     NUMERICO cod_subprodu_l                      !:4:0
     # Descripcin de producto
     CAMPO    des_producto_l
     # Cdigo de categoria
     NUMERICO cod_categori                        !:4:0
     # Cdigo de acontecimiento
     CAMPO    cod_aconteci_l
     # Tipo de relacin cuenta/cliente
     CAMPO    cod_ctippe
     # Nmero de orden del titular
     NUMERICO num_qnumor                          !:2:0
     # Cdigo de oferta
     NUMERICO cod_oferta                          !:9:0
     # Descripcin de la oferta
     CAMPO des_oferta
     # Indicador campaa/convenio
     CAMPO    xti_oferta
     # Indicador tipo de campaa
     CAMPO    xti_camfin
     # Indicador cliente
     CAMPO    xti_dirigi
     # Indicador campaa concedida
     CAMPO    xti_camcoc
     # fecha de solicitud
     CAMPO    fec_solicitu
     # Descripcin de la situacion
     CAMPO    des_situacio

FINREPITE

FINTIPO
###########################################################
#	Date: Mayo de 1998									#
#  ADPPT091: ACTUALIZACION DE UN AUTORIZADO DE CUENTA TARJETA		#
###########################################################

TRANSACCION ADPPT091 ENVIA 10240 RECIBE ? INDEXADO

ENVIA DELIMITANDO last

        CAMPO ident             1:29   Identificacin de la transaccin   X(29)

#                                   1:8   Cdigo de transaccin            X(8)
#                                   9:1   Blanco                           X(1)
#                                  10:4   HHMM                             9(4)
#                                  14:3   Nmero de secuencia              9(3)
#                                  17:1   Siempre [                        X(1)
#                                  18:2   Puesto                           9(2)
#                                  20:4   Aplicacin que hace la peticin  X(4)
#                                  24:1   Siempre ]                        X(1)
#                                  25:1   Fin de transaccin (1/0)         9(1)
#                                  26:4   Nmero de orden del segmento IMS 9(4)
        CAMPO tipo              30:2    Tipo                               9(2)
        CAMPO subtipo           32:2    Subtipo                            9(2)
        CAMPO version           34:2    Versin de aplicacin              9(2)
        CAMPO b_ofi             36:8    Banco CSB y oficina del terminal   9(8)
        CAMPO userid            44:8    Usuario                            X(8)
        CAMPO cod_idioma        52:2    idioma                             9(2)
#                                         10=Castellano

#                                               ----------------->>>>>    X(24)
#       A partir de aqu ir con separadores de final de campo


	#	
	# Identificacin de Cuenta Tarjeta
	#

	# Banco. 9(04)
	CAMPO cod_cbanco
	# Producto. 9(04)
	CAMPO cod_cprodu
	# Subproducto. 9(04)
	CAMPO cod_csubpro
	# Oficina. 9(04)
	CAMPO cod_cofici
	# Contrapartida. 9(04)
	CAMPO cod_ccontr
	# Folio. 9(14)
	CAMPO cod_cfolio
	# Oferta/Campaa. 9(09)
	CAMPO cod_oferta

	# Nombre de empresa en plstico. X(27)
	CAMPO des_nomreduc1
	# BIN. X(06)
	CAMPO cod_bin
	# Divisa de la cuenta. X(03)
	CAMPO cod_diisoalf
	# Divisa de la tarifa. X(03)
	CAMPO cod_divtar
	# Colectivo. 9(04)
	CAMPO cod_colecti
	# Situacin. 9(04)
	CAMPO cod_situacio1
	# Accin. X(01)
	CAMPO xti_accion1


	#	
	# Datos del autorizado
	#

		# Identificador del cliente. 9(09)
		CAMPO cod_cclien		
		# Dependiente. 9(09)
		CAMPO cod_cdepen
		# Nmero de PAN. X(19)
		CAMPO cod_pan
		# Solicitud de plstico. X(01). (S/N)
		CAMPO xsn_plastic
		# Indicador empresa plstico. X(01). (S/N)
		CAMPO xsn_empplas
		# Nombre plstico. X(27)
		CAMPO des_nomreduc
		# Banco envo. 9(04)
		CAMPO cod_banenvi
		# Oficina envo. 9(04)
		CAMPO cod_ofienvi
		# Departamento. X(10)
		CAMPO cod_departam
		# Datos propios. X(20)
		CAMPO des_datospro
		# Situacin. 9(04)
		CAMPO cod_situacio
		# Accin. X(01)
		CAMPO xti_accion

	#	
	# Domicilio de Correspondencia
	#
		# Indicador retener correspondencia. X(01)
	        CAMPO cod_retcor
		# Indicador unificar correspondencia. X(01)
	        CAMPO xsn_agrupa
		# Idioma. 9(04)
	        CAMPO idioma
		# Periodicidad. 9(04)
		CAMPO qnu_periodi
		# Tipo periodicidad. X(01)
		CAMPO xsn_periodi

		# Domicilio postal de la cuenta/contrato.-
		# Pas. 9(04)
	        CAMPO cod_cpais
		# Provincia. 9(04)
	        CAMPO cod_cprovi
		# Plaza. X(28)
	        CAMPO des_plaza
		# Tipo de va. X(02)
		CAMPO cod_tvia
		# Va. X(36)
		CAMPO des_via
		# Cdigo Postal. 9(05)
		CAMPO cod_cpostal
	
		# Descripcin 1.-
		# Nombre. X(60)
		CAMPO des_nom_denvi1
		# Primer apellido. X(60)
		CAMPO des_ap1_denvi1
		# Segundo apellido. X(60)
		CAMPO des_ap2_denvi1

		# Descripcin 2.-
		# Nombre. X(60)
	        CAMPO des_nom_denvi2
		# Primer apellido. X(60)
	        CAMPO des_ap1_denvi2
		# Segundo apellido. X(60)
	        CAMPO des_ap2_denvi2

	#	
	# Condiciones Operativas
	#

	REPITE
		# Cdigo de concepto. 9(04)
		CAMPO cod_concepto
		# Indicador de exceptuabilidad. X(01)
		CAMPO xsn_exceptua
		# Cdigo de elemento. 9(04)
		CAMPO cod_elemento
		# Clase de elemento. 9(04)
		CAMPO cod_claselem
		# Signo para los elementos numricos. (P/N). X(01)
		CAMPO xti_signo
		# Valor importe. 
		NUMERICO cod_valornum		!:15:2
		# Valor alfanumrico. X(08)
		CAMPO cod_valoralf
		# Fecha. AAAA-MM-DD. X(10)
		CAMPO cod_valorfec
		# Valor porcentaje.
		NUMERICO cod_valorpor		!:12:8
	FINREPITE


	#	
	# Cuentas Relacionadas
	#

	REPITE
		# Accin. 
		NUMERICO crecta !:4:0
		# Concepto.
		NUMERICO concepto !:4:0
		# Tipo de movimiento. 
		NUMERICO tmovimie !:4:0
	
		# Contrato relacionado.-
		# Banco. 
		NUMERICO bancsb !:4:0
		# Oficina. 
		NUMERICO cofici !:4:0
		# Contrapartida. 9(04)
		NUMERICO ccontr !:4:0
		# Folio. 
		NUMERICO cfolio !:14:0
		# Dependiente.
		NUMERICO cdepen !:9:0
	
		# Secuencia. 
		NUMERICO secu !:4:0
		# Porcentaje1. 
		NUMERICO porvin1 !:12:8
		# Porcentaje2. 
		NUMERICO porvin2 !:12:8
		# Identificador fiscal (cta. ajena). X(10)
	        CAMPO cdnitr	
		# Titular (cta. ajena). X(36)
		CAMPO nomtit
		# Id. accin. X(01)
		CAMPO xti_accion
	FINREPITE


RECIBE DELIMITANDO last

        CAMPO ctrans             1:8    Nombre de la transaccion
        CAMPO fin_trn             25:1    Fin de la transaccin
        CAMPO numseg            26:4    Numero de Orden del Segmento      X(29)
#
        CAMPO tipo              30:2    Tipo                               9(2)
        CAMPO subtipo           32:2    Subtipo                            9(2)
        CAMPO version           34:2    Versin de aplicacin              9(2)
        CAMPO b_ofi             36:8    Banco CSB y oficina del terminal   9(8)
        CAMPO userid            44:8    Usuario                            X(8)
        CAMPO cod_idioma        52:2    idioma                             9(2)
#                                         10=Castellano

        CAMPO cretor            54:4    Cdigo de retorno                  X(4)
#                                       "    " Ok
#                                        BE Error BD mensajes
#                                        MI Mensaje inexistente
#                                        DD Demasiadas rdenes de acotar
#                                           (mas los que se puedan dar)
        CAMPO mensaje           58:50   Mensaje                           X(50)
        TIPO  tip_datos        108:2    Tipo de salida de informacin      9(2)
#                                          00= Salida sin informacin
#                                          01= Salida con datos sin error
#                                        --------------------------->>>   X(109)
        PARA TIPO 00

        PARA TIPO 01


	# Identificador del cliente. 9(09)
	CAMPO cod_cclien_s		
	# Nmero de PAN. X(19)
	CAMPO cod_pan_s		
	# Dependiente. 9(09)
	CAMPO cod_cdepen_s
	# Fecha de caducidad. X(10)
	CAMPO fec_caductar_s

	REPITE
		# Bloque de rechazo. 9(01)
		CAMPO bloq_rechazo		
		# Cdigo de rechazo. 9(04)
		CAMPO cod_rechazo		
		# Motivo de rechazo. X(60)
		CAMPO des_rechazo
	FINREPITE


        FINTIPO
###########################################################
#	Date: Agosto de 1998									#
#  ADPPT092: ACTUALIZACION DE UN AUTORIZADO DE CUENTA TARJETA (ADMON.)	#
###########################################################

TRANSACCION ADPPT092 ENVIA 10240 RECIBE ? INDEXADO

ENVIA DELIMITANDO last

        CAMPO ident             1:29   Identificacin de la transaccin   X(29)

#                                   1:8   Cdigo de transaccin            X(8)
#                                   9:1   Blanco                           X(1)
#                                  10:4   HHMM                             9(4)
#                                  14:3   Nmero de secuencia              9(3)
#                                  17:1   Siempre [                        X(1)
#                                  18:2   Puesto                           9(2)
#                                  20:4   Aplicacin que hace la peticin  X(4)
#                                  24:1   Siempre ]                        X(1)
#                                  25:1   Fin de transaccin (1/0)         9(1)
#                                  26:4   Nmero de orden del segmento IMS 9(4)
        CAMPO tipo              30:2    Tipo                               9(2)
        CAMPO subtipo           32:2    Subtipo                            9(2)
        CAMPO version           34:2    Versin de aplicacin              9(2)
        CAMPO b_ofi             36:8    Banco CSB y oficina del terminal   9(8)
        CAMPO userid            44:8    Usuario                            X(8)
        CAMPO cod_idioma        52:2    idioma                             9(2)
#                                         10=Castellano

#                                               ----------------->>>>>    X(24)
#       A partir de aqu ir con separadores de final de campo


	#	
	# Identificacin de Cuenta Tarjeta
	#

	# Banco. 9(04)
	CAMPO cod_cbanco
	# Producto. 9(04)
	CAMPO cod_cprodu
	# Subproducto. 9(04)
	CAMPO cod_csubpro
	# Oficina. 9(04)
	CAMPO cod_cofici
	# Contrapartida. 9(04)
	CAMPO cod_ccontr
	# Folio. 9(14)
	CAMPO cod_cfolio
	# Oferta/Campaa. 9(09)
	CAMPO cod_oferta

	# Nombre de empresa en plstico. X(27)
	CAMPO des_nomreduc1

	#	
	# Datos del autorizado
	#
		# Identificador del cliente. 9(09)
		CAMPO cod_cclien		
		# Dependiente. 9(09)
		CAMPO cod_cdepen
		# Nmero de PAN. X(19)
		CAMPO cod_pan
		# Solicitud de plstico. X(01). (S/N)
		CAMPO xsn_plastic
		# Indicador empresa plstico. X(01). (S/N)
		CAMPO xsn_empplas
		# Nombre plstico. X(27)
		CAMPO des_nomreduc
		# Banco envo. 9(04)
		CAMPO cod_banenvi
		# Oficina envo. 9(04)
		CAMPO cod_ofienvi
		# Departamento. X(10)
		CAMPO cod_departam
		# Datos propios. X(20)
		CAMPO des_datospro

	#	
	# Condiciones Operativas
	#

	REPITE
		# Cdigo de concepto. 9(04)
		CAMPO cod_concepto
		# Indicador de exceptuabilidad. X(01)
		CAMPO xsn_exceptua
		# Cdigo de elemento. 9(04)
		CAMPO cod_elemento
		# Clase de elemento. 9(04)
		CAMPO cod_claselem
		# Signo para los elementos numricos. (P/N). X(01)
		CAMPO xti_signo
		# Valor importe. 
		NUMERICO cod_valornum		!:15:2
		# Valor alfanumrico. X(08)
		CAMPO cod_valoralf
		# Fecha. AAAA-MM-DD. X(10)
		CAMPO cod_valorfec
		# Valor porcentaje.
		NUMERICO cod_valorpor		!:12:8
	FINREPITE


RECIBE DELIMITANDO last

        CAMPO ctrans             1:8    Nombre de la transaccion
        CAMPO fin_trn             25:1    Fin de la transaccin
        CAMPO numseg            26:4    Numero de Orden del Segmento      X(29)
#
        CAMPO tipo              30:2    Tipo                               9(2)
        CAMPO subtipo           32:2    Subtipo                            9(2)
        CAMPO version           34:2    Versin de aplicacin              9(2)
        CAMPO b_ofi             36:8    Banco CSB y oficina del terminal   9(8)
        CAMPO userid            44:8    Usuario                            X(8)
        CAMPO cod_idioma        52:2    idioma                             9(2)
#                                         10=Castellano

        CAMPO cretor            54:4    Cdigo de retorno                  X(4)
#                                       "    " Ok
#                                        BE Error BD mensajes
#                                        MI Mensaje inexistente
#                                        DD Demasiadas rdenes de acotar
#                                           (mas los que se puedan dar)
        CAMPO mensaje           58:50   Mensaje                           X(50)
        TIPO  tip_datos        108:2    Tipo de salida de informacin      9(2)
#                                          00= Salida sin informacin
#                                          01= Salida con datos sin error
#                                        --------------------------->>>   X(109)
        PARA TIPO 00

        PARA TIPO 01

        FINTIPO
###########################################################################
# Creacin:    24 de Septiembre de 1998                                   #
###########################################################################
#  ADPPT094: Validacion y alta de un Comercio                             #
###########################################################################

TRANSACCION ADPPT094 ENVIA 250 RECIBE ? INDEXADO

ENVIA DELIMITANDO last

        CAMPO ident             1:29   Identificacin de la transaccin   X(29)

#                                   1:8   Cdigo de transaccin            X(8)
#                                   9:1   Blanco                           X(1)
#                                  10:4   HHMM                             9(4)
#                                  14:3   Nmero de secuencia              9(3)
#                                  17:1   Siempre [                        X(1)
#                                  18:2   Puesto                           9(2)
#                                  20:4   Aplicacin que hace la peticin  X(4)
#                                  24:1   Siempre ]                        X(1)
#                                  25:1   Fin de transaccin (1/0)         9(1)
#                                  26:4   Nmero de orden del segmento IMS 9(4)

        CAMPO tipo              30:2    Tipo                               9(2)
        CAMPO subtipo           32:2    Subtipo                            9(2)
        CAMPO version           34:2    Versin de aplicacin              9(2)
        CAMPO b_ofi             36:8    Banco CSB y oficina del terminal   9(8)
        CAMPO userid            44:8    Usuario                            X(8)
        CAMPO cod_idioma        52:2    idioma                             9(2)
#                                         10=Castellano

#                                               ----------------->>>>>    X(24)
#       A partir de aqu ir con separadores de final de campo

        CAMPO cod_cclien        	# Cdigo del cliente 		9(09)
        CAMPO cod_comercio      	# Cdigo del comercio		9(09)
        CAMPO des_comercio		# Descripcion      		X(30)
        CAMPO cod_ramo    		# Cdigo de ramo                9(04)
        CAMPO des_comdomic		# Domicilio             	X(50)
        CAMPO qnu_comdomic		# Numero        		9(04)
        CAMPO des_comporta		# Portal			X(03)
        CAMPO des_comescal		# Escalera			X(02)
        CAMPO des_compiso		# piso				X(02)
        CAMPO des_compuert		# puerta			X(01)
        CAMPO cod_comcpost		# cod. postal			9(05)
        CAMPO des_comlocal		# Plaza				X(30)
        CAMPO cod_comcpais		# Codigo de pais		9(04)
        CAMPO cod_comtelef		# Telefono			9(14)
        CAMPO cod_comtelex		# Telex   			9(14)


RECIBE DELIMITANDO last

        CAMPO ctrans             1:8    Nombre de la transaccion
        CAMPO fin_trn           25:1    Fin de la transaccin
        CAMPO numseg            26:4    Numero de Orden del Segmento      X(29)
#
        CAMPO tipo              30:2    Tipo                               9(2)
        CAMPO subtipo           32:2    Subtipo                            9(2)
        CAMPO version           34:2    Versin de aplicacin              9(2)
        CAMPO b_ofi             36:8    Banco CSB y oficina del terminal   9(8)
        CAMPO userid            44:8    Usuario                            X(8)
        CAMPO cod_idioma        52:2    idioma                             9(2)
#                                         10=Castellano

        CAMPO cretor            54:4    Cdigo de retorno                  X(4)
#                                       "    " Ok
#                                        BE Error BD mensajes
#                                        MI Mensaje inexistente
#                                        DD Demasiadas rdenes de acotar
#                                           (mas los que se puedan dar)
        CAMPO mensaje           58:50   Mensaje                           X(50)
        TIPO  tip_datos        108:2    Tipo de salida de informacin      9(2)
#                                          00= Salida sin informacin
#                                          01= Salida con datos sin error
#                                        --------------------------->>>   X(109
#       A partir de aqu ir con separadores de final de campo

    PARA TIPO 00

    PARA TIPO 01
#                                                                         #
         CAMPO cod_comercio      	# Cdigo del comercio		9(09)
         CAMPO des_comercio		# Descripcion      		X(30)
         CAMPO cod_ramo    		# Cdigo de ramo                9(04)
         CAMPO des_comdomic		# Domicilio             	X(50)
         CAMPO qnu_comdomic		# Numero        		9(04)
	 CAMPO des_comporta		# Portal			X(03)
	 CAMPO des_comescal		# Escalera			X(02)
	 CAMPO des_compiso		# piso				X(02)
	 CAMPO des_compuert		# puerta			X(01)
	 CAMPO cod_comcpost		# cod. postal			9(05)
	 CAMPO des_comlocal		# Plaza				X(30)
	 CAMPO cod_comcpais		# Codigo de pais		9(04)
	 CAMPO cod_comtelef		# Telefono			9(14)
	 CAMPO cod_comtelex		# Telex   			9(14)
	 CAMPO cod_comsitua		# Situacion comercial		X(02)
 
    FINTIPO
###########################################################################
###########################################################
#	Date: Septiembre de 1998								#
#  ADPPT101: CONSULTA DE AUTORIZADOS DE TARJETAS				#
###########################################################

TRANSACCION ADPPT101 ENVIA 10240 RECIBE ? INDEXADO

ENVIA DELIMITANDO last

        CAMPO ident             1:29   Identificacin de la transaccin   X(29)

#                                   1:8   Cdigo de transaccin            X(8)
#                                   9:1   Blanco                           X(1)
#                                  10:4   HHMM                             9(4)
#                                  14:3   Nmero de secuencia              9(3)
#                                  17:1   Siempre [                        X(1)
#                                  18:2   Puesto                           9(2)
#                                  20:4   Aplicacin que hace la peticin  X(4)
#                                  24:1   Siempre ]                        X(1)
#                                  25:1   Fin de transaccin (1/0)         9(1)
#                                  26:4   Nmero de orden del segmento IMS 9(4)
        CAMPO tipo              30:2    Tipo                               9(2)
        CAMPO subtipo           32:2    Subtipo                            9(2)
        CAMPO version           34:2    Versin de aplicacin              9(2)
        CAMPO b_ofi             36:8    Banco CSB y oficina del terminal   9(8)
        CAMPO userid            44:8    Usuario                            X(8)
        CAMPO cod_idioma        52:2    idioma                             9(2)
#                                         10=Castellano

#                                               ----------------->>>>>    X(24)
#       A partir de aqu ir con separadores de final de campo


	#	
	# Identificacin de Cuenta Tarjeta
	#
	# Banco 9(04)
	CAMPO cod_cbanco
	# Oficina. 9(04)
	CAMPO cod_cofici
	# Contrapartida. 9(04)
	CAMPO cod_ccontr
	# Folio. 9(14)
	CAMPO cod_cfolio
	# Dependiente. 9(09)
	CAMPO cod_cdepen

	# Cdigo PAN. X(19)
	CAMPO cod_pan
	# Pgina solicitada. 9(02)
	CAMPO qnu_pagina
	# Accin. X(01)
	CAMPO xti_accion


RECIBE DELIMITANDO last

        CAMPO ctrans             1:8    Nombre de la transaccion
        CAMPO fin_trn             25:1    Fin de la transaccin
        CAMPO numseg            26:4    Numero de Orden del Segmento      X(29)
#
        CAMPO tipo              30:2    Tipo                               9(2)
        CAMPO subtipo           32:2    Subtipo                            9(2)
        CAMPO version           34:2    Versin de aplicacin              9(2)
        CAMPO b_ofi             36:8    Banco CSB y oficina del terminal   9(8)
        CAMPO userid            44:8    Usuario                            X(8)
        CAMPO cod_idioma        52:2    idioma                             9(2)
#                                         10=Castellano

        CAMPO cretor            54:4    Cdigo de retorno                  X(4)
#                                       "    " Ok
#                                        BE Error BD mensajes
#                                        MI Mensaje inexistente
#                                        DD Demasiadas rdenes de acotar
#                                           (mas los que se puedan dar)
        CAMPO mensaje           58:50   Mensaje                           X(50)
        TIPO  tip_datos        108:2    Tipo de salida de informacin      9(2)
#                                          00= Salida sin informacin
#                                          01= Salida con datos sin error
#                                        --------------------------->>>   X(109)
        PARA TIPO 00

        PARA TIPO 01


	# Indicador de ms informacin. (S/N/X=Caso especial:Titular no modificable). X(01)
	CAMPO xsn_masinfo


	#	
	# Identificacin de Cuenta Tarjeta (Para consultas por PAN).
	#
	# Banco 9(04)
	CAMPO cod_cbanco
	# Oficina. 9(04)
	CAMPO cod_cofici
	# Contrapartida. 9(04)
	CAMPO cod_ccontr
	# Folio. 9(14)
	CAMPO cod_cfolio
	# Dependiente. 9(09)
	CAMPO cod_cdepen

	# Producto. 9(04)
	CAMPO cod_cprodu
	# Subproducto. 9(04)
	CAMPO cod_csubpro
	# Oferta/Campaa. 9(09)
	CAMPO cod_oferta
	# Tipo de Oferta. X(01)
	CAMPO xsn_tipofer
	# Finalista. X(01)
	CAMPO xsn_finalis	
	# Colectivo. 9(04)
	CAMPO cod_colecti
	# Nombre plstico empresa. X(27)
	CAMPO des_nomreduc
	# DNI/CIF. X(10)
	CAMPO cod_cdnitr
	# Nombre. X(60)
	CAMPO des_nombre
	# Divisa de contrato. X(03)
	CAMPO cod_diisoalf
	# Divisa de tarifa. X(03)
	CAMPO cod_divtar
	# Tratamiento. X(01). (E=Empresa/P=Particular)
	CAMPO xti_tratami
	# Situacin. 9(04)
	CAMPO cod_situacio
	# Acceso a Administracin de Cuenta. X(01)
	CAMPO xsn_accescta

	#	
	# Partcipes de la cuenta/contrato
	#
	REPITE
		# Identificador del cliente. 9(09)
		CAMPO cod_cclien1		
		# Tipo de partcipe. X(03)
		CAMPO cod_ctippe1
		# Nombre. X(60)
		CAMPO des_nombre1
	FINREPITE

	#	
	# Autorizados de la tarjeta
	#
	REPITE
		# Nmero de PAN. X(19)
		CAMPO cod_pan
		# Identificador del cliente. 9(09)
		CAMPO cod_cclien		
		# Dependiente. 9(09)
		CAMPO cod_cdepen
		# Fecha de caducidad. X(10)
		CAMPO fec_caductar
		# Cdigo de bloqueo. X(01)
		CAMPO cod_bloqueo
		# Nombre del cliente. X(60)
		CAMPO des_nombre
		# Solicitud de plstico. X(01). (S/N)
		CAMPO xsn_plastic
		# Nombre plstico. X(27)
		CAMPO des_nomreduc
		# Banco envo. 9(04)
		CAMPO cod_banenvi
		# Oficina envo. 9(04)
		CAMPO cod_ofienvi
		# Indicador empresa plstico. X(01). (S/N)
		CAMPO xsn_empplas
		# Departamento. X(10)
		CAMPO cod_departam
		# Datos propios. X(20)
		CAMPO des_datospro
		# Situacin. 9(04)
		CAMPO cod_situacio
	FINREPITE


        FINTIPO
###########################################################################
#      Date: 24 de Julio de 1998                                          #
#  ADPPT107: Impresion de Listas de Propuestas                            #
###########################################################################

TRANSACCION ADPPT107 ENVIA 125 RECIBE ?

ENVIA DELIMITANDO last

        CAMPO ident             1:29   Identificacin de la transaccin   X(29)

#                                   1:8   Cdigo de transaccin            X(8)
#                                   9:1   Blanco                           X(1)
#                                  10:4   HHMM                             9(4)
#                                  14:3   Nmero de secuencia              9(3)
#                                  17:1   Siempre [                        X(1)
#                                  18:2   Puesto                           9(2)
#                                  20:4   Aplicacin que hace la peticin  X(4)
#                                  24:1   Siempre ]                        X(1)
#                                  25:1   Fin de transaccin (1/0)         9(1)
#                                  26:4   Nmero de orden del segmento IMS 9(4)

        CAMPO tipo              30:2    Tipo                               9(2)
        CAMPO subtipo           32:2    Subtipo                            9(2)
        CAMPO version           34:2    Versin de aplicacin              9(2)
        CAMPO b_ofi             36:8    Banco CSB y oficina del terminal   9(8)
        CAMPO userid            44:8    Usuario                            X(8)
        CAMPO cod_idioma        52:2    idioma                             9(2)
#                                         10=Castellano

#                                               ----------------->>>>>    X(24)
#       A partir de aqu ir con separadores de final de campo

        CAMPO cod_tunidad       #       Tipo de Unidad                    X(1)
#                                       T="Territorial/Regional/Zona".
#                                       H="Centro Hipotecario".
#                                       M="Centro de mark Sancionador (POSA/ FINANZA".

        CAMPO cod_bancow        #        Banco de Trabajo                 9(4)
        CAMPO cod_oficiw        #        Oficina de Trabajo               9(4)
        CAMPO cod_ucostew       #        Cod. unidad de coste             9(4) 
        CAMPO cod_tacceso       #        Tipo de acceso                   X(1)
#                                        "E"= Propuestas enviadas
#                                        "R"= Propuestas recibidas
        CAMPO cod_selecdat      #       Tipo de seleccion de datos        X(1)
#					A = Opcin por defecto.
#					    Si Recibidas en los 2 ult. dias.
#					    Si Enviadas Sancionadas en la ultima
#					    semana.
#					B= Ident Propuesta
#					C= Oficina de Riesgo.
#					D Fecha de Recepcin(si Reci. ) /
#                                                  sancin (si Enviadas).
#                                       E= Marcar periodo en dias
#                                           ( Si recibidas _ Recib. en el periodo marcado)
#                                           ( Si enviadas _ Sancionadas. en el periodo marcado)
#                                       F= Marcar periodo mes/ao 
#					G= Todas las recibidas 
#                                       H= Identificativo de colaborador
        CAMPO cod_emplesan      #       Empleado sancionador              X(8)
#       Si Opcion b)
        CAMPO cod_oficictb      #       Cdigo de Oficina                 9(4)
        CAMPO cod_contrapa      #       Contrapartida                     9(4)
        CAMPO cod_folio         #       No. de folio                      9(14)
#       Si Opcion c) Cod dfe Oficina.
        CAMPO cod_oficirie      #       Cdigo de Oficina  de Riesgo      9(4)
#       Si Opcin d)
        CAMPO fec_recesanc      #        Fecha de recepcin/Sancin       X(10)
#       Si Opcin e) 
        CAMPO qty_plazodia      #       PLazo en dias de recepcin/sancion 9(2)
#       Si Opcin f)
        CAMPO  cod_mesrs        #       Mes de recepcin / sancin        9(2)
        CAMPO  fec_annors       #       Ao de recepcion /sancin         9(4)
#      Si la opcion es h (colaborador) = a la opcion b
	CAMPO qnu_pagsol        #        Nmero de pgina solicitada      9(2)
	CAMPO qnu_paginaf       #        Nmero de pgina final           9(2)
	CAMPO cod_selecimp      #                                         X(1)


RECIBE DELIMITANDO last

        CAMPO ctrans             1:8    Nombre de la transaccion
        CAMPO fin_trn           25:1    Fin de la transaccin
        CAMPO numseg            26:4    Numero de Orden del Segmento      X(29)
#
        CAMPO tipo              30:2    Tipo                               9(2)
        CAMPO subtipo           32:2    Subtipo                            9(2)
        CAMPO version           34:2    Versin de aplicacin              9(2)
        CAMPO b_ofi             36:8    Banco CSB y oficina del terminal   9(8)
        CAMPO userid            44:8    Usuario                            X(8)
        CAMPO cod_idioma        52:2    idioma                             9(2)
#                                         10=Castellano

        CAMPO cretor            54:4    Cdigo de retorno                  X(4)
#                                       "    " Ok
#                                        BE Error BD mensajes
#                                        MI Mensaje inexistente
#                                        DD Demasiadas rdenes de acotar
#                                           (mas los que se puedan dar)
        CAMPO mensaje           58:50   Mensaje                           X(50)

        TIPO  tip_datos        108:2    Tipo de salida de informacin      9(2)
#                                          00= Salida sin informacin
#                                          01= Salida con datos sin error
#                                          02= Salida con datos de error
#                                        --------------------------->>>  X(109)
#       A partir de aqu ir con separadores de final de campo
        PARA TIPO 00
        
        FINTIPO
###########################################################################
#      Date: 30 de Septiembre de 1998                                     #
#  ADPPT109: Impresion de Listas de Propuestas                            #
###########################################################################

TRANSACCION ADPPT109 ENVIA 1024 RECIBE ?

ENVIA DELIMITANDO last

        CAMPO ident             1:29   Identificacin de la transaccin   X(29)

#                                   1:8   Cdigo de transaccin            X(8)
#                                   9:1   Blanco                           X(1)
#                                  10:4   HHMM                             9(4)
#                                  14:3   Nmero de secuencia              9(3)
#                                  17:1   Siempre [                        X(1)
#                                  18:2   Puesto                           9(2)
#                                  20:4   Aplicacin que hace la peticin  X(4)
#                                  24:1   Siempre ]                        X(1)
#                                  25:1   Fin de transaccin (1/0)         9(1)
#                                  26:4   Nmero de orden del segmento IMS 9(4)

        CAMPO tipo              30:2    Tipo                               9(2)
        CAMPO subtipo           32:2    Subtipo                            9(2)
        CAMPO version           34:2    Versin de aplicacin              9(2)
        CAMPO b_ofi             36:8    Banco CSB y oficina del terminal   9(8)
        CAMPO userid            44:8    Usuario                            X(8)
        CAMPO cod_idioma        52:2    idioma                             9(2)
#                                         10=Castellano

#                                               ----------------->>>>>    X(24)
#       A partir de aqu ir con separadores de final de campo

       CAMPO num_occur         #       Num. de ocurrencias                9(4)
       REPITE
          CAMPO cod_cbanco      #        Banco de Trabajo                 9(4)
          CAMPO cod_cofici      #        Oficina de Trabajo               9(4)
          CAMPO cod_ccontr      #        Contrapartida                    9(4)
          CAMPO cod_cfolio      #        Num de Folio                     9(10)
          CAMPO cod_cdepen      #                                         9(9)
          CAMPO cod_aconteci    #        Cod. acontecimiento              9(4)
       FINREPITE


RECIBE DELIMITANDO last

        CAMPO ctrans             1:8    Nombre de la transaccion
        CAMPO fin_trn           25:1    Fin de la transaccin
        CAMPO numseg            26:4    Numero de Orden del Segmento      X(29)
#
        CAMPO tipo              30:2    Tipo                               9(2)
        CAMPO subtipo           32:2    Subtipo                            9(2)
        CAMPO version           34:2    Versin de aplicacin              9(2)
        CAMPO b_ofi             36:8    Banco CSB y oficina del terminal   9(8)
        CAMPO userid            44:8    Usuario                            X(8)
        CAMPO cod_idioma        52:2    idioma                             9(2)
#                                         10=Castellano

        CAMPO cretor            54:4    Cdigo de retorno                  X(4)
#                                       "    " Ok
#                                        BE Error BD mensajes
#                                        MI Mensaje inexistente
#                                        DD Demasiadas rdenes de acotar
#                                           (mas los que se puedan dar)
        CAMPO mensaje           58:50   Mensaje                           X(50)

        TIPO  tip_datos        108:2    Tipo de salida de informacin      9(2)
#                                          00= Salida sin informacin
#                                          01= Salida con datos sin error
#                                          02= Salida con datos de error
#                                        --------------------------->>>  X(109)
#       A partir de aqu ir con separadores de final de campo
        PARA TIPO 00

        FINTIPO
###########################################################################
#      Date: 1 de Septiembre de 19998                                #
#  ADPPT111: Impresin de propuestas por seleccin     #
#                                                                         #
###########################################################################

TRANSACCION ADPPT111 ENVIA 1024 RECIBE ?

ENVIA DELIMITANDO last

        CAMPO ident             1:29   Identificacin de la transaccin   X(29)

#                                   1:8   Cdigo de transaccin            X(8)
#                                   9:1   Blanco                           X(1)
#                                  10:4   HHMM                             9(4)
#                                  14:3   Nmero de secuencia              9(3)
#                                  17:1   Siempre [                        X(1)
#                                  18:2   Puesto                           9(2)
#                                  20:4   Aplicacin que hace la peticin  X(4)
#                                  24:1   Siempre ]                        X(1)
#                                  25:1   Fin de transaccin (1/0)         9(1)
#                                  26:4   Nmero de orden del segmento IMS 9(4)

        CAMPO tipo              30:2    Tipo                               9(2)
        CAMPO subtipo           32:2    Subtipo                            9(2)
        CAMPO version           34:2    Versin de aplicacin              9(2)
        CAMPO b_ofi             36:8    Banco CSB y oficina del terminal   9(8)
        CAMPO userid            44:8    Usuario                            X(8)
        CAMPO cod_idioma        52:2    idioma                             9(2)
#                                         10=Castellano

#                                               ----------------->>>>>    X(24)
#       A partir de aqu ir con separadores de final de campo

        # Cdigo de Banco 9(4)
        CAMPO cod_banco
        # Cdigo de Oficina de Trabajo      9(4)
        CAMPO cod_oficiw
        # Cdigo de Oficina                  9(4)
         CAMPO cod_oficictb
        # Ao de la propuesta                9(4)
        CAMPO num_anopropu
        #  Mes del ao                       9(2)
        CAMPO num_mes
        # Trimestre del ao                  9(2)
        CAMPO num_trimestr
                        # 0=si no marcan nada
                        # 1=primero,2=segundo,3=tercero,4=cuarto
        # Ffecha de supervision              X(10)
        CAMPO fec_sancion
        #   Fecha hasta-Opcion tramos      X(10)
        CAMPO fec_hasta
        #      Nmero de propuesta          9(10)
        CAMPO num_propuest
        #                                        0000000000=si no marcan nada
        #Tipo de aplicacin                   X(1)
        CAMPO cod_taplicac
        # Tipo de solicitud                   X(1)
        CAMPO cod_tsolprop
        # Tipo de sancin                    X(1)
        CAMPO cod_tsancion
        # Tipo de supervisin                X(1)
        CAMPO cod_tsupervi
        # Indicador vigencia                  X(1)
        CAMPO xsn_vigente
         # Indicador 60 das                 9(2)
        CAMPO xti_detall1
        #  Indicador cambios                 X(1)
        CAMPO xti_detall2
       # Cdigo de categoria                 9(4)
        CAMPO cod_categoria
      # Gestor                                X(8)
        CAMPO cod_marcajis

RECIBE DELIMITANDO last

        CAMPO ctrans             1:8    Nombre de la transaccion
        CAMPO fin_trn           25:1    Fin de la transaccin
        CAMPO numseg            26:4    Numero de Orden del Segmento      X(29)
#
        CAMPO tipo              30:2    Tipo                               9(2)
        CAMPO subtipo           32:2    Subtipo                            9(2)
        CAMPO version           34:2    Versin de aplicacin              9(2)
        CAMPO b_ofi             36:8    Banco CSB y oficina del terminal   9(8)
        CAMPO userid            44:8    Usuario                            X(8)
        CAMPO cod_idioma        52:2    idioma                             9(2)
#                                         10=Castellano

        CAMPO cretor            54:4    Cdigo de retorno                  X(4)
#                                       "    " Ok
#                                        BE Error BD mensajes
#                                        MI Mensaje inexistente
#                                        DD Demasiadas rdenes de acotar
#                                           (mas los que se puedan dar)
        CAMPO mensaje           58:50   Mensaje                           X(50)
        TIPO  tip_datos        108:2    Tipo de salida de informacin      9(2)
#                                          00= sin informacion
#                                          01= con informacion
#                                        --------------------------->>>  X(107)
#       A partir de aqu ir con separadores de final de campo

       PARA TIPO 00

       FINTIPO
###########################################################################
#      Date: 8 de Septiembre de 1998                                      #
#  ADPPT121: Impresin de la propuesta en Host    			  #
#                                                                         #
###########################################################################

TRANSACCION ADPPT121 ENVIA 90 RECIBE ?

ENVIA DELIMITANDO last

        CAMPO ident             1:29   Identificacin de la transaccin   X(29)

#                                   1:8   Cdigo de transaccin            X(8)
#                                   9:1   Blanco                           X(1)
#                                  10:4   HHMM                             9(4)
#                                  14:3   Nmero de secuencia              9(3)
#                                  17:1   Siempre [                        X(1)
#                                  18:2   Puesto                           9(2)
#                                  20:4   Aplicacin que hace la peticin  X(4)
#                                  24:1   Siempre ]                        X(1)
#                                  25:1   Fin de transaccin (1/0)         9(1)
#                                  26:4   Nmero de orden del segmento IMS 9(4)

        CAMPO tipo              30:2    Tipo                               9(2)
        CAMPO subtipo           32:2    Subtipo                            9(2)
        CAMPO version           34:2    Versin de aplicacin              9(2)
        CAMPO b_ofi             36:8    Banco CSB y oficina del terminal   9(8)
        CAMPO userid            44:8    Usuario                            X(8)
        CAMPO cod_idioma        52:2    idioma                             9(2)
#                                         10=Castellano

#                                               ----------------->>>>>    X(24)
#       A partir de aqu ir con separadores de final de campo

        CAMPO cod_cbanco                # Cdigo de banco 		  9(4)
        CAMPO cod_cofici		# Cdigo de oficina		  9(4)
        CAMPO cod_ccontr  		# Contrapartida			  9(4)
        CAMPO cod_cfolio 		# Nmero de folio		  9(14)

#############################################################################

RECIBE DELIMITANDO last

        CAMPO ctrans             1:8    Nombre de la transaccion
        CAMPO fin_trn           25:1    Fin de la transaccin
        CAMPO numseg            26:4    Numero de Orden del Segmento      X(29)
#
        CAMPO tipo              30:2    Tipo                               9(2)
        CAMPO subtipo           32:2    Subtipo                            9(2)
        CAMPO version           34:2    Versin de aplicacin              9(2)
        CAMPO b_ofi             36:8    Banco CSB y oficina del terminal   9(8)
        CAMPO userid            44:8    Usuario                            X(8)
        CAMPO cod_idioma        52:2    idioma                             9(2)
#                                         10=Castellano

        CAMPO cretor            54:4    Cdigo de retorno                  X(4)
#                                       "    " Ok
#                                        BE Error BD mensajes
#                                        MI Mensaje inexistente
#                                        DD Demasiadas rdenes de acotar
#                                           (mas los que se puedan dar)
        CAMPO mensaje           58:50   Mensaje                           X(50)
        TIPO  tip_datos        108:2    Tipo de salida de informacin      9(2)
#                                          00= sin informacion
#                                          01= con informacion
#                                        --------------------------->>>  X(107)
#       A partir de aqu ir con separadores de final de campo

       PARA TIPO 00

       FINTIPO
###########################################################################
#  Fecha: 8 de Septiembre de 1998                                         #
###########################################################################
#  ADPPT123: Impresion de propuesta de consumo desde local                #
###########################################################################

TRANSACCION ADPPT123 ENVIA 20000 RECIBE ?

ENVIA

        CAMPO ident             1:29   Identificacin de la transaccin   X(29)

#                                   1:8   Cdigo de transaccin            X(8)
#                                   9:1   Blanco                           X(1)
#                                  10:4   HHMM                             9(4)
#                                  14:3   Nmero de secuencia              9(3)
#                                  17:1   Siempre [                        X(1)
#                                  18:2   Puesto                           9(2)
#                                  20:4   Aplicacin que hace la peticin  X(4)
#                                  24:1   Siempre ]                        X(1)
#                                  25:1   Fin de transaccin (1/0)         9(1)
#                                  26:4   Nmero de orden del segmento IMS 9(4)

        CAMPO tipo              30:2    Tipo                               9(2)
        CAMPO subtipo           32:2    Subtipo                            9(2)
        CAMPO version           34:2    Versin de aplicacin              9(2)
        CAMPO b_ofi             36:8    Banco CSB y oficina del terminal   9(8)
        CAMPO userid            44:8    Usuario                            X(8)
        CAMPO cod_idioma        52:2    idioma                             9(2)
#                                         10=Castellano

#                                               ----------------->>>>>    X(24)


###########################################################################
#       DATOS DICCIONARIO DE LOS BLOQUES QUE VAN EN LA TRN.               #
#       ===================================================               #
###########################################################################

        CAMPO num_ocurr1        54:4     Titulares y Resto de Participes  9(04)
        CAMPO num_ocurr2        58:4     Condiciones: Elementos           9(04)
        CAMPO num_ocurr6        62:4     Comentarios                      9(04)
        CAMPO num_ocurr8        66:4     Estudios realizados              9(04)
        CAMPO num_ocurr10       70:4     Colaboradores                    9(04)
        CAMPO num_ocurr11       74:4     Plan de amortizacin             9(04)
        CAMPO num_ocurr12       78:4     Plan de disposicin              9(04)
        CAMPO num_ocurr13       82:4     Cuotas extras                    9(04)
        CAMPO num_ocurr14       86:4     Cuotas proporcionales            9(04)
        CAMPO num_ocurr16       90:4     Documentos                       9(04)

###########################################################################
#               D A T O S  I D E N T I F I C A T I V O S                  #
#              =========================================                  #
###########################################################################


        CAMPO cod_bancov        94:4     Cdigo de Banco                   9(4)
        CAMPO cod_oficinav      98:4     Cdigo de Oficina                 9(4)
        CAMPO num_anopropu     102:4     Ao de propuesta                  9(4)
        CAMPO cod_contrapa     106:4     Cdigo de Contrapartida           9(4)
        CAMPO num_folio        110:10    Nmero de folio                  9(10)
        CAMPO cod_bancosol     120:4     Cdigo de Banco                   9(4)
        CAMPO cod_oficosol     124:4     Cdigo de Oficina                 9(4)
        CAMPO cod_tunidad      128:1     Tipo de oficina proponente        X(1)
        CAMPO cod_emplesol     129:8     Matrcula del proponente          9(8)
        CAMPO fec_solicitu     137:10    Fecha de solicitud AAAA-MM-DD    X(10)
        CAMPO fec_comite       147:10    Fecha analizar comite oficina    X(10)
        CAMPO fec_pdte         157:10    Fecha dejar pendiente            X(10)
        CAMPO cod_creador      167:8     Matricula Empl./Marcajista        x(8)
        CAMPO cclien1          175:9     Cod. Cliente   Titular 1          9(9)
        CAMPO cod_producto     184:4     Codigo de Producto                9(4)
        CAMPO cod_subprodu     188:4     Codigo de subproducto             9(4)
        CAMPO cod_categoria    192:4     Cdigo de categora               9(4)
        CAMPO cod_taplicac     196:1     Tipo de aplicacin                X(1)
        CAMPO cod_sector       197:4     Codigo de sector                  9(4)
        CAMPO cod_subsectr     201:4     Codigo de subsector               9(4)
        CAMPO cod_colect       205:4     Cdigo de colectivo               9(4)
        CAMPO cod_oferta       209:9     Codigo de campaa/convenio        9(9)
        CAMPO xti_tipofer      218:1     Indicador campaa/convenio        X(1)
#                                              C=campaa
#                                              O=convenio
        CAMPO xti_tipcamp      219:1     Indicador tipo de campaa         X(1)
#                                              A=Anticipo renta
#                                              F=Finalista
#                                              P=Patrimonial
        CAMPO xsn_resclie      220:1     Indicador de cliente              X(1)
#                                              ' ' = No tiene
#                                              C = Colaborador
#                                              M = Clientes Marketing
        CAMPO xsn_preconce     221:1     Indicador campaa/convenio
#                                              C=Colaborador
#                                              M=Clientes de marketing
        CAMPO cod_moneda       222:3     Codigo de moneda                  X(3)
        CAMPO cod_destino      225:4     Destino de laoperacion            9(4)
        CAMPO cod_subdesti     229:4     Subdestino de la operacion        9(4)
        CAMPO cod_marca        233:4     Codigo de nmarca                  9(4)
        CAMPO cod_modelo       237:4     Codigo de modelo                  9(4)
        CAMPO des_modelo       241:30    Descripcion auxiliar del modelo  X(30)
        CAMPO cod_bien         271:9     Cdigo de bien                    9(9)
        CAMPO num_bienes       280:1     Numero de bien                    9(1)
        # Valoracion del bien         9(13)V9(2)
        NUMERICO qty_impbien   281:15:2
        CAMPO xsn_nuevo        296:1     Indicador naturaleza              X(1)
        CAMPO des_matricula    297:10    Matricula del bien               X(10)
        CAMPO qty_anoanti      307:4     Ao de antigedad                 9(4)
        CAMPO cod_aconteci     311:4     Cdigo de Acontecimeinto          9(4)
        CAMPO cod_tsolicit     315:1     Tipo de solicitud propuesta       X(1)
#                                    N=Nueva propuesta
#                                    O=Operacion especial sobre limite aprobado
#                                    R=Renovacion de propuesta
#                                    M=Modificacion sobre propuesta
        CAMPO xti_estado       316:1     Estado de la propuesta            X(1)
#                                    I=Iniciada
#                                        cod_tsolicit=N o O
#                                    R=Renovacion de la propuesta
#                                        cod_tsolicit=R
#                                    M=Modificacion sobre propuesta
#                                        cod_tsolicit=M
#                                    E=En nuevo estudio
#                                        cod_tsolicit=N o O
        CAMPO cod_emplesan     317:8     Matricula Empleado sancionador    X(8)
        CAMPO fec_sancion      325:10    Fecha de sancion                  x(10)
#                                            Formato= AAAA-MM-DD
        CAMPO cod_tsancion     335:2     Tipo de Sancion                    x(2)
#                                    AS=Aprobado riesgo y precio sin cambios
#                                    IS=Aprobado riesgo sin cambios
#                                    PS=Aprobado precio sin cambios
#                                    AC=Aprobado riesgo y precio con cambios
#                                    IC=Aprobado riesgo con cambios
#                                    PC=Aprobado precio con cambios
#                                    D=Denegada
#                                    C=Cierre sin contrato
#                                    P=Pendiente revisin solicitud
#                                     (Si envio de oficina a otra unidad para sancin)
#                                    R=Reenvio a otra unidad sancionadora
#                                     (Si envio desde unidades sancionadoras)
        CAMPO cod_tmotcierr    337:2     Motivo del Cierre Sin Form.        9(2)
#                                    01=Cambio colaborador
#                                    02=Cambio importe
#                                    03=Cambio intervinientes
#                                    04=Cambio tipo de interes
#                                    05=Exceso de documentacin
#                                    06=La docu. no corresponde con los datos
#                                    07=No firman todos los intervinientes
#                                    08=No le interesa al cliente
#                                    09=No le interesa al comercio
#                                    10=Otra financiacin
#                                    11=Pago al contado
#                                    12=Por la oficina
#                                    13=Tipo de interes
#                                    14=Varios-Incidencias
        CAMPO cod_emplesup     339:8     Matricula Empleado Formalizador   X(8)
        CAMPO fec_supervis     347:10    Fecha de Formalizacion           X(10)
        CAMPO cod_tsupervi     357:1     Tipo de Formalizacion             X(1)
#                                     P=Dejar pendiente
#                                     F=Contratar y poner en vigor
#                                     T=Inicio proceso de formalizacin
#                                     C=Cerrar sin formalizar
#                                     N=?
#                                     E=Nuevo Estudio
        CAMPO cod_tdestino     358:1     Destino si solic. env. a Sancion  X(1)
#                                     T=Regional/Territorial
#                                     A=Administracin central
#                                     P=Propia oficina
#                                     C=Asignar Sucursal
#                                     H=Finanzia


###########################################################################
#    T I T U L A R E S  Y  R E S T O  D E  P A R T I C I P E S            #
#    =========================================================            #
###########################################################################

        REPITE  num_ocurr1  VECES  ?:19

                CAMPO cclien         1:9  Codigo de Cliente             9(9)
                CAMPO ctippe        10:3  Relacion del Participe        x(3)
                CAMPO qty_qnumor    13:4  Numero de Orden ( Automatico) 9(4)
                CAMPO cod_tiprel    17:3  Tipo de relacin con 1 tit.  X(3)

        FINREPITE


###########################################################################
#                     C  O  N  D  I  C  I  O  N  E  S                     #
#                     ===============================                     #
###########################################################################


        REPITE  num_ocurr2  VECES ?:58

                   CAMPO cod_concept1    1:4  Codigo de concepto          9(4)
                   CAMPO cod_elemento    5:4  Codigo de elemento          9(4)
                   CAMPO cod_claselem    9:4  Clase de elemento           9(4)
#                                    0001=Switch (1 posicion alfanumerica)
#                                    0002=Numerico (13 enteros y 2 decimales)
#                                    0003=Set (8 posiciones alfanumericas)
#                                    0004=Numerico (4 enteros)
#                                    0005=Fecha (10 posiciones alfanumericas)
#                                    0007=Porcentaje (4 enteros y 8 decimales)
#                                    0009=Numerico (13 enteros)
                   CAMPO xsn_signo      13:1  Signo de campos numericos   X(1)
#                                                 P=Positivo
#                                                 N=negativo
                   CAMPO cod_valoralf   14:8  Valor alfanumerico          X(8)
#                                                Clases 0001 y 0003
                   # Valor importe     9(13)V9(2)
                   NUMERICO cod_valornum  22:15:2
#                                                Clases 0002,0004 y 0009
                   CAMPO cod_valorfec   37:10  Valor fecha               X(10)
#                                                Clase 0005
                   # Valor porcentaje    9(4)V9(8)
                   NUMERICO cod_valorpor 47:12:8
#                                                Clase 0007

              FINREPITE


###########################################################################
#                            COMENTARIOS                                  #
#                        ======================                           #
###########################################################################

        REPITE  num_ocurr6  VECES    ?:85

                   CAMPO cod_tcomenta     1:1   Tipo de comentario           X(1)
#                                                 G=A garantes
#                                                 T=A garantias
#                                                 S=A solicitud
                   CAMPO num_orden        2:4   Num orden                    9(4)
                   CAMPO cod_dcomenta     6:80  Descrpcion comentarios      X(80)

       FINREPITE

#


###########################################################################
#                      ESTUDIOS REALIZADOS                                #
#              =====================================                      #
###########################################################################

        REPITE  num_ocurr8  VECES    ?:9

                   CAMPO cod_estudio    1:9  Cod. estudio realizado       9(9)

        FINREPITE

#


###########################################################################
#                         COLABORADOR                                     #
#              ==================================                         #
###########################################################################

        REPITE  num_ocurr10  VECES    ?:26

                   CAMPO cod_bancov2   1:4  Banco                         9(04)
                   CAMPO cod_oficinav2 5:4  Oficina                       9(04)
                   CAMPO cod_contrapa2 9:4  codigo de contrapartida       9(04)
                   CAMPO num_folio2   13:14 Numero de folio               9(14)

        FINREPITE

#


###########################################################################
#                          PLAN DE AMORTIZACION                           #
#                          =====================                          #
###########################################################################

        REPITE  num_ocurr11  VECES    ?:25

                   CAMPO fec_amortiza     1:10   Fecha de amortizacion  X(10)
                   # Importe amortizacion   9(13)V9(2)           9(4)
                   NUMERICO qty_amortiza 11:15:2

        FINREPITE

#

###########################################################################
#                           PLAN DE DISPOSICION                           #
#              ===============================================            #
###########################################################################

        REPITE  num_ocurr12  VECES    ?:25

                   CAMPO fec_disposic     1:10   Fecha de disposicion X(10)
                   # Importe disposicion  9(13)V9(2)
                   NUMERICO qty_disposic 11:15:2

        FINREPITE

###########################################################################
#                             CUOTAS EXTRAS                               #
#              ===============================================            #
###########################################################################

        REPITE  num_ocurr13  VECES    ?:25

                CAMPO fec_cuotaext      1:10   Fecha cuota extra   X(10)
                # Importe cuota extra 9(13)V9(2)
                NUMERICO qty_cuotaext  11:15:2

        FINREPITE

###########################################################################
#                          CUOTAS PROPORCIONALES                          #
#              ===============================================            #
###########################################################################

        REPITE  num_ocurr14  VECES    ?:22

                CAMPO fec_cuotapro     1:10   Fecha cuota proporcional X(10)
                # Importe cuota proporcio. 9(12)V9(8)
                NUMERICO qty_cuotapro 11:12:8

        FINREPITE

###########################################################################
#                               DOCUMENTOS                                #
#              ===============================================            #
###########################################################################

        REPITE  num_ocurr16  VECES    ?:91

                CAMPO cod_tipologi      1:1     Cdigo de plazo         X(1)
                CAMPO cod_tdocumen      2:4     Tipo de documento       9(4)
                CAMPO cod_documene      6:60    Documento especfico    X(60)
                CAMPO cod_cclien        66:9    Cdigo de cliente       9(9)
                CAMPO fec_entrega       75:10   Fecha de estado         X(10)
                CAMPO cod_estado        85:1    Estado del documento    X(1)
#                                               E=Entrada
#                                               P=Pendiente
#                                               R=Requerido
#                                               X=Entregado y Contrastado
#                                               C=Contrastado
#                                               B=Desvinculado
                CAMPO cod_mesanosi      86:6    Mes y ao del documento X(6)

        FINREPITE

RECIBE

        CAMPO ctrans             1:8    Nombre de la transaccion
        CAMPO fin_trn           25:1    Fin de la transaccin
        CAMPO numseg            26:4    Numero de Orden del Segmento      X(29)
#
        CAMPO tipo              30:2    Tipo                               9(2)
        CAMPO subtipo           32:2    Subtipo                            9(2)
        CAMPO version           34:2    Versin de aplicacin              9(2)
        CAMPO b_ofi             36:8    Banco CSB y oficina del terminal   9(8)
        CAMPO userid            44:8    Usuario                            X(8)
        CAMPO cod_idioma        52:2    idioma                             9(2)
#                                         10=Castellano

        CAMPO cretor            54:4    Cdigo de retorno                  X(4)
#                                       "    " Ok
#                                        BE Error BD mensajes
#                                        MI Mensaje inexistente
#                                        DD Demasiadas rdenes de acotar
#                                           (mas los que se puedan dar)
        CAMPO mensaje           58:50   Mensaje                           X(50)
        TIPO  tip_datos        108:2    Tipo de salida de informacin      9(2)

#                                          00= Salida sin informacin
#                                          01= Salida con datos sin error
#                                          02= Salida con datos de error
#                                        --------------------------->>>   X(109)
        PARA TIPO 00
        PARA TIPO 01

        PARA TIPO 02

        CAMPO cod_bancor    110:4    Banco                             9(4)
        CAMPO cod_oficinar  114:4    Oficina                           9(4)
        CAMPO cod_contrapa  118:4    Cdigo de Contrapartida           9(4)
        CAMPO cod_cfolio    122:14   Nmero de folio                   9(14)

        CAMPO num_ocurr1    136:4
        CAMPO num_ocurr2    140:4
        CAMPO num_ocurr3    144:4
        CAMPO num_ocurr4    148:4
        CAMPO num_ocurr5    152:4
        CAMPO num_ocurr6    156:4
        CAMPO num_ocurr7    160:4
        CAMPO num_ocurr8    164:4
        CAMPO num_ocurr9    168:4

           REPITE num_ocurr1 VECES 172:52

                  CAMPO cod_bloquew0   ?:2
                  CAMPO des_mensaje0   ?:50

           FINREPITE

           REPITE num_ocurr2 VECES ?:61

                  CAMPO cod_bloquew1   ?:2
                  CAMPO cclien1_s      ?:9
                  CAMPO des_mensaje1   ?:50

           FINREPITE

           REPITE num_ocurr3 VECES ?:52

                  CAMPO cod_bloquew2   ?:2
                  CAMPO des_mensaje2   ?:50

           FINREPITE

           REPITE num_ocurr4 VECES ?:60

                  CAMPO cod_bloquew3   ?:2
                  CAMPO cod_concepto   ?:4
                  CAMPO cod_elemento   ?:4
                  CAMPO des_mensaje3   ?:50
           FINREPITE

           REPITE num_ocurr5 VECES ?:68

                  CAMPO cod_bloquew4   ?:2
                  CAMPO cod_cclien     ?:9
                  CAMPO cod_ctippe     ?:3
                  CAMPO qty_qnumor     ?:4
                  CAMPO des_mensaje4   ?:50

           FINREPITE

           REPITE num_ocurr6 VECES ?:55

                  CAMPO cod_bloquew5   ?:2
                  CAMPO cod_garantia   ?:3
                  CAMPO des_mensaje5   ?:50

           FINREPITE

           REPITE num_ocurr7 VECES ?:53

                  CAMPO cod_bloquew6   ?:2
                  CAMPO cod_tcomenta   ?:1
                  CAMPO des_mensaje6   ?:50

           FINREPITE

           REPITE num_ocurr8 VECES ?:52

                  CAMPO cod_bloquew7   ?:2
                  CAMPO des_mensaje7   ?:50

           FINREPITE

           REPITE num_ocurr9 VECES ?:78

                  CAMPO cod_bloquew8   ?:2
                  CAMPO cod_bancov     ?:4
                  CAMPO cod_oficinav   ?:4
                  CAMPO cod_contrapa   ?:4
                  CAMPO num_folio      ?:14
                  CAMPO des_mensaje8   ?:50

           FINREPITE


       FINTIPO
###########################################################################
#  Fecha: 27 de Agosto de 1998                                            #
###########################################################################
#  ADPPT157: Sancin de propuestas para el flujo de propuestas            #
###########################################################################

TRANSACCION ADPPT157 ENVIA 20000 RECIBE ?

ENVIA

        CAMPO ident             1:29   Identificacin de la transaccin   X(29)

#                                   1:8   Cdigo de transaccin            X(8)
#                                   9:1   Blanco                           X(1)
#                                  10:4   HHMM                             9(4)
#                                  14:3   Nmero de secuencia              9(3)
#                                  17:1   Siempre [                        X(1)
#                                  18:2   Puesto                           9(2)
#                                  20:4   Aplicacin que hace la peticin  X(4)
#                                  24:1   Siempre ]                        X(1)
#                                  25:1   Fin de transaccin (1/0)         9(1)
#                                  26:4   Nmero de orden del segmento IMS 9(4)

        CAMPO tipo              30:2    Tipo                               9(2)
        CAMPO subtipo           32:2    Subtipo                            9(2)
        CAMPO version           34:2    Versin de aplicacin              9(2)
        CAMPO b_ofi             36:8    Banco CSB y oficina del terminal   9(8)
        CAMPO userid            44:8    Usuario                            X(8)
        CAMPO cod_idioma        52:2    idioma                             9(2)
#                                         10=Castellano

#                                               ----------------->>>>>    X(24)


###########################################################################
#       DATOS DICCIONARIO DE LOS BLOQUES QUE VAN EN LA TRN.               #
#       ===================================================               #
###########################################################################

        CAMPO num_ocurr1        54:4     Titulares y Resto de Participes  9(04)
        CAMPO num_ocurr2a       58:4     Condiciones: Conceptos           9(04)
        CAMPO num_ocurr2b       62:4     Condiciones: Elementos           9(04)
        CAMPO num_ocurr3        66:4     Garantes e informacin complem.  9(04)
        CAMPO num_ocurr4        70:4     Garantas de garantes            9(04)
        CAMPO num_ocurr5        74:4     Garantas de titulares           9(04)
        CAMPO num_ocurr6        78:4     Comentarios                      9(04)
        CAMPO num_ocurr7        82:4     Intervinientes                   9(04)
        CAMPO num_ocurr8        86:4     Estudios realizados              9(04)
        CAMPO num_ocurr9        90:4     Renovacin                       9(04)
        CAMPO num_ocurr10       94:4     Colaboradores                    9(04)
        CAMPO num_ocurr11       98:4     Plan de amortizacin             9(04)
        CAMPO num_ocurr12      102:4     Plan de disposicin              9(04)
        CAMPO num_ocurr13      106:4     Cuotas extras                    9(04)
        CAMPO num_ocurr14      110:4     Cuotas proporcionales            9(04)
        CAMPO num_ocurr15      114:4     Plazo/Tipo                       9(04)
        CAMPO num_ocurr16      118:4     Documentos                       9(04)

###########################################################################
#               D A T O S  I D E N T I F I C A T I V O S                  #
#              =========================================                  #
###########################################################################


        CAMPO cod_bancov       122:4     Cdigo de Banco                   9(4)
        CAMPO cod_oficinav     126:4     Cdigo de Oficina                 9(4)
        CAMPO num_anopropu     130:4     Ao de propuesta                  9(4)
        CAMPO cod_contrapa     134:4     Cdigo de Contrapartida           9(4)
        CAMPO num_folio        138:10    Nmero de folio                  9(10)
        CAMPO cod_bancosol     148:4     Cdigo de Banco                   9(4)
        CAMPO cod_oficosol     152:4     Cdigo de Oficina                 9(4)
        CAMPO cod_tunidad      156:1     Tipo de oficina proponente        X(1)
        CAMPO cod_emplesol     157:8     Matrcula del proponente          9(8)
        CAMPO fec_solicitu     165:10    Fecha de solicitud AAAA-MM-DD    X(10)
        CAMPO fec_comite       175:10    Fecha analizar comite oficina    X(10)
        CAMPO fec_pdte         185:10    Fecha dejar pendiente            X(10)
        CAMPO cod_creador      195:8     Matricula Empl./Marcajista        x(8)
        CAMPO cclien1          203:9     Cod. Cliente   Titular 1          9(9)
        CAMPO cod_producto     212:4     Codigo de Producto                9(4)
        CAMPO cod_subprodu     216:4     Codigo de subproducto             9(4)
        CAMPO cod_categoria    220:4     Cdigo de categora               9(4)
        CAMPO cod_taplicac     224:1     Tipo de aplicacin                X(1)
        CAMPO cod_sector       225:4     Codigo de sector                  9(4)
        CAMPO cod_subsectr     229:4     Codigo de subsector               9(4)
        CAMPO cod_colect       233:4     Cdigo de colectivo               9(4)
        CAMPO cod_oferta       237:9     Codigo de campaa/convenio        9(9)
        CAMPO xti_tipofer      246:1     Indicador campaa/convenio        X(1)
#                                              C=campaa
#                                              O=convenio
        CAMPO xti_tipcamp      247:1     Indicador tipo de campaa         X(1)
#                                              A=Anticipo renta
#                                              F=Finalista
#                                              P=Patrimonial
        CAMPO xsn_resclie      248:1     Indicador de cliente              X(1)
#                                              ' ' = No tiene
#                                              C = Colaborador
#                                              M = Clientes Marketing
        CAMPO xsn_preconce     249:1     Indicador campaa/convenio
#                                              C=Colaborador
#                                              M=Clientes de marketing
        CAMPO cod_moneda       250:3     Codigo de moneda                  X(3)
        CAMPO cod_destino      253:4     Destino de laoperacion            9(4)
        CAMPO cod_subdesti     257:4     Subdestino de la operacion        9(4)
        CAMPO cod_marca        261:4     Codigo de nmarca                  9(4)
        CAMPO cod_modelo       265:4     Codigo de modelo                  9(4)
        CAMPO des_modelo       269:30    Descripcion auxiliar del modelo  X(30)
        CAMPO cod_bien         299:9     Cdigo de bien                    9(9)
        CAMPO num_bienes       308:1     Numero de bien                    9(1)
        # Valoracion del bien         9(13)V9(2)
        NUMERICO qty_impbien   309:15:2
        CAMPO xsn_nuevo        324:1     Indicador naturaleza              X(1)
        CAMPO des_matricula    325:10    Matricula del bien               X(10)
        CAMPO qty_anoanti      335:4     Ao de antigedad                 9(4)
        CAMPO cod_aconteci     339:4     Cdigo de Acontecimeinto          9(4)
        CAMPO cod_tsolicit     343:1     Tipo de solicitud propuesta       X(1)
#                                    N=Nueva propuesta
#                                    O=Operacion especial sobre limite aprobado
#                                    R=Renovacion de propuesta
#                                    M=Modificacion sobre propuesta
        CAMPO xti_estado       344:1     Estado de la propuesta            X(1)
#                                    I=Iniciada
#                                        cod_tsolicit=N o O
#                                    R=Renovacion de la propuesta
#                                        cod_tsolicit=R
#                                    M=Modificacion sobre propuesta
#                                        cod_tsolicit=M
#                                    E=En nuevo estudio
#                                        cod_tsolicit=N o O
        CAMPO cod_emplesan     345:8     Matricula Empleado sancionador    X(8)
        CAMPO fec_sancion      353:10    Fecha de sancion                  x(10)
#                                            Formato= AAAA-MM-DD
        CAMPO cod_tsancion     363:2     Tipo de Sancion                    x(2)
#                                    AS=Aprobado riesgo y precio sin cambios
#                                    IS=Aprobado riesgo sin cambios
#                                    PS=Aprobado precio sin cambios
#                                    AC=Aprobado riesgo y precio con cambios
#                                    IC=Aprobado riesgo con cambios
#                                    PC=Aprobado precio con cambios
#                                    D=Denegada
#                                    C=Cierre sin contrato
#                                    P=Pendiente revisin solicitud
#                                     (Si envio de oficina a otra unidad para sancin)
#                                    R=Reenvio a otra unidad sancionadora
#                                     (Si envio desde unidades sancionadoras)
        CAMPO cod_tmotcierr    365:2     Motivo del Cierre Sin Form.        9(2)
#                                    01=Cambio colaborador
#                                    02=Cambio importe
#                                    03=Cambio intervinientes
#                                    04=Cambio tipo de interes
#                                    05=Exceso de documentacin
#                                    06=La docu. no corresponde con los datos
#                                    07=No firman todos los intervinientes
#                                    08=No le interesa al cliente
#                                    09=No le interesa al comercio
#                                    10=Otra financiacin
#                                    11=Pago al contado
#                                    12=Por la oficina
#                                    13=Tipo de interes
#                                    14=Varios-Incidencias
        CAMPO cod_emplesup     367:8     Matricula Empleado Formalizador   X(8)
        CAMPO fec_supervis     375:10    Fecha de Formalizacion           X(10)
        CAMPO cod_tsupervi     385:1     Tipo de Formalizacion             X(1)
#                                     P=Dejar pendiente
#                                     F=Contratar y poner en vigor
#                                     T=Inicio proceso de formalizacin
#                                     C=Cerrar sin formalizar
#                                     N=?
#                                     E=Nuevo Estudio
        CAMPO cod_tdestino     386:1     Destino si solic. env. a Sancion  X(1)
#                                     T=Regional/Territorial
#                                     A=Administracin central
#                                     P=Propia oficina
#                                     C=Asignar Sucursal
#                                     H=Finanzia


###########################################################################
#    T I T U L A R E S  Y  R E S T O  D E  P A R T I C I P E S            #
#    =========================================================            #
###########################################################################

        REPITE  num_ocurr1  VECES  387:19

                CAMPO cclien         1:9  Codigo de Cliente             9(9)
                CAMPO ctippe        10:3  Relacion del Participe        x(3)
                CAMPO qty_qnumor    13:4  Numero de Orden ( Automatico) 9(4)
                CAMPO cod_tiprel    17:3  Tipo de relacin con 1 tit.  X(3)

        FINREPITE


###########################################################################
#                     C  O  N  D  I  C  I  O  N  E  S                     #
#                     ===============================                     #
###########################################################################

        REPITE  num_ocurr2a  VECES    ?:5

                   CAMPO cod_concepto    1:4  Codigo de concepto           9(4)
                   CAMPO xsn_exceptua    5:1  Indicador de exceptuabilidad X(1)
#                                              S=Exceptuable
#                                              N=No exceptuable
        FINREPITE

        REPITE  num_ocurr2b VECES ?:58

                   CAMPO cod_concept1    1:4  Codigo de concepto          9(4)
                   CAMPO cod_elemento    5:4  Codigo de elemento          9(4)
                   CAMPO cod_claselem    9:4  Clase de elemento           9(4)
#                                    0001=Switch (1 posicion alfanumerica)
#                                    0002=Numerico (13 enteros y 2 decimales)
#                                    0003=Set (8 posiciones alfanumericas)
#                                    0004=Numerico (4 enteros)
#                                    0005=Fecha (10 posiciones alfanumericas)
#                                    0007=Porcentaje (4 enteros y 8 decimales)
#                                    0009=Numerico (13 enteros)
                   CAMPO xsn_signo      13:1  Signo de campos numericos   X(1)
#                                                 P=Positivo
#                                                 N=negativo
                   CAMPO cod_valoralf   14:8  Valor alfanumerico          X(8)
#                                                Clases 0001 y 0003
                   # Valor importe     9(13)V9(2)
                   NUMERICO cod_valornum  22:15:2
#                                                Clases 0002,0004 y 0009
                   CAMPO cod_valorfec   37:10  Valor fecha               X(10)
#                                                Clase 0005
                   # Valor porcentaje    9(4)V9(8)
                   NUMERICO cod_valorpor 47:12:8
#                                                Clase 0007

              FINREPITE


###########################################################################
#                    GARANTES E INFORMACION COMPLEMENTARIA                #
#   ==================================================================    #
###########################################################################

        REPITE  num_ocurr3      VECES    ?:36

                   CAMPO cclieng        1:9  Codigo de cliente             9(9)
                   CAMPO fec_fvirante  10:10 Fin de vigencia del garante  X(10)         x(5)
                   CAMPO cod_tgaranti  20:1  Respon. garan. ante el riesgo X(1)
#                                             S=Solidaria
#                                             M=Mancomunada
                   CAMPO xsn_informad1 21:1  Indicador si informado        X(1)
                   NUMERICO por_garantiz  22:3:0
                   CAMPO xsn_informad2 25:1  Indicador si informado        X(1)
                   NUMERICO qty_solvenci  26:11:0

       FINREPITE

#

###########################################################################
#                    GARANTIAS APORTADAS POR EL GARANTE                   #
#                 ===========================================             #
###########################################################################

        REPITE  num_ocurr4  VECES    ?:22

                   CAMPO cclieng1         1:9  Codigo de cliente           9(9)
                   CAMPO cod_garantia    10:3  Codigo de garantia          X(3)
                   CAMPO fec_fvgartia    13:10 Fec.fin vigen.garantia     X(10)

        FINREPITE

#

###########################################################################
#                       GARANTIAS DE TITULARES                            #
#    =================================================================    #
###########################################################################

        REPITE  num_ocurr5  VECES    ?:24

                   CAMPO cod_garantia1    1:3   Codigo de garantia           X(3)
                   NUMERICO qty_garantia  4:11:0
                   CAMPO fec_fvrantia1   15:10  Fin vigencia garantia       X(10)

        FINREPITE

#

###########################################################################
#                            COMENTARIOS                                  #
#                        ======================                           #
###########################################################################

        REPITE  num_ocurr6  VECES    ?:85

                   CAMPO cod_tcomenta     1:1   Tipo de comentario           X(1)
#                                                 G=A garantes
#                                                 T=A garantias
#                                                 S=A solicitud
                   CAMPO num_orden        2:4   Num orden                    9(4)
                   CAMPO cod_dcomenta     6:80  Descrpcion comentarios      X(80)

       FINREPITE

#

###########################################################################
#                              CLIENTES                                   #
#                        =====================                            #
###########################################################################

        REPITE  num_ocurr7  VECES    ?:321

                   CAMPO cod_cclien1      1:9   Cdigo de cliente            9(9)
                   CAMPO cod_ctipcl      10:1   Clase tipo identificativo    X(1)
                   CAMPO cod_cdnitr      11:10  DNI/NIF/CIF/PASAPORTE/TR    X(10)
                   CAMPO des_dnombr      21:60  Nombre                      X(60)
                   CAMPO des_dapel1      81:60  Apellido 1                  X(60)
                   CAMPO des_dapel2     141:60  Apellido 2                  X(60)
                   CAMPO cod_csecli     201:1   Segmento del cliente        X(01)
                   CAMPO cod_sector     202:4   Sector del cliente          9(04)
                   CAMPO cod_subsectr   206:4   Subsector del cliente       9(04)
                   CAMPO fec_nacimi     210:10  Fecha de nacimiento cliente X(10)
                   CAMPO cod_ccnae      220:4   cnae                        9(04)
                   CAMPO des_ddomif     224:36  Domicilio fiscal            X(36)
                   CAMPO des_dplaza     260:28  Plaza                       X(28)
                   CAMPO cod_cdipos     288:5   Codigo postal               9(05)
                   CAMPO cod_dprovi     293:20  Provincia                   X(20)
                   CAMPO cod_cpais      313:4   Pais                        9(04)
                   CAMPO cod_cno        317:4   CNO                         9(04)
                   CAMPO cod_clocu      321:1   Tipo de ocupacin           X(01)

        FINREPITE

#

###########################################################################
#                      ESTUDIOS REALIZADOS                                #
#              =====================================                      #
###########################################################################

        REPITE  num_ocurr8  VECES    ?:9

                   CAMPO cod_estudio    1:9  Cod. estudio realizado       9(9)

        FINREPITE

#

###########################################################################
#                             RENOVACION                                  #
#                  ==================================                     #
###########################################################################

        REPITE  num_ocurr9  VECES    ?:26

                   CAMPO cod_bancov1      1:4  Banco relacionado con cliente 9(4)
                   CAMPO cod_oficinav1    5:4  Oficina relacionada cliente   9(4)
                   CAMPO cod_contrapa1    9:4  Codigo de contrapartida       9(4)
                   CAMPO num_folio1      13:14 Numero de propuesta          9(14)

        FINREPITE

#

###########################################################################
#                         COLABORADOR                                     #
#              ==================================                         #
###########################################################################

        REPITE  num_ocurr10  VECES    ?:26

                   CAMPO cod_bancov2   1:4  Banco                         9(04)
                   CAMPO cod_oficinav2 5:4  Oficina                       9(04)
                   CAMPO cod_contrapa2 9:4  codigo de contrapartida       9(04)
                   CAMPO num_folio2   13:14 Numero de folio               9(14)

        FINREPITE

#


###########################################################################
#                          PLAN DE AMORTIZACION                           #
#                          =====================                          #
###########################################################################

        REPITE  num_ocurr11  VECES    ?:25

                   CAMPO fec_amortiza     1:10   Fecha de amortizacion  X(10)
                   # Importe amortizacion   9(13)V9(2)           9(4)
                   NUMERICO qty_amortiza 11:15:2

        FINREPITE

#

###########################################################################
#                           PLAN DE DISPOSICION                           #
#              ===============================================            #
###########################################################################

        REPITE  num_ocurr12  VECES    ?:25

                   CAMPO fec_disposic     1:10   Fecha de disposicion X(10)
                   # Importe disposicion  9(13)V9(2)
                   NUMERICO qty_disposic 11:15:2

        FINREPITE

###########################################################################
#                             CUOTAS EXTRAS                               #
#              ===============================================            #
###########################################################################

        REPITE  num_ocurr13  VECES    ?:25

                CAMPO fec_cuotaext      1:10   Fecha cuota extra   X(10)
                # Importe cuota extra 9(13)V9(2)
                NUMERICO qty_cuotaext  11:15:2

        FINREPITE

###########################################################################
#                          CUOTAS PROPORCIONALES                          #
#              ===============================================            #
###########################################################################

        REPITE  num_ocurr14  VECES    ?:22

                CAMPO fec_cuotapro     1:10   Fecha cuota proporcional X(10)
                # Importe cuota proporcio. 9(12)V9(8)
                NUMERICO qty_cuotapro 11:12:8

        FINREPITE

###########################################################################
#                               PLAZO / TIPO                              #
#              ===============================================            #
###########################################################################

        REPITE  num_ocurr15  VECES    ?:16

                CAMPO cod_plazo         1:4     Cdigo de plazo         9(4)
                # Proporcin            9(4)v9(8)
                NUMERICO por_tipo2      5:12:8

        FINREPITE

###########################################################################
#                               DOCUMENTOS                                #
#              ===============================================            #
###########################################################################

        REPITE  num_ocurr16  VECES    ?:91

                CAMPO cod_tipologi      1:1     Cdigo de plazo         X(1)
                CAMPO cod_tdocumen      2:4     Tipo de documento       9(4)
                CAMPO cod_documene      6:60    Documento especfico    X(60)
                CAMPO cod_cclien        66:9    Cdigo de cliente       9(9)
                CAMPO fec_entrega       75:10   Fecha de estado         X(10)
                CAMPO cod_estado        85:1    Estado del documento    X(1)
#                                               E=Entrada
#                                               P=Pendiente
#                                               R=Requerido
#                                               X=Entregado y Contrastado
#                                               C=Contrastado
#                                               B=Desvinculado
                CAMPO cod_mesanosi      86:6    Mes y ao del documento X(6)

        FINREPITE

RECIBE

        CAMPO ctrans             1:8    Nombre de la transaccion
        CAMPO fin_trn           25:1    Fin de la transaccin
        CAMPO numseg            26:4    Numero de Orden del Segmento      X(29)
#
        CAMPO tipo              30:2    Tipo                               9(2)
        CAMPO subtipo           32:2    Subtipo                            9(2)
        CAMPO version           34:2    Versin de aplicacin              9(2)
        CAMPO b_ofi             36:8    Banco CSB y oficina del terminal   9(8)
        CAMPO userid            44:8    Usuario                            X(8)
        CAMPO cod_idioma        52:2    idioma                             9(2)
#                                         10=Castellano

        CAMPO cretor            54:4    Cdigo de retorno                  X(4)
#                                       "    " Ok
#                                        BE Error BD mensajes
#                                        MI Mensaje inexistente
#                                        DD Demasiadas rdenes de acotar
#                                           (mas los que se puedan dar)
        CAMPO mensaje           58:50   Mensaje                           X(50)
        TIPO  tip_datos        108:2    Tipo de salida de informacin      9(2)

#                                          00= Salida sin informacin
#                                          01= Salida con datos sin error
#                                          02= Salida con datos de error
#                                        --------------------------->>>   X(109)
        PARA TIPO 00
        PARA TIPO 01

        CAMPO cod_bancor    110:4    Banco                             9(4)
        CAMPO cod_oficinar  114:4    Oficina                           9(4)
        CAMPO cod_contrapa  118:4    Codigo de contrapartida           9(4)
        CAMPO num_propuestr 122:14   Num. propuesta                    9(8)

        PARA TIPO 02

        CAMPO cod_bancor    110:4    Banco                             9(4)
        CAMPO cod_oficinar  114:4    Oficina                           9(4)
        CAMPO cod_contrapa  118:4    Cdigo de Contrapartida           9(4)
        CAMPO cod_cfolio    122:14   Nmero de folio                   9(14)

        CAMPO num_ocurr1    136:4
        CAMPO num_ocurr2    140:4
        CAMPO num_ocurr3    144:4
        CAMPO num_ocurr4    148:4
        CAMPO num_ocurr5    152:4
        CAMPO num_ocurr6    156:4
        CAMPO num_ocurr7    160:4
        CAMPO num_ocurr8    164:4
        CAMPO num_ocurr9    168:4

           REPITE num_ocurr1 VECES 172:52

                  CAMPO cod_bloquew0   ?:2
                  CAMPO des_mensaje0   ?:50

           FINREPITE

           REPITE num_ocurr2 VECES ?:61

                  CAMPO cod_bloquew1   ?:2
                  CAMPO cclien1_s      ?:9
                  CAMPO des_mensaje1   ?:50

           FINREPITE

           REPITE num_ocurr3 VECES ?:52

                  CAMPO cod_bloquew2   ?:2
                  CAMPO des_mensaje2   ?:50

           FINREPITE

           REPITE num_ocurr4 VECES ?:60

                  CAMPO cod_bloquew3   ?:2
                  CAMPO cod_concepto   ?:4
                  CAMPO cod_elemento   ?:4
                  CAMPO des_mensaje3   ?:50
           FINREPITE

           REPITE num_ocurr5 VECES ?:68

                  CAMPO cod_bloquew4   ?:2
                  CAMPO cod_cclien     ?:9
                  CAMPO cod_ctippe     ?:3
                  CAMPO qty_qnumor     ?:4
                  CAMPO des_mensaje4   ?:50

           FINREPITE

           REPITE num_ocurr6 VECES ?:55

                  CAMPO cod_bloquew5   ?:2
                  CAMPO cod_garantia   ?:3
                  CAMPO des_mensaje5   ?:50

           FINREPITE

           REPITE num_ocurr7 VECES ?:53

                  CAMPO cod_bloquew6   ?:2
                  CAMPO cod_tcomenta   ?:1
                  CAMPO des_mensaje6   ?:50

           FINREPITE

           REPITE num_ocurr8 VECES ?:52

                  CAMPO cod_bloquew7   ?:2
                  CAMPO des_mensaje7   ?:50

           FINREPITE

           REPITE num_ocurr9 VECES ?:78

                  CAMPO cod_bloquew8   ?:2
                  CAMPO cod_bancov     ?:4
                  CAMPO cod_oficinav   ?:4
                  CAMPO cod_contrapa   ?:4
                  CAMPO num_folio      ?:14
                  CAMPO des_mensaje8   ?:50

           FINREPITE


       FINTIPO
###########################################################################
#  Fecha: 20 de Abril de 1998                                             #
###########################################################################
#  ADPPT157: Sancin de propuestas para el flujo de propuestas            #
###########################################################################

TRANSACCION ADPPT157 ENVIA 25000 RECIBE ?

ENVIA

        CAMPO ident             1:29   Identificacin de la transaccin   X(29)

#                                   1:8   Cdigo de transaccin            X(8)
#                                   9:1   Blanco                           X(1)
#                                  10:4   HHMM                             9(4)
#                                  14:3   Nmero de secuencia              9(3)
#                                  17:1   Siempre [                        X(1)
#                                  18:2   Puesto                           9(2)
#                                  20:4   Aplicacin que hace la peticin  X(4)
#                                  24:1   Siempre ]                        X(1)
#                                  25:1   Fin de transaccin (1/0)         9(1)
#                                  26:4   Nmero de orden del segmento IMS 9(4)

        CAMPO tipo              30:2    Tipo                               9(2)
        CAMPO subtipo           32:2    Subtipo                            9(2)
        CAMPO version           34:2    Versin de aplicacin              9(2)
        CAMPO b_ofi             36:8    Banco CSB y oficina del terminal   9(8)
        CAMPO userid            44:8    Usuario                            X(8)
        CAMPO cod_idioma        52:2    idioma                             9(2)
#                                         10=Castellano

#                                               ----------------->>>>>    X(24)


###########################################################################
#       DATOS DICCIONARIO DE LOS BLOQUES QUE VAN EN LA TRN.               #
#       ===================================================               #
###########################################################################

        CAMPO num_ocurr1        54:4     Num. de occurrs. Bloque 1 (Titulares y
#                                        Resto de Participes )             9(04)
        CAMPO num_ocurr2a       58:4     Num. de occurrs. Bloque 2 (Condiciones:
#                                        Conceptos)    9(04)
        CAMPO num_ocurr2b       62:4     Num. de occurrs. Bloque 2 (Condiciones:
#                                        Elementos)    9(04)
        CAMPO num_ocurr3        66:4     Num. de ocurrs.Bloque 2 (Condiciones:
#                                        Elementos y clases) 9(04)
        CAMPO num_ocurr4        70:4     Num. de occurrs. Bloque 3 (Garantes)
#                                                      9(04)
        CAMPO num_ocurr5        74:4     Num. de occurrs. Bloque 4 (Garantias
#                                        del garante)  9(04)
        CAMPO num_ocurr6        78:4     Num. de occurrs. Bloque 5 (Garantias
#                                        de titulares) 9(04)
        CAMPO num_ocurr7        82:4     Num. de occurrs. Bloque 6 (Comentarios)
#                                                      9(04)
        CAMPO num_ocurr8        86:4     Num. de occurrs. Bloque 7 (Clientes)
#                                                      9(04)
        CAMPO num_ocurr9        90:4     Num. de occurrs. Bloque 8 (Estudios)
#                                                      9(04)
        CAMPO num_ocurr10       94:4     Num. de occurrs. Bloque 9 (Renovacin)
#                                                      9(04)
        CAMPO num_ocurr11       98:4     Num. de occurrs. Bloque 10 (Colaborador)
#                                                      9(04)
        CAMPO num_ocurr12      102:4     Num. de occurrs. Bloque 11 (Plan amortizacin)
#                                                      9(04)
        CAMPO num_ocurr13      106:4     Num. de occurrs. Bloque 11 (Plan disposicin)
#                                                      9(04)
        CAMPO num_ocurr14      110:4     Num. de occurrs. Bloque 13 (Cuotas exteriores)
#                                                      9(04)
        CAMPO num_ocurr15      114:4     Num. de occurrs. Bloque 14 (Cuotas proporcionales)
#                                                      9(04)
        CAMPO num_ocurr16      118:4     Num. de occurrs. Bloque 16 (Documentos)
#                                                      9(04)

###########################################################################
#               D A T O S  I D E N T I F I C A T I V O S                  #
#              =========================================                  #
###########################################################################


        CAMPO cod_bancov       122:4     Cdigo de Banco                   9(4)
        CAMPO cod_oficinav     126:4     Cdigo de Oficina                 9(4)
        CAMPO num_anopropu     130:4     Ao de propuesta                  9(4)
        CAMPO cod_contrapa     134:4     Cdigo de Contrapartida           9(4)
        CAMPO num_folio        138:10    Nmero de folio                  9(10)
        CAMPO cod_bancosol     148:4     Cdigo de Banco                   9(4)
        CAMPO cod_oficosol     152:4     Cdigo de Oficina                 9(4)
        CAMPO cod_tunidad      156:1     Tipo de oficina proponente        X(1)
        CAMPO cod_emplesol     157:8     Matrcula del proponente          9(8)
        CAMPO fec_solicitu     165:10    Fecha de solicitud AAAA-MM-DD    X(10)
        CAMPO hsm_solicitu     175:8     Hora de solicitud HH.MM.SS        X(8)
        CAMPO fec_comite       183:10    Fecha analizar comite oficina    X(10)
        CAMPO fec_pdte         193:10    Fecha dejar pendiente            X(10)
        CAMPO cod_creador      203:8     Matricula Empl./Marcajista        x(8)
        CAMPO cclien1          211:9     Cod. Cliente   Titular 1          9(9)
        CAMPO cod_producto     220:4     Codigo de Producto                9(4)
        CAMPO cod_subprodu     224:4     Codigo de subproducto             9(4)
        CAMPO cod_taplicac     228:1     Tipo de aplicacin                X(1)
        CAMPO cod_sector       229:4     Codigo de sector                  9(4)
        CAMPO cod_subsectr     233:4     Codigo de subsector               9(4)
        CAMPO cod_colect       237:4     Cdigo de colectivo               9(4)
        CAMPO cod_oferta       241:9     Codigo de campaa/convenio        9(9)
        CAMPO xti_tipofer      250:1     Indicador campaa/convenio        X(1)
#                                              C=campaa
#                                              O=convenio
        CAMPO xti_tipcamp      251:1     Indicador tipo de campaa         X(1)
#                                              A=Anticipo renta
#                                              F=Finalista
#                                              P=Patrimonial
        CAMPO xsn_resclie      252:1     Indicador de cliente              X(1)
#                                              ' ' = No tiene
#                                              C = Colaborador
#                                              M = Clientes Marketing
        CAMPO xsn_preconce     253:1     Indicador campaa/convenio
#                                              C=Colaborador
#                                              M=Clientes de marketing
        CAMPO cod_moneda       254:3     Codigo de moneda                  X(3)
        CAMPO cod_destino      257:4     Destino de laoperacion            9(4)
        CAMPO cod_subdesti     261:4     Subdestino de la operacion        9(4)
        CAMPO cod_marca        265:4     Codigo de nmarca                  9(4)
        CAMPO cod_modelo       269:4     Codigo de modelo                  9(4)
        CAMPO des_modelo       273:30    Descripcion auxiliar del modelo  X(30)
        CAMPO cod_bien         303:9     Cdigo de bien                    9(9)
        CAMPO num_bienes       312:1     Numero de bien                    9(1)
        # Valoracion del bien         9(13)V9(2)
        NUMERICO qty_impbien   313:15:2
        CAMPO xsn_nuevo        328:1     Indicador naturaleza              X(1)
        CAMPO des_matricula    329:8     Matricula del bien                X(8)
        CAMPO qty_anoanti      337:4     Ao de antigedad                 9(4)
        CAMPO cod_aconteci     341:4     Cdigo de Acontecimeinto          9(4)
        CAMPO cod_tsolicit     345:1     Tipo de solicitud propuesta       X(1)
#                                    N=Nueva propuesta
#                                    O=Operacion especial sobre limite aprobado
#                                    R=Renovacion de propuesta
#                                    M=Modificacion sobre propuesta
        CAMPO xti_estado       346:1     Estado de la propuesta            X(1)
#                                    I=Iniciada
#                                        cod_tsolicit=N o O
#                                    R=Renovacion de la propuesta
#                                        cod_tsolicit=R
#                                    M=Modificacion sobre propuesta
#                                        cod_tsolicit=M
#                                    E=En nuevo estudio
#                                        cod_tsolicit=N o O
        CAMPO cod_emplesan     347:8     Matricula Empleado sancionador    X(8)
        CAMPO fec_sancion      355:10    Fecha de sancion                  x(10)
#                                            Formato= AAAA-MM-DD
        CAMPO hsm_sancion      365:8     Hora de sancion                    x(8)
        CAMPO cod_tsancion     373:2     Tipo de Sancion                    x(2)
#                                    AS=Aprobado riesgo y precio sin cambios
#                                    IS=Aprobado riesgo sin cambios
#                                    PS=Aprobado precio sin cambios
#                                    AC=Aprobado riesgo y precio con cambios
#                                    IC=Aprobado riesgo con cambios
#                                    PC=Aprobado precio con cambios
#                                    D=Denegada
#                                    C=Cierre sin contrato
#                                    P=Pendiente revisin solicitud
#                                     (Si envio de oficina a otra unidad para sancin)
#                                    R=Reenvio a otra unidad sancionadora
#                                     (Si envio desde unidades sancionadoras)
        CAMPO cod_tmotcierr    375:2     Motivo del Cierre Sin Form.        9(2)
#                                    01=Cambio colaborador
#                                    02=Cambio importe
#                                    03=Cambio intervinientes
#                                    04=Cambio tipo de interes
#                                    05=Exceso de documentacin
#                                    06=La docu. no corresponde con los datos
#                                    07=No firman todos los intervinientes
#                                    08=No le interesa al cliente
#                                    09=No le interesa al comercio
#                                    10=Otra financiacin
#                                    11=Pago al contado
#                                    12=Por la oficina
#                                    13=Tipo de interes
#                                    14=Varios-Incidencias
        CAMPO cod_emplesup     377:8     Matricula Empleado Formalizador   X(8)
        CAMPO fec_supervis     385:10    Fecha de Formalizacion           X(10)
        CAMPO hsm_supervis     395:8     Hora de Formalizacion             X(8)
        CAMPO cod_tsupervi     403:1     Tipo de Formalizacion             X(1)
#                                     P=Dejar pendiente
#                                     F=Contratar y poner en vigor
#                                     T=Inicio proceso de formalizacin
#                                     C=Cerrar sin formalizar
#                                     N=?
#                                     E=Nuevo Estudio
        CAMPO cod_tdestino     404:1     Destino si solic. env. a Sancion  X(1)
#                                     T=Regional/Territorial
#                                     A=Administracin central
#                                     P=Propia oficina
#                                     C=Asignar Sucursal
#                                     H=Finanzia


###########################################################################
#    T I T U L A R E S  Y  R E S T O  D E  P A R T I C I P E S            #
#    =========================================================            #
###########################################################################

        REPITE  num_ocurr1  VECES  405:19

                CAMPO cclien         1:9  Codigo de Cliente             9(9)
                CAMPO ctippe        10:3  Relacion del Participe        x(3)
                CAMPO qty_qnumor    13:4  Numero de Orden ( Automatico) 9(4)
                CAMPO cod_tiprel    17:3  Tipo de relacin con 1 tit.  X(3)

        FINREPITE


###########################################################################
#                     C  O  N  D  I  C  I  O  N  E  S                     #
#                     ===============================                     #
###########################################################################

        REPITE  num_ocurr2a  VECES    ?:5

                   CAMPO cod_concepto    1:4  Codigo de concepto           9(4)
                   CAMPO xsn_exceptua    5:1  Indicador de exceptuabilidad X(1)
#                                              S=Exceptuable
#                                              N=No exceptuable
        FINREPITE

        REPITE  num_ocurr2b VECES ?:58

                   CAMPO cod_concept1    1:4  Codigo de concepto          9(4)
                   CAMPO cod_elemento    5:4  Codigo de elemento          9(4)
                   CAMPO cod_claselem    9:4  Clase de elemento           9(4)
#                                    0001=Switch (1 posicion alfanumerica)
#                                    0002=Numerico (13 enteros y 2 decimales)
#                                    0003=Set (8 posiciones alfanumericas)
#                                    0004=Numerico (4 enteros)
#                                    0005=Fecha (10 posiciones alfanumericas)
#                                    0007=Porcentaje (4 enteros y 8 decimales)
#                                    0009=Numerico (13 enteros)
                   CAMPO xsn_signo      13:1  Signo de campos numericos   X(1)
#                                                 P=Positivo
#                                                 N=negativo
                   CAMPO cod_valoralf   14:8  Valor alfanumerico          X(8)
#                                                Clases 0001 y 0003
                   # Valor importe     9(13)V9(2)
                   NUMERICO cod_valornum  22:15:2
#                                                Clases 0002,0004 y 0009
                   CAMPO cod_valorfec   37:10  Valor fecha               X(10)
#                                                Clase 0005
                   # Valor porcentaje    9(4)V9(8)
                   NUMERICO cod_valorpor 47:12:8
#                                                Clase 0007

              FINREPITE


###########################################################################
#                    GARANTES E INFORMACION COMPLEMENTARIA                #
#   ==================================================================    #
###########################################################################

        REPITE  num_ocurr3      VECES    ?:36

                   CAMPO cclieng        1:9  Codigo de cliente             9(9)
                   CAMPO fec_fvirante  10:10 Fin de vigencia del garante  X(10)         x(5)
                   CAMPO cod_tgaranti  20:1  Respon. garan. ante el riesgo X(1)
#                                             S=Solidaria
#                                             M=Mancomunada
                   CAMPO xsn_informad1 21:1  Indicador si informado        X(1)
                   CAMPO por_garantiz  22:3  Porcent. garanti sobre lim.   9(3)
                   CAMPO xsn_informad2 25:1  Indicador si informado        X(1)
                   CAMPO qty_solvenci  26:11 Solvencia                    9(11)

       FINREPITE

#

###########################################################################
#                    GARANTIAS APORTADAS POR EL GARANTE                   #
#                 ===========================================             #
###########################################################################

        REPITE  num_ocurr4  VECES    ?:22

                   CAMPO cclieng1         1:9  Codigo de cliente           9(9)
                   CAMPO cod_garantia    10:3  Codigo de garantia          X(3)
                   CAMPO fec_fvgartia    13:10 Fec.fin vigen.garantia     X(10)

        FINREPITE

#

###########################################################################
#                       GARANTIAS DE TITULARES                            #
#    =================================================================    #
###########################################################################

        REPITE  num_ocurr5  VECES    ?:24

                   CAMPO cod_garantia1    1:3   Codigo de garantia           X(3)
                   CAMPO qty_garantia     4:11  Importe garantizado         9(11)
                   CAMPO fec_fvrantia1   15:10  Fin vigencia garantia       X(10)

        FINREPITE

#

###########################################################################
#                            COMENTARIOS                                  #
#                        ======================                           #
###########################################################################

        REPITE  num_ocurr6  VECES    ?:85

                   CAMPO cod_tcomenta     1:1   Tipo de comentario           X(1)
#                                                 G=A garantes
#                                                 T=A garantias
#                                                 S=A solicitud
                   CAMPO num_orden        2:4   Num orden                    9(4)
                   CAMPO cod_dcomenta     6:80  Descrpcion comentarios      X(80)

       FINREPITE

#

###########################################################################
#                              CLIENTES                                   #
#                        =====================                            #
###########################################################################

        REPITE  num_ocurr7  VECES    ?:321

                   CAMPO cod_cclien1      1:9   Cdigo de cliente            9(9)
                   CAMPO cod_ctipcl      10:1   Clase tipo identificativo    X(1)
                   CAMPO cod_cdnitr      11:10  DNI/NIF/CIF/PASAPORTE/TR    X(10)
                   CAMPO des_dnombr      21:60  Nombre                      X(60)
                   CAMPO des_dapel1      81:60  Apellido 1                  X(60)
                   CAMPO des_dapel2     141:60  Apellido 2                  X(60)
                   CAMPO cod_csecli     201:1   Segmento del cliente        X(01)
                   CAMPO cod_sector     202:4   Sector del cliente          9(04)
                   CAMPO cod_subsectr   206:4   Subsector del cliente       9(04)
                   CAMPO fec_nacimi     210:10  Fecha de nacimiento cliente X(10)
                   CAMPO cod_ccnae      220:4   cnae                        9(04)
                   CAMPO des_ddomif     224:36  Domicilio fiscal            X(36)
                   CAMPO des_dplaza     260:28  Plaza                       X(28)
                   CAMPO cod_cdipos     288:5   Codigo postal               9(05)
                   CAMPO cod_dprovi     293:20  Provincia                   X(20)
                   CAMPO cod_cpais      313:4   Pais                        9(04)
                   CAMPO cod_cno        317:4   CNO                         9(04)
                   CAMPO cod_clocu      321:1   Tipo de ocupacin           X(01)

        FINREPITE

#

###########################################################################
#                      ESTUDIOS REALIZADOS                                #
#              =====================================                      #
###########################################################################

        REPITE  num_ocurr8  VECES    ?:9

                   CAMPO cod_estudio    1:9  Cod. estudio realizado       9(9)

        FINREPITE

#

###########################################################################
#                             RENOVACION                                  #
#                  ==================================                     #
###########################################################################

        REPITE  num_ocurr9  VECES    ?:22

                   CAMPO cod_bancov1      1:4  Banco relacionado con cliente 9(4)
                   CAMPO cod_oficinav1    5:4  Oficina relacionada cliente   9(4)
                   CAMPO cod_contrapa1    9:4  Codigo de contrapartida       9(4)
                   CAMPO num_folio1      13:10 Numero de propuesta          9(10)

        FINREPITE

#

###########################################################################
#                         COLABORADOR                                     #
#              ==================================                         #
###########################################################################

        REPITE  num_ocurr10  VECES    ?:26

                   CAMPO cod_bancov2   1:4  Banco                         9(04)
                   CAMPO cod_oficinav2 5:4  Oficina                       9(04)
                   CAMPO cod_contrapa2 9:4  codigo de contrapartida       9(04)
                   CAMPO num_folio2   13:14 Numero de folio               9(14)

        FINREPITE

#


###########################################################################
#                          PLAN DE AMORTIZACION                           #
#                          =====================                          #
###########################################################################

        REPITE  num_ocurr11  VECES    ?:25

                   CAMPO fec_amortiza     1:10   Fecha de amortizacion  X(10)
                   # Importe amortizacion   9(13)V9(2)           9(4)
                   NUMERICO qty_amortiza 11:15:2

        FINREPITE

#

###########################################################################
#                           PLAN DE DISPOSICION                           #
#              ===============================================            #
###########################################################################

        REPITE  num_ocurr12  VECES    ?:25

                   CAMPO fec_disposic     1:10   Fecha de disposicion X(10)
                   # Importe disposicion  9(13)V9(2)
                   NUMERICO qty_disposic 11:15:2

        FINREPITE

###########################################################################
#                             CUOTAS EXTRAS                               #
#              ===============================================            #
###########################################################################

        REPITE  num_ocurr13  VECES    ?:25

                CAMPO fec_cuotaext      1:10   Fecha cuota extra   X(10)
                # Importe cuota extra 9(13)V9(2)
                NUMERICO qty_cuotaext  11:15:2

        FINREPITE

###########################################################################
#                          CUOTAS PROPORCIONALES                          #
#              ===============================================            #
###########################################################################

        REPITE  num_ocurr14  VECES    ?:25

                CAMPO fec_cuotapro     1:10   Fecha cuota proporcional X(10)
                # Importe cuota proporcio. 9(13)V9(2)
                NUMERICO qty_cuotapro 11:15:2

        FINREPITE

###########################################################################
#                               PLAZO / TIPO                              #
#              ===============================================            #
###########################################################################

        REPITE  num_ocurr15  VECES    ?:16

                CAMPO cod_plazo         1:4     Cdigo de plazo         9(4)
                # Proporcin            9(4)v9(8)
                NUMERICO por_tipo2      5:12:8

        FINREPITE

###########################################################################
#                               DOCUMENTOS                                #
#              ===============================================            #
###########################################################################

        REPITE  num_ocurr16  VECES    ?:91

                CAMPO cod_tipologi      1:1     Cdigo de plazo         X(1)
                CAMPO cod_tdocumen      2:4     Tipo de documento       9(4)
                CAMPO cod_documene      6:60    Documento especfico    X(60)
                CAMPO cod_cclien        66:9    Cdigo de cliente       9(9)
                CAMPO fec_entrega       75:10   Fecha de estado         X(10)
                CAMPO cod_estado        85:1    Estado del documento    X(1)
#                                               E=Entrada
#                                               P=Pendiente
#                                               R=Requerido
#                                               X=Entregado y Contrastado
#                                               C=Contrastado
#                                               B=Desvinculado
                CAMPO cod_mesanosi      86:6    Mes y ao del documento X(6)

        FINREPITE

RECIBE

        CAMPO ctrans             1:8    Nombre de la transaccion
        CAMPO fin_trn           25:1    Fin de la transaccin
        CAMPO numseg            26:4    Numero de Orden del Segmento      X(29)
#
        CAMPO tipo              30:2    Tipo                               9(2)
        CAMPO subtipo           32:2    Subtipo                            9(2)
        CAMPO version           34:2    Versin de aplicacin              9(2)
        CAMPO b_ofi             36:8    Banco CSB y oficina del terminal   9(8)
        CAMPO userid            44:8    Usuario                            X(8)
        CAMPO cod_idioma        52:2    idioma                             9(2)
#                                         10=Castellano

        CAMPO cretor            54:4    Cdigo de retorno                  X(4)
#                                       "    " Ok
#                                        BE Error BD mensajes
#                                        MI Mensaje inexistente
#                                        DD Demasiadas rdenes de acotar
#                                           (mas los que se puedan dar)
        CAMPO mensaje           58:50   Mensaje                           X(50)
        TIPO  tip_datos        108:2    Tipo de salida de informacin      9(2)

#                                          00= Salida sin informacin
#                                          01= Salida con datos sin error
#                                          02= Salida con datos de error
#                                        --------------------------->>>   X(109)
        PARA TIPO 00
        PARA TIPO 01

        CAMPO cod_bancor    110:4    Banco                             9(4)
        CAMPO cod_oficinar  114:4    Oficina                           9(4)
        CAMPO cod_contrapa  118:4    Codigo de contrapartida           9(4)
        CAMPO num_propuestr 122:14   Num. propuesta                    9(8)

        PARA TIPO 02

        CAMPO cod_bancor    110:4    Banco                             9(4)
        CAMPO cod_oficinar  114:4    Oficina                           9(4)
        CAMPO cod_contrapa  118:4    Cdigo de Contrapartida           9(4)
        CAMPO cod_cfolio    122:14   Nmero de folio                   9(14)

        CAMPO num_ocurr1    136:4
        CAMPO num_ocurr2    140:4
        CAMPO num_ocurr3    144:4
        CAMPO num_ocurr4    148:4
        CAMPO num_ocurr5    152:4
        CAMPO num_ocurr6    156:4
        CAMPO num_ocurr7    160:4
        CAMPO num_ocurr8    164:4
        CAMPO num_ocurr9    168:4

           REPITE num_ocurr1 VECES 172:52

                  CAMPO cod_bloquew0   ?:2
                  CAMPO des_mensaje0   ?:50

           FINREPITE

           REPITE num_ocurr2 VECES ?:61

                  CAMPO cod_bloquew1   ?:2
                  CAMPO cclien1_s      ?:9
                  CAMPO des_mensaje1   ?:50

           FINREPITE

           REPITE num_ocurr3 VECES ?:52

                  CAMPO cod_bloquew2   ?:2
                  CAMPO des_mensaje2   ?:50

           FINREPITE

           REPITE num_ocurr4 VECES ?:60

                  CAMPO cod_bloquew3   ?:2
                  CAMPO cod_concepto   ?:4
                  CAMPO cod_elemento   ?:4
                  CAMPO des_mensaje3   ?:50
           FINREPITE

           REPITE num_ocurr5 VECES ?:68

                  CAMPO cod_bloquew4   ?:2
                  CAMPO cod_cclien     ?:9
                  CAMPO cod_ctippe     ?:3
                  CAMPO qty_qnumor     ?:4
                  CAMPO des_mensaje4   ?:50

           FINREPITE

           REPITE num_ocurr6 VECES ?:55

                  CAMPO cod_bloquew5   ?:2
                  CAMPO cod_garantia   ?:3
                  CAMPO des_mensaje5   ?:50

           FINREPITE

           REPITE num_ocurr7 VECES ?:53

                  CAMPO cod_bloquew6   ?:2
                  CAMPO cod_tcomenta   ?:1
                  CAMPO des_mensaje6   ?:50

           FINREPITE

           REPITE num_ocurr8 VECES ?:52

                  CAMPO cod_bloquew7   ?:2
                  CAMPO des_mensaje7   ?:50

           FINREPITE

           REPITE num_ocurr9 VECES ?:78

                  CAMPO cod_bloquew8   ?:2
                  CAMPO cod_bancov     ?:4
                  CAMPO cod_oficinav   ?:4
                  CAMPO cod_contrapa   ?:4
                  CAMPO num_folio      ?:14
                  CAMPO des_mensaje7   ?:50

           FINREPITE


       FINTIPO
###########################################################################
#  Fecha: 20 de Abril de 1998                                             #
###########################################################################
#  ADPPT158: Sancin de propuestas para los flujos de consumo y tarjetas  #
###########################################################################

TRANSACCION ADPPT158 ENVIA 20000 RECIBE ?

ENVIA

        CAMPO ident             1:29   Identificacin de la transaccin   X(29)

#                                   1:8   Cdigo de transaccin            X(8)
#                                   9:1   Blanco                           X(1)
#                                  10:4   HHMM                             9(4)
#                                  14:3   Nmero de secuencia              9(3)
#                                  17:1   Siempre [                        X(1)
#                                  18:2   Puesto                           9(2)
#                                  20:4   Aplicacin que hace la peticin  X(4)
#                                  24:1   Siempre ]                        X(1)
#                                  25:1   Fin de transaccin (1/0)         9(1)
#                                  26:4   Nmero de orden del segmento IMS 9(4)

        CAMPO tipo              30:2    Tipo                               9(2)
        CAMPO subtipo           32:2    Subtipo                            9(2)
        CAMPO version           34:2    Versin de aplicacin              9(2)
        CAMPO b_ofi             36:8    Banco CSB y oficina del terminal   9(8)
        CAMPO userid            44:8    Usuario                            X(8)
        CAMPO cod_idioma        52:2    idioma                             9(2)
#                                         10=Castellano

#                                               ----------------->>>>>    X(24)


###########################################################################
#       DATOS DICCIONARIO DE LOS BLOQUES QUE VAN EN LA TRN.               #
#       ===================================================               #
###########################################################################

        CAMPO num_ocurr1        54:4     Titulares y Resto de Participes  9(04)
        CAMPO num_ocurr2a       58:4     Condiciones: Conceptos           9(04)
        CAMPO num_ocurr2b       62:4     Condiciones: Elementos           9(04)
        CAMPO num_ocurr3        66:4     Garantes e informacin complem.  9(04)
        CAMPO num_ocurr4        70:4     Garantas de garantes            9(04)
        CAMPO num_ocurr5        74:4     Garantas de titulares           9(04)
        CAMPO num_ocurr6        78:4     Comentarios                      9(04)
        CAMPO num_ocurr7        82:4     Intervinientes                   9(04)
        CAMPO num_ocurr8        86:4     Estudios realizados              9(04)
        CAMPO num_ocurr9        90:4     Renovacin                       9(04)
        CAMPO num_ocurr10       94:4     Colaboradores                    9(04)
        CAMPO num_ocurr11       98:4     Plan de amortizacin             9(04)
        CAMPO num_ocurr12      102:4     Plan de disposicin              9(04)
        CAMPO num_ocurr13      106:4     Cuotas extras                    9(04)
        CAMPO num_ocurr14      110:4     Cuotas proporcionales            9(04)
        CAMPO num_ocurr15      114:4     Plazo/Tipo                       9(04)
        CAMPO num_ocurr16      118:4     Documentos                       9(04)

###########################################################################
#               D A T O S  I D E N T I F I C A T I V O S                  #
#              =========================================                  #
###########################################################################


        CAMPO cod_bancov       122:4     Cdigo de Banco                   9(4)
        CAMPO cod_oficinav     126:4     Cdigo de Oficina                 9(4)
        CAMPO num_anopropu     130:4     Ao de propuesta                  9(4)
        CAMPO cod_contrapa     134:4     Cdigo de Contrapartida           9(4)
        CAMPO num_folio        138:10    Nmero de folio                  9(10)
        CAMPO cod_bancosol     148:4     Cdigo de Banco                   9(4)
        CAMPO cod_oficosol     152:4     Cdigo de Oficina                 9(4)
        CAMPO cod_tunidad      156:1     Tipo de oficina proponente        X(1)
        CAMPO cod_emplesol     157:8     Matrcula del proponente          9(8)
        CAMPO fec_solicitu     165:10    Fecha de solicitud AAAA-MM-DD    X(10)
        CAMPO fec_comite       175:10    Fecha analizar comite oficina    X(10)
        CAMPO fec_pdte         185:10    Fecha dejar pendiente            X(10)
        CAMPO cod_creador      195:8     Matricula Empl./Marcajista        x(8)
        CAMPO cclien1          203:9     Cod. Cliente   Titular 1          9(9)
        CAMPO cod_producto     212:4     Codigo de Producto                9(4)
        CAMPO cod_subprodu     216:4     Codigo de subproducto             9(4)
        CAMPO cod_categoria    220:4     Cdigo de categora               9(4)
        CAMPO cod_taplicac     224:1     Tipo de aplicacin                X(1)
        CAMPO cod_sector       225:4     Codigo de sector                  9(4)
        CAMPO cod_subsectr     229:4     Codigo de subsector               9(4)
        CAMPO cod_colect       233:4     Cdigo de colectivo               9(4)
        CAMPO cod_oferta       237:9     Codigo de campaa/convenio        9(9)
        CAMPO xti_tipofer      246:1     Indicador campaa/convenio        X(1)
#                                              C=campaa
#                                              O=convenio
        CAMPO xti_tipcamp      247:1     Indicador tipo de campaa         X(1)
#                                              A=Anticipo renta
#                                              F=Finalista
#                                              P=Patrimonial
        CAMPO xsn_resclie      248:1     Indicador de cliente              X(1)
#                                              ' ' = No tiene
#                                              C = Colaborador
#                                              M = Clientes Marketing
        CAMPO xsn_preconce     249:1     Indicador campaa/convenio
#                                              C=Colaborador
#                                              M=Clientes de marketing
        CAMPO cod_moneda       250:3     Codigo de moneda                  X(3)
        CAMPO cod_destino      253:4     Destino de laoperacion            9(4)
        CAMPO cod_subdesti     257:4     Subdestino de la operacion        9(4)
        CAMPO cod_marca        261:4     Codigo de nmarca                  9(4)
        CAMPO cod_modelo       265:4     Codigo de modelo                  9(4)
        CAMPO des_modelo       269:30    Descripcion auxiliar del modelo  X(30)
        CAMPO cod_bien         299:9     Cdigo de bien                    9(9)
        CAMPO num_bienes       308:1     Numero de bien                    9(1)
        # Valoracion del bien         9(13)V9(2)
        NUMERICO qty_impbien   309:15:2
        CAMPO xsn_nuevo        324:1     Indicador naturaleza              X(1)
        CAMPO des_matricula    325:10    Matricula del bien               X(10)
        CAMPO qty_anoanti      335:4     Ao de antigedad                 9(4)
        CAMPO cod_aconteci     339:4     Cdigo de Acontecimeinto          9(4)
        CAMPO cod_tsolicit     343:1     Tipo de solicitud propuesta       X(1)
#                                    N=Nueva propuesta
#                                    O=Operacion especial sobre limite aprobado
#                                    R=Renovacion de propuesta
#                                    M=Modificacion sobre propuesta
        CAMPO xti_estado       344:1     Estado de la propuesta            X(1)
#                                    I=Iniciada
#                                        cod_tsolicit=N o O
#                                    R=Renovacion de la propuesta
#                                        cod_tsolicit=R
#                                    M=Modificacion sobre propuesta
#                                        cod_tsolicit=M
#                                    E=En nuevo estudio
#                                        cod_tsolicit=N o O
        CAMPO cod_emplesan     345:8     Matricula Empleado sancionador    X(8)
        CAMPO fec_sancion      353:10    Fecha de sancion                  x(10)
#                                            Formato= AAAA-MM-DD
        CAMPO cod_tsancion     363:2     Tipo de Sancion                    x(2)
#                                    AS=Aprobado riesgo y precio sin cambios
#                                    IS=Aprobado riesgo sin cambios
#                                    PS=Aprobado precio sin cambios
#                                    AC=Aprobado riesgo y precio con cambios
#                                    IC=Aprobado riesgo con cambios
#                                    PC=Aprobado precio con cambios
#                                    D=Denegada
#                                    C=Cierre sin contrato
#                                    P=Pendiente revisin solicitud
#                                     (Si envio de oficina a otra unidad para sancin)
#                                    R=Reenvio a otra unidad sancionadora
#                                     (Si envio desde unidades sancionadoras)
        CAMPO cod_tmotcierr    365:2     Motivo del Cierre Sin Form.        9(2)
#                                    01=Cambio colaborador
#                                    02=Cambio importe
#                                    03=Cambio intervinientes
#                                    04=Cambio tipo de interes
#                                    05=Exceso de documentacin
#                                    06=La docu. no corresponde con los datos
#                                    07=No firman todos los intervinientes
#                                    08=No le interesa al cliente
#                                    09=No le interesa al comercio
#                                    10=Otra financiacin
#                                    11=Pago al contado
#                                    12=Por la oficina
#                                    13=Tipo de interes
#                                    14=Varios-Incidencias
        CAMPO cod_emplesup     367:8     Matricula Empleado Formalizador   X(8)
        CAMPO fec_supervis     375:10    Fecha de Formalizacion           X(10)
        CAMPO cod_tsupervi     385:1     Tipo de Formalizacion             X(1)
#                                     P=Dejar pendiente
#                                     F=Contratar y poner en vigor
#                                     T=Inicio proceso de formalizacin
#                                     C=Cerrar sin formalizar
#                                     N=?
#                                     E=Nuevo Estudio
        CAMPO cod_tdestino     386:1     Destino si solic. env. a Sancion  X(1)
#                                     T=Regional/Territorial
#                                     A=Administracin central
#                                     P=Propia oficina
#                                     C=Asignar Sucursal
#                                     H=Finanzia


###########################################################################
#    T I T U L A R E S  Y  R E S T O  D E  P A R T I C I P E S            #
#    =========================================================            #
###########################################################################

        REPITE  num_ocurr1  VECES  387:19

                CAMPO cclien         1:9  Codigo de Cliente             9(9)
                CAMPO ctippe        10:3  Relacion del Participe        x(3)
                CAMPO qty_qnumor    13:4  Numero de Orden ( Automatico) 9(4)
                CAMPO cod_tiprel    17:3  Tipo de relacin con 1 tit.  X(3)

        FINREPITE


###########################################################################
#                     C  O  N  D  I  C  I  O  N  E  S                     #
#                     ===============================                     #
###########################################################################

        REPITE  num_ocurr2a  VECES    ?:5

                   CAMPO cod_concepto    1:4  Codigo de concepto           9(4)
                   CAMPO xsn_exceptua    5:1  Indicador de exceptuabilidad X(1)
#                                              S=Exceptuable
#                                              N=No exceptuable
        FINREPITE

        REPITE  num_ocurr2b VECES ?:58

                   CAMPO cod_concept1    1:4  Codigo de concepto          9(4)
                   CAMPO cod_elemento    5:4  Codigo de elemento          9(4)
                   CAMPO cod_claselem    9:4  Clase de elemento           9(4)
#                                    0001=Switch (1 posicion alfanumerica)
#                                    0002=Numerico (13 enteros y 2 decimales)
#                                    0003=Set (8 posiciones alfanumericas)
#                                    0004=Numerico (4 enteros)
#                                    0005=Fecha (10 posiciones alfanumericas)
#                                    0007=Porcentaje (4 enteros y 8 decimales)
#                                    0009=Numerico (13 enteros)
                   CAMPO xsn_signo      13:1  Signo de campos numericos   X(1)
#                                                 P=Positivo
#                                                 N=negativo
                   CAMPO cod_valoralf   14:8  Valor alfanumerico          X(8)
#                                                Clases 0001 y 0003
                   # Valor importe     9(13)V9(2)
                   NUMERICO cod_valornum  22:15:2
#                                                Clases 0002,0004 y 0009
                   CAMPO cod_valorfec   37:10  Valor fecha               X(10)
#                                                Clase 0005
                   # Valor porcentaje    9(4)V9(8)
                   NUMERICO cod_valorpor 47:12:8
#                                                Clase 0007

              FINREPITE


###########################################################################
#                    GARANTES E INFORMACION COMPLEMENTARIA                #
#   ==================================================================    #
###########################################################################

        REPITE  num_ocurr3      VECES    ?:36

                   CAMPO cclieng        1:9  Codigo de cliente             9(9)
                   CAMPO fec_fvirante  10:10 Fin de vigencia del garante  X(10)         x(5)
                   CAMPO cod_tgaranti  20:1  Respon. garan. ante el riesgo X(1)
#                                             S=Solidaria
#                                             M=Mancomunada
                   CAMPO xsn_informad1 21:1  Indicador si informado        X(1)
                   CAMPO por_garantiz  22:3  Porcent. garanti sobre lim.   9(3)
                   CAMPO xsn_informad2 25:1  Indicador si informado        X(1)
                   CAMPO qty_solvenci  26:11 Solvencia                    9(11)

       FINREPITE

#

###########################################################################
#                    GARANTIAS APORTADAS POR EL GARANTE                   #
#                 ===========================================             #
###########################################################################

        REPITE  num_ocurr4  VECES    ?:22

                   CAMPO cclieng1         1:9  Codigo de cliente           9(9)
                   CAMPO cod_garantia    10:3  Codigo de garantia          X(3)
                   CAMPO fec_fvgartia    13:10 Fec.fin vigen.garantia     X(10)

        FINREPITE

#

###########################################################################
#                       GARANTIAS DE TITULARES                            #
#    =================================================================    #
###########################################################################

        REPITE  num_ocurr5  VECES    ?:24

                   CAMPO cod_garantia1    1:3   Codigo de garantia           X(3)
                   CAMPO qty_garantia     4:11  Importe garantizado         9(11)
                   CAMPO fec_fvrantia1   15:10  Fin vigencia garantia       X(10)

        FINREPITE

#

###########################################################################
#                            COMENTARIOS                                  #
#                        ======================                           #
###########################################################################

        REPITE  num_ocurr6  VECES    ?:85

                   CAMPO cod_tcomenta     1:1   Tipo de comentario           X(1)
#                                                 G=A garantes
#                                                 T=A garantias
#                                                 S=A solicitud
                   CAMPO num_orden        2:4   Num orden                    9(4)
                   CAMPO cod_dcomenta     6:80  Descrpcion comentarios      X(80)

       FINREPITE

#

###########################################################################
#                              CLIENTES                                   #
#                        =====================                            #
###########################################################################

        REPITE  num_ocurr7  VECES    ?:321

                   CAMPO cod_cclien1      1:9   Cdigo de cliente            9(9)
                   CAMPO cod_ctipcl      10:1   Clase tipo identificativo    X(1)
                   CAMPO cod_cdnitr      11:10  DNI/NIF/CIF/PASAPORTE/TR    X(10)
                   CAMPO des_dnombr      21:60  Nombre                      X(60)
                   CAMPO des_dapel1      81:60  Apellido 1                  X(60)
                   CAMPO des_dapel2     141:60  Apellido 2                  X(60)
                   CAMPO cod_csecli     201:1   Segmento del cliente        X(01)
                   CAMPO cod_sector     202:4   Sector del cliente          9(04)
                   CAMPO cod_subsectr   206:4   Subsector del cliente       9(04)
                   CAMPO fec_nacimi     210:10  Fecha de nacimiento cliente X(10)
                   CAMPO cod_ccnae      220:4   cnae                        9(04)
                   CAMPO des_ddomif     224:36  Domicilio fiscal            X(36)
                   CAMPO des_dplaza     260:28  Plaza                       X(28)
                   CAMPO cod_cdipos     288:5   Codigo postal               9(05)
                   CAMPO cod_dprovi     293:20  Provincia                   X(20)
                   CAMPO cod_cpais      313:4   Pais                        9(04)
                   CAMPO cod_cno        317:4   CNO                         9(04)
                   CAMPO cod_clocu      321:1   Tipo de ocupacin           X(01)

        FINREPITE

#

###########################################################################
#                      ESTUDIOS REALIZADOS                                #
#              =====================================                      #
###########################################################################

        REPITE  num_ocurr8  VECES    ?:9

                   CAMPO cod_estudio    1:9  Cod. estudio realizado       9(9)

        FINREPITE

#

###########################################################################
#                             RENOVACION                                  #
#                  ==================================                     #
###########################################################################

        REPITE  num_ocurr9  VECES    ?:26

                   CAMPO cod_bancov1      1:4  Banco relacionado con cliente 9(4)
                   CAMPO cod_oficinav1    5:4  Oficina relacionada cliente   9(4)
                   CAMPO cod_contrapa1    9:4  Codigo de contrapartida       9(4)
                   CAMPO num_folio1      13:14 Numero de propuesta          9(14)

        FINREPITE

#

###########################################################################
#                         COLABORADOR                                     #
#              ==================================                         #
###########################################################################

        REPITE  num_ocurr10  VECES    ?:26

                   CAMPO cod_bancov2   1:4  Banco                         9(04)
                   CAMPO cod_oficinav2 5:4  Oficina                       9(04)
                   CAMPO cod_contrapa2 9:4  codigo de contrapartida       9(04)
                   CAMPO num_folio2   13:14 Numero de folio               9(14)

        FINREPITE

#


###########################################################################
#                          PLAN DE AMORTIZACION                           #
#                          =====================                          #
###########################################################################

        REPITE  num_ocurr11  VECES    ?:25

                   CAMPO fec_amortiza     1:10   Fecha de amortizacion  X(10)
                   # Importe amortizacion   9(13)V9(2)           9(4)
                   NUMERICO qty_amortiza 11:15:2

        FINREPITE

#

###########################################################################
#                           PLAN DE DISPOSICION                           #
#              ===============================================            #
###########################################################################

        REPITE  num_ocurr12  VECES    ?:25

                   CAMPO fec_disposic     1:10   Fecha de disposicion X(10)
                   # Importe disposicion  9(13)V9(2)
                   NUMERICO qty_disposic 11:15:2

        FINREPITE

###########################################################################
#                             CUOTAS EXTRAS                               #
#              ===============================================            #
###########################################################################

        REPITE  num_ocurr13  VECES    ?:25

                CAMPO fec_cuotaext      1:10   Fecha cuota extra   X(10)
                # Importe cuota extra 9(13)V9(2)
                NUMERICO qty_cuotaext  11:15:2

        FINREPITE

###########################################################################
#                          CUOTAS PROPORCIONALES                          #
#              ===============================================            #
###########################################################################

        REPITE  num_ocurr14  VECES    ?:22

                CAMPO fec_cuotapro     1:10   Fecha cuota proporcional X(10)
                # Importe cuota proporcio. 9(12)V9(8)
                NUMERICO qty_cuotapro 11:12:8

        FINREPITE

###########################################################################
#                               PLAZO / TIPO                              #
#              ===============================================            #
###########################################################################

        REPITE  num_ocurr15  VECES    ?:16

                CAMPO cod_plazo         1:4     Cdigo de plazo         9(4)
                # Proporcin            9(4)v9(8)
                NUMERICO por_tipo2      5:12:8

        FINREPITE

###########################################################################
#                               DOCUMENTOS                                #
#              ===============================================            #
###########################################################################

        REPITE  num_ocurr16  VECES    ?:91

                CAMPO cod_tipologi      1:1     Cdigo de plazo         X(1)
                CAMPO cod_tdocumen      2:4     Tipo de documento       9(4)
                CAMPO cod_documene      6:60    Documento especfico    X(60)
                CAMPO cod_cclien        66:9    Cdigo de cliente       9(9)
                CAMPO fec_entrega       75:10   Fecha de estado         X(10)
                CAMPO cod_estado        85:1    Estado del documento    X(1)
#                                               E=Entrada
#                                               P=Pendiente
#                                               R=Requerido
#                                               X=Entregado y Contrastado
#                                               C=Contrastado
#                                               B=Desvinculado
                CAMPO cod_mesanosi      86:6    Mes y ao del documento X(6)

        FINREPITE

RECIBE

        CAMPO ctrans             1:8    Nombre de la transaccion
        CAMPO fin_trn           25:1    Fin de la transaccin
        CAMPO numseg            26:4    Numero de Orden del Segmento      X(29)
#
        CAMPO tipo              30:2    Tipo                               9(2)
        CAMPO subtipo           32:2    Subtipo                            9(2)
        CAMPO version           34:2    Versin de aplicacin              9(2)
        CAMPO b_ofi             36:8    Banco CSB y oficina del terminal   9(8)
        CAMPO userid            44:8    Usuario                            X(8)
        CAMPO cod_idioma        52:2    idioma                             9(2)
#                                         10=Castellano

        CAMPO cretor            54:4    Cdigo de retorno                  X(4)
#                                       "    " Ok
#                                        BE Error BD mensajes
#                                        MI Mensaje inexistente
#                                        DD Demasiadas rdenes de acotar
#                                           (mas los que se puedan dar)
        CAMPO mensaje           58:50   Mensaje                           X(50)
        TIPO  tip_datos        108:2    Tipo de salida de informacin      9(2)

#                                          00= Salida sin informacin
#                                          01= Salida con datos sin error
#                                          02= Salida con datos de error
#                                        --------------------------->>>   X(109)
        PARA TIPO 00
        PARA TIPO 01

        CAMPO cod_bancor    110:4    Banco                             9(4)
        CAMPO cod_oficinar  114:4    Oficina                           9(4)
        CAMPO cod_contrapa  118:4    Codigo de contrapartida           9(4)
        CAMPO num_propuestr 122:14   Num. propuesta                    9(8)

        PARA TIPO 02

        CAMPO cod_bancor    110:4    Banco                             9(4)
        CAMPO cod_oficinar  114:4    Oficina                           9(4)
        CAMPO cod_contrapa  118:4    Cdigo de Contrapartida           9(4)
        CAMPO cod_cfolio    122:14   Nmero de folio                   9(14)

        CAMPO num_ocurr1    136:4
        CAMPO num_ocurr2    140:4
        CAMPO num_ocurr3    144:4
        CAMPO num_ocurr4    148:4
        CAMPO num_ocurr5    152:4
        CAMPO num_ocurr6    156:4
        CAMPO num_ocurr7    160:4
        CAMPO num_ocurr8    164:4
        CAMPO num_ocurr9    168:4

           REPITE num_ocurr1 VECES 172:52

                  CAMPO cod_bloquew0   ?:2
                  CAMPO des_mensaje0   ?:50

           FINREPITE

           REPITE num_ocurr2 VECES ?:61

                  CAMPO cod_bloquew1   ?:2
                  CAMPO cclien1_s      ?:9
                  CAMPO des_mensaje1   ?:50

           FINREPITE

           REPITE num_ocurr3 VECES ?:52

                  CAMPO cod_bloquew2   ?:2
                  CAMPO des_mensaje2   ?:50

           FINREPITE

           REPITE num_ocurr4 VECES ?:60

                  CAMPO cod_bloquew3   ?:2
                  CAMPO cod_concepto   ?:4
                  CAMPO cod_elemento   ?:4
                  CAMPO des_mensaje3   ?:50
           FINREPITE

           REPITE num_ocurr5 VECES ?:68

                  CAMPO cod_bloquew4   ?:2
                  CAMPO cod_cclien     ?:9
                  CAMPO cod_ctippe     ?:3
                  CAMPO qty_qnumor     ?:4
                  CAMPO des_mensaje4   ?:50

           FINREPITE

           REPITE num_ocurr6 VECES ?:55

                  CAMPO cod_bloquew5   ?:2
                  CAMPO cod_garantia   ?:3
                  CAMPO des_mensaje5   ?:50

           FINREPITE

           REPITE num_ocurr7 VECES ?:53

                  CAMPO cod_bloquew6   ?:2
                  CAMPO cod_tcomenta   ?:1
                  CAMPO des_mensaje6   ?:50

           FINREPITE

           REPITE num_ocurr8 VECES ?:52

                  CAMPO cod_bloquew7   ?:2
                  CAMPO des_mensaje7   ?:50

           FINREPITE

           REPITE num_ocurr9 VECES ?:78

                  CAMPO cod_bloquew8   ?:2
                  CAMPO cod_bancov     ?:4
                  CAMPO cod_oficinav   ?:4
                  CAMPO cod_contrapa   ?:4
                  CAMPO num_folio      ?:14
                  CAMPO des_mensaje8   ?:50

           FINREPITE


       FINTIPO
###########################################################################
#                                                                         #
#      Date: Junio 1998                                                   #
#  ADPPT305 Consulta de limites de cuenta contrato.                       #
###########################################################################

TRANSACCION ADPPT305 ENVIA 1024 RECIBE ? INDEXADO

ENVIA DELIMITANDO last

        CAMPO ident             1:29   Identificacin de la transaccin   X(29)

#                                   1:8   Cdigo de transaccin            X(8)
#                                   9:1   Blanco                           X(1)
#                                  10:4   HHMM                             9(4)
#                                  14:3   Nmero de secuencia              9(3)
#                                  17:1   Siempre [                        X(1)
#                                  18:2   Puesto                           9(2)
#                                  20:4   Aplicacin que hace la peticin  X(4)
#                                  24:1   Siempre ]                        X(1)
#                                  25:1   Fin de transaccin (1/0)         9(1)
#                                  26:4   Nmero de orden del segmento IMS 9(4)

        CAMPO tipo              30:2    Tipo                               9(2)
        CAMPO subtipo           32:2    Subtipo                            9(2)
        CAMPO version           34:2    Versin de aplicacin              9(2)
        CAMPO b_ofi             36:8    Banco CSB y oficina del terminal   9(8)
        CAMPO userid            44:8    Usuario                            X(8)
        CAMPO cod_idioma        52:2    idioma                             9(2)
#                                         10=Castellano

#                                               ----------------->>>>>    X(24)
#       A partir de aqu ir con separadores de final de campo

     # Cdigo de banco del contrato
     NUMERICO cod_cbanco                      !:4:0
     # Cdigo de oficina del contrato
     NUMERICO cod_cofici                      !:4:0
     # Cod. Contrapartida
     NUMERICO cod_contrapa                    !:4:0
     # numero de folio
     NUMERICO cod_cfolio                      !:14:0
     # PAN
     CAMPO  cod_pan

#                                               ----------------->>>>>    9(27)

RECIBE DELIMITANDO last

        CAMPO ctrans             1:8    Nombre de la transaccion
        CAMPO fin_trn           25:1    Fin de la transaccin
        CAMPO numseg            26:4    Numero de Orden del Segmento       X(29)
#
        CAMPO tipo              30:2    Tipo                               9(2)
        CAMPO subtipo           32:2    Subtipo                            9(2)
        CAMPO version           34:2    Versin de aplicacin              9(2)
        CAMPO b_ofi             36:8    Banco CSB y oficina del terminal   9(8)
        CAMPO userid            44:8    Usuario                            X(8)
        CAMPO cod_idioma        52:2    idioma                             9(2)
#                                         10=Castellano

        CAMPO cretor            54:4    Cdigo de retorno                  X(4)
#                                       "    " Ok
#                                        BE Error BD mensajes
#                                        MI Mensaje inexistente
#                                        DD Demasiadas rdenes de acotar
#                                           (mas los que se puedan dar)
        CAMPO mensaje           58:50   Mensaje                            X(50)
        TIPO  tip_datos        108:2    Tipo de salida de informacin      9(2)

#                                          00= Salida sin informacin
#                                          01= Salida con datos sin error
#                                          02= Salida con datos de error
#                                        --------------------------->>>   X(109)
        PARA TIPO 00
        PARA TIPO 01

#       A partir de aqu ir con separadores de final de campo

        # Importe de lmite de crdito
         NUMERICO  imp_limite           !:15:2
        # Importe de lmite de supercompra
         NUMERICO  imp_limsup           !:15:2

FINTIPO
###########################################################
#	Date: Mayo de 1998									#
#  ADPPT409: CONSULTA DE PUESTA EN VIGOR CONSUMO				#
###########################################################

TRANSACCION ADPPT409 ENVIA 10240 RECIBE ? INDEXADO

ENVIA DELIMITANDO last

        CAMPO ident             1:29   Identificacin de la transaccin   X(29)

#                                   1:8   Cdigo de transaccin            X(8)
#                                   9:1   Blanco                           X(1)
#                                  10:4   HHMM                             9(4)
#                                  14:3   Nmero de secuencia              9(3)
#                                  17:1   Siempre [                        X(1)
#                                  18:2   Puesto                           9(2)
#                                  20:4   Aplicacin que hace la peticin  X(4)
#                                  24:1   Siempre ]                        X(1)
#                                  25:1   Fin de transaccin (1/0)         9(1)
#                                  26:4   Nmero de orden del segmento IMS 9(4)
        CAMPO tipo              30:2    Tipo                               9(2)
        CAMPO subtipo           32:2    Subtipo                            9(2)
        CAMPO version           34:2    Versin de aplicacin              9(2)
        CAMPO b_ofi             36:8    Banco CSB y oficina del terminal   9(8)
        CAMPO userid            44:8    Usuario                            X(8)
        CAMPO cod_idioma        52:2    idioma                             9(2)
#                                         10=Castellano

#                                               ----------------->>>>>    X(24)
#       A partir de aqu ir con separadores de final de campo


	# Banco 9(04)
	CAMPO cod_banco
	# Oficina. 9(04)
	CAMPO cod_ofici
	# Contrapartida. 9(04)
	CAMPO cod_contrapa
	# Folio. 9(14)
	CAMPO cod_folio


RECIBE DELIMITANDO last

        CAMPO ctrans             1:8    Nombre de la transaccion
        CAMPO fin_trn             25:1    Fin de la transaccin
        CAMPO numseg            26:4    Numero de Orden del Segmento      X(29)
#
        CAMPO tipo              30:2    Tipo                               9(2)
        CAMPO subtipo           32:2    Subtipo                            9(2)
        CAMPO version           34:2    Versin de aplicacin              9(2)
        CAMPO b_ofi             36:8    Banco CSB y oficina del terminal   9(8)
        CAMPO userid            44:8    Usuario                            X(8)
        CAMPO cod_idioma        52:2    idioma                             9(2)
#                                         10=Castellano

        CAMPO cretor            54:4    Cdigo de retorno                  X(4)
#                                       "    " Ok
#                                        BE Error BD mensajes
#                                        MI Mensaje inexistente
#                                        DD Demasiadas rdenes de acotar
#                                           (mas los que se puedan dar)
        CAMPO mensaje           58:50   Mensaje                           X(50)
        TIPO  tip_datos        108:2    Tipo de salida de informacin      9(2)
#                                          00= Salida sin informacin
#                                          01= Salida con datos sin error
#                                        --------------------------->>>   X(109)
        PARA TIPO 00

        PARA TIPO 01

	# Banco 9(04)
	CAMPO cod_banco
	# Oficina. 9(04)
	CAMPO cod_ofici
	# Contrapartida. 9(04)
	CAMPO cod_contrapa
	# Folio. 9(14)
	CAMPO cod_folio
	# Canal distribucin. 9(04)
	CAMPO cod_ofisol
	# Producto financiero. 9(04)
	CAMPO cod_producto
	# Importe disposicin.
	NUMERICO qty_impodis	!:13:2
	# Importe lmite.
	NUMERICO qty_importe	!:13:2
	# Fecha vencimiento. X(10)
	CAMPO fec_vencto
	# Divisa. X(03)
	CAMPO cod_divisa
	# Idioma. 9(04)
	CAMPO cod_idioma
	# Fecha vigor. X(10)
	CAMPO fec_vigor
	# Banco cuenta abono. 9(04)
	CAMPO cod_bancc
	# Oficina cuenta abono. 9(04)
	CAMPO cod_oficc
	# Contrapartida cuenta abono. 9(04)
	CAMPO cod_contrapc
	# Folio cuenta abono. 9(04)
	CAMPO cod_folioc
	# Forma de pago. 9(04)
	CAMPO cod_fpago		
	# Indicador colaborador. X(01)
	CAMPO ind_colabor	
	# Indicador de seguro. X(01)
	CAMPO ind_seguro
	# Cdigo de cliente. 9(09)
	CAMPO cod_cclien
	# Identificacin fiscal. X(10)
	CAMPO cod_cdnitr
	# Nombre. X(60)
	CAMPO des_dnombre
	# Primer apellido. X(60)	
	CAMPO des_dapel1
	# Segundo apellido. X(60)	
	CAMPO des_dapel2
	# Fecha impr. pliza. X(10)
	CAMPO fec_fechaimpr
	# Descripcin forma de pago. X(60)	
	CAMPO des_fpago
	# Descripcin forma de pago abreviada. X(20)	
	CAMPO des_fabrev

        FINTIPO
###########################################################################
# Creacin:    28 de Agosto de 1998                                       #
###########################################################################
#  ADPPT410: Peticion Cambio Oficina de Inversion  (PROPUESTAS/CONTRATOS) #
#                     Oficinas tipo CMD                                   #
###########################################################################

TRANSACCION ADPPT410 ENVIA 100 RECIBE ? INDEXADO

ENVIA DELIMITANDO last

        CAMPO ident             1:29   Identificacin de la transaccin   X(29)

#                                   1:8   Cdigo de transaccin            X(8)
#                                   9:1   Blanco                           X(1)
#                                  10:4   HHMM                             9(4)
#                                  14:3   Nmero de secuencia              9(3)
#                                  17:1   Siempre [                        X(1)
#                                  18:2   Puesto                           9(2)
#                                  20:4   Aplicacin que hace la peticin  X(4)
#                                  24:1   Siempre ]                        X(1)
#                                  25:1   Fin de transaccin (1/0)         9(1)
#                                  26:4   Nmero de orden del segmento IMS 9(4)

        CAMPO tipo              30:2    Tipo                               9(2)
        CAMPO subtipo           32:2    Subtipo                            9(2)
        CAMPO version           34:2    Versin de aplicacin              9(2)
        CAMPO b_ofi             36:8    Banco CSB y oficina del terminal   9(8)
        CAMPO userid            44:8    Usuario                            X(8)
        CAMPO cod_idioma        52:2    idioma                             9(2)
#                                         10=Castellano

#                                               ----------------->>>>>    X(24)
#       A partir de aqu ir con separadores de final de campo



        CAMPO cod_cbanco 	# Cdigo de Banco		 9(4)
        CAMPO cod_cofici 	# Cdigo de Oficina		 9(4)
        CAMPO cod_ccontr  	# Cdigo de Contrapartida	 9(4)
        CAMPO cod_cfolio  	# Folio de la cunta     	 9(14)
        CAMPO cod_cdepen 	#                     		 9(9)
        CAMPO cod_coficin	# Cdigo de Oficina de inversion 9(4)


RECIBE DELIMITANDO last

        CAMPO ctrans             1:8    Nombre de la transaccion
        CAMPO fin_trn           25:1    Fin de la transaccin
        CAMPO numseg            26:4    Numero de Orden del Segmento      X(29)
#
        CAMPO tipo              30:2    Tipo                               9(2)
        CAMPO subtipo           32:2    Subtipo                            9(2)
        CAMPO version           34:2    Versin de aplicacin              9(2)
        CAMPO b_ofi             36:8    Banco CSB y oficina del terminal   9(8)
        CAMPO userid            44:8    Usuario                            X(8)
        CAMPO cod_idioma        52:2    idioma                             9(2)
#                                         10=Castellano

        CAMPO cretor            54:4    Cdigo de retorno                  X(4)
#                                       "    " Ok
#                                        BE Error BD mensajes
#                                        MI Mensaje inexistente
#                                        DD Demasiadas rdenes de acotar
#                                           (mas los que se puedan dar)
        CAMPO mensaje           58:50   Mensaje                           X(50)
        TIPO  tip_datos        108:2    Tipo de salida de informacin      9(2)
#                                          00= Salida sin informacin
#                                          01= Salida con datos sin error
#                                        --------------------------->>>   X(109
#       A partir de aqu ir con separadores de final de campo

    PARA TIPO 00

    PARA TIPO 01

#                DATOS DE LA CUENTA NUEVA                                 #

         CAMPO cod_cbancon       	# Cdigo del banco		9(04)
         CAMPO cod_coficin		# Cdigo de oficina		9(04)
         CAMPO cod_ccontrn 		# Cdigo de contrapartida       9(09)
         CAMPO cod_cfolion 		# Cdigo de folio       	9(04)
         CAMPO cod_cdepenn		#               		9(09)
 

    FINTIPO
###########################################################################
###########################################################################
#      Date: 1 de Junio de 1998                                           #
#  ADPPT541: Colaboradores en curso. Recib/Envid/ Pendientes/ reestA)     #
#                                                                         #
###########################################################################

TRANSACCION ADPPT541 ENVIA 70 RECIBE ?

ENVIA DELIMITANDO last

        CAMPO ident             1:29   Identificacin de la transaccin   X(29)

#                                   1:8   Cdigo de transaccin            X(8)
#                                   9:1   Blanco                           X(1)
#                                  10:4   HHMM                             9(4)
#                                  14:3   Nmero de secuencia              9(3)
#                                  17:1   Siempre [                        X(1)
#                                  18:2   Puesto                           9(2)
#                                  20:4   Aplicacin que hace la peticin  X(4)
#                                  24:1   Siempre ]                        X(1)
#                                  25:1   Fin de transaccin (1/0)         9(1)
#                                  26:4   Nmero de orden del segmento IMS 9(4)

        CAMPO tipo              30:2    Tipo                               9(2)
        CAMPO subtipo           32:2    Subtipo                            9(2)
        CAMPO version           34:2    Versin de aplicacin              9(2)
        CAMPO b_ofi             36:8    Banco CSB y oficina del terminal   9(8)
        CAMPO userid            44:8    Usuario                            X(8)
        CAMPO cod_idioma        52:2    idioma                             9(2)
#                                         10=Castellano

#                                               ----------------->>>>>    X(24)
#       A partir de aqu ir con separadores de final de campo

        CAMPO cod_tunidad
#                                    Tipo de Unidad                    X(1)
#                                         "P"=Proponente o supervisora
#                                         "S"=Sancionadora
#                                         "K" = Proponente CMD FINANZIA Y CATALANA
#                                         "H" = Proponente CMD RESTOS BANCOS

        CAMPO cod_bancow
#                                    Banco de Trabajo                 9(4)
        CAMPO cod_oficiw
#                                    Oficina de Trabajo               9(4)
        CAMPO cod_tacceso
#                                    Tipo de acceso                   X(1)
#                             "E"= Propuestas enviadas ( pdtes de sancion oficina y cmd)
#                             "R"= Propuestas recibidas (pdtes Formal. oficina y cmd)
#                             "S"= Propuestas recibidas (pdtes Formal. )
#                                    generadas desde otra oficina /cmd)
#                //           "V"= Propuestas enviadas (Pend. de Sancin /otra unidad cmd)
#                //           "A"= Autorizadas en oficina sin formalizacin(oficina y cmd)
#                             "T"= En proceso de formalizacion
#               //            "H" En proceso de reestudio"
#                             "O" En proceso de reestudio"

        CAMPO qnu_pagsol
#                                    Nmero de pgina solicitada       9(2)
        CAMPO xti_recupera
#                                    Ind. recuperacin X
#                             "C"   Colaborador
#                             "L"   Lneas y Rappels
#                             " "   Todas



RECIBE delimitando last

        CAMPO ctrans             1:8    Nombre de la transaccion
        CAMPO fin_trn           25:1    Fin de la transaccin
        CAMPO numseg            26:4    Numero de Orden del Segmento      X(29)
#
        CAMPO tipo              30:2    Tipo                               9(2)
        CAMPO subtipo           32:2    Subtipo                            9(2)
        CAMPO version           34:2    Versin de aplicacin              9(2)
        CAMPO b_ofi             36:8    Banco CSB y oficina del terminal   9(8)
        CAMPO userid            44:8    Usuario                            X(8)
        CAMPO cod_idioma        52:2    idioma                             9(2)
#                                         10=Castellano

        CAMPO cretor            54:4    Cdigo de retorno                  X(4)
#                                       "    " Ok
#                                        BE Error BD mensajes
#                                        MI Mensaje inexistente
#                                        DD Demasiadas rdenes de acotar
#                                           (mas los que se puedan dar)
        CAMPO mensaje           58:50   Mensaje                           X(50)
        TIPO  tip_datos        108:2    Tipo de salida de informacin      9(2)
#                                          00= Salida sin informacin
#                                          01= Salida con datos sin error
#                                          02= Salida con datos de error
#                                        --------------------------->>>  X(109)
#       A partir de aqu ir con separadores de final de campo
        PARA TIPO 00

        PARA TIPO 01

#             Nm. total de registros seleccionados
                CAMPO qnu_registros
#             Nm. pgina solicitada
                CAMPO qnu_pagact
#             Nm. total pg con datos seleccionados
                CAMPO qnu_totalpag

        REPITE ? VECES  118:310

#            Banco                            9(4)
               CAMPO cod_banco
#            Oficina                          9(4)
               CAMPO cod_oficictb
#            Codigo de Contrapartida          9(4)
               CAMPO cod_contrapa
#            Nmero de folio                  9(10)
               CAMPO num_folio
#            Cdigo dependiente               9(9)
               CAMPO cod_cdepen
#            Cdigo de Producto               9(4)
               CAMPO cod_prodserv
#            Codigo Subproducto               9(4)
               CAMPO cod_subprodu
#            Descripcin del producto         X(40)
               CAMPO des_producto
#            Codigo de Aplicacion             X(8)
               CAMPO cod_aplicac1
#            Codigo de Subaplicacion 1        X(8)
               CAMPO cod_subapli1
#            Codigo de Subaplicacion 2        X(8)
               CAMPO cod_subapli2
#            Codigo cliente                   9(9)
               CAMPO cod_cclien
#            Dni                              X(10)
               CAMPO cod_dninif
#            Titularidad                      X(60)
               CAMPO cod_titulari
#            Banco Proponente                 9(4)
               CAMPO cod_bancosol
#            Oficina Proponente               9(4)
               CAMPO cod_oficisol
#            Tipo de solicitud                X(1)
               CAMPO cod_tsolicit
#                                        "N"=nueva
#                                        "R"renovacin
#                                        "O"=operacin
#                                        "M"=modificacin
#            Fecha de solicitud              X(10)
               CAMPO fec_solicitu
#            Banco  Sancionador               9(4)
               CAMPO cod_bancosan
#            Oficina  Sancionadora            9(4)
               CAMPO cod_oficisan
#            Fecha de Sancin                X(10)
               CAMPO fec_sancion
#            Tipo de sancin                  9(2)
               CAMPO xti_tsancion
#                                            "AC"=Aprobada con cambios
#                                            "AS"=Aprobada sin cambios
#                                            "D "=Denegada
#                                            "P "=Pendiente
#                                            "E" = "Nuevo Estudio"
#                                            "R"= Reestudio Realizado.
#            Banco  Formalizador              9(4)
               CAMPO cod_bancosup
#            Oficina  Formalizadora           9(4)
               CAMPO cod_oficisup
#            Codigo de Supervision            X(2)
               CAMPO cod_tsupervi
#            Limite                           9(13)
               CAMPO imp_limite

#            Naturaleza de la solicitud       X(1)
               CAMPO cod_tsolprop
#            Codigo de Acontecimiento         9(4)
               CAMPO cod_aconteci
#            Descripcin del acuerdo          X(60)
               CAMPO des_acuerdo
#            Estado de la solicitud           X(2)
               CAMPO est_solicitu
        FINREPITE

        FINTIPO
#                                        ---------------------------->>> X(310)
###########################################################################
#                                                                         #
#      Date: 23 de Junio de 1998                                          #
#                                                                         #
#  ADPPT543: Localizacin propuestas recibidas por oficinas               #
#                                                                         #
###########################################################################

TRANSACCION ADPPT543 ENVIA 70 RECIBE ?

ENVIA DELIMITANDO last

        CAMPO ident             1:29   Identificacin de la transaccin   X(29)

#                                   1:8   Cdigo de transaccin            X(8)
#                                   9:1   Blanco                           X(1)
#                                  10:4   HHMM                             9(4)
#                                  14:3   Nmero de secuencia              9(3)
#                                  17:1   Siempre [                        X(1)
#                                  18:2   Puesto                           9(2)
#                                  20:4   Aplicacin que hace la peticin  X(4)
#                                  24:1   Siempre ]                        X(1)
#                                  25:1   Fin de transaccin (1/0)         9(1)
#                                  26:4   Nmero de orden del segmento IMS 9(4)

        CAMPO tipo              30:2    Tipo                               9(2)
        CAMPO subtipo           32:2    Subtipo                            9(2)
        CAMPO version           34:2    Versin de aplicacin              9(2)
        CAMPO b_ofi             36:8    Banco CSB y oficina del terminal   9(8)
        CAMPO userid            44:8    Usuario                            X(8)
        CAMPO cod_idioma        52:2    idioma                             9(2)
#                                         10=Castellano

#                                               ----------------->>>>>    X(24)
#       A partir de aqu ir con separadores de final de campo

#       Banco de Trabajo                 9(4)
        CAMPO cod_bancow

#       Oficina de Trabajo               9(4)
        CAMPO cod_oficiw

#       Tipo de acceso                   X(1)
#           "E"= Propuestas enviadas ( pdtes de sancion oficina y cmd)
#           "R"= Propuestas recibidas (pdtes Formal. oficina y cmd)
#           "S"= Propuestas recibidas (pdtes Formal. ) generadas desde otra oficina /cmd)
#        // "V"= Propuestas enviadas (Pend. de Sancin /otra unidad cmd)
#        // "A"= Autorizadas en oficina sin formalizacin(oficina y cmd)
#           "T"= En proceso de formalizacion
#        // "H" En proceso de reestudio"
#           "O" En proceso de reestudio"
        CAMPO cod_tacceso

#       Nmero de pgina solicitada       9(2)
        CAMPO qnu_pagsol

#       Ind. recuperacin X               X(1)
#           "C"   Colaborador
#           "L"   Lneas y Rappels
#           " "   Todas
        CAMPO xti_recupera

RECIBE delimitando last

        CAMPO ctrans             1:8    Nombre de la transaccion
        CAMPO fin_trn           25:1    Fin de la transaccin
        CAMPO numseg            26:4    Numero de Orden del Segmento      X(29)
#
        CAMPO tipo              30:2    Tipo                               9(2)
        CAMPO subtipo           32:2    Subtipo                            9(2)
        CAMPO version           34:2    Versin de aplicacin              9(2)
        CAMPO b_ofi             36:8    Banco CSB y oficina del terminal   9(8)
        CAMPO userid            44:8    Usuario                            X(8)
        CAMPO cod_idioma        52:2    idioma                             9(2)
#                                         10=Castellano

        CAMPO cretor            54:4    Cdigo de retorno                  X(4)
#                                       "    " Ok
#                                        BE Error BD mensajes
#                                        MI Mensaje inexistente
#                                        DD Demasiadas rdenes de acotar
#                                           (mas los que se puedan dar)
        CAMPO mensaje           58:50   Mensaje                           X(50)
        TIPO  tip_datos        108:2    Tipo de salida de informacin      9(2)
#                                          00= Salida sin informacin
#                                          01= Salida con datos sin error
#                                          02= Salida con datos de error
#                                        --------------------------->>>  X(109)
#       A partir de aqu ir con separadores de final de campo
        PARA TIPO 00

        PARA TIPO 01

#             Nm. total de registros seleccionados
                CAMPO qnu_registros
#             Nm. pgina solicitada
                CAMPO qnu_pagact
#             Nm. total pg con datos seleccionados
                CAMPO qnu_totalpag
#             Banco (bancow)
                CAMPO cod_bancow
#             Oficina (oficiw)
                CAMPO cod_oficiw

        REPITE ? VECES  118:310

#            Banco                            9(4)
               CAMPO cod_banco
#            Oficina                          9(4)
               CAMPO cod_oficictb
#            Codigo de Contrapartida          9(4)
               CAMPO cod_contrapa
#            Nmero de folio                  9(10)
               CAMPO num_folio
#            Cdigo dependiente               9(9)
               CAMPO cod_cdepen
#            Descripcin del producto         X(20)
               CAMPO des_producto
#            Codigo cliente                   9(9)
               CAMPO cod_cclien
#            Dni                              X(10)
               CAMPO cod_dninif
#            Titularidad                      X(60)
               CAMPO cod_titulari

#                                             X(3)
               CAMPO cot_ctippe

#                                             9(4)
               CAMPO qnumor

#            Fecha de supervisin             X(10)
               CAMPO fec_super

#            Descripcin del acuerdo          X(60)
               CAMPO des_acuerdo

#            Cdigo de acontecimiento         9(4)
               CAMPO cod_tacontec

#            Fecha de vigencia                X(10)
               CAMPO fec_vigencia
        FINREPITE

        FINTIPO
#                                        ---------------------------->>> X(310)
###########################################################################
#                                                                         #
#      Date: 27 de Julio de 1998                                          #
#                                                                         #
#  ADPPT546: Propuestas en curso R/E                                      #
#                                                                         #
###########################################################################

TRANSACCION ADPPT546 ENVIA 130 RECIBE ?

ENVIA DELIMITANDO last

        CAMPO ident             1:29   Identificacin de la transaccin   X(29)

#                                   1:8   Cdigo de transaccin            X(8)
#                                   9:1   Blanco                           X(1)
#                                  10:4   HHMM                             9(4)
#                                  14:3   Nmero de secuencia              9(3)
#                                  17:1   Siempre [                        X(1)
#                                  18:2   Puesto                           9(2)
#                                  20:4   Aplicacin que hace la peticin  X(4)
#                                  24:1   Siempre ]                        X(1)
#                                  25:1   Fin de transaccin (1/0)         9(1)
#                                  26:4   Nmero de orden del segmento IMS 9(4)

        CAMPO tipo              30:2    Tipo                               9(2)
        CAMPO subtipo           32:2    Subtipo                            9(2)
        CAMPO version           34:2    Versin de aplicacin              9(2)
        CAMPO b_ofi             36:8    Banco CSB y oficina del terminal   9(8)
        CAMPO userid            44:8    Usuario                            X(8)
        CAMPO cod_idioma        52:2    idioma                             9(2)
#                                         10=Castellano

#                                               ----------------->>>>>    X(24)
#       A partir de aqu ir con separadores de final de campo

        CAMPO cod_tunidad
#                                    Tipo de Unidad                    X(1)
#                                         "P"=Proponente o supervisora
#                                         "S"=Sancionadora
#                                         "K" = Proponente CMD FINANZIA Y CATALANA
#                                         "H" = Proponente CMD RESTOS BANCOS

        CAMPO cod_bancow
#                                    Banco de Trabajo                 9(4)
        CAMPO cod_oficiw
#                                    Oficina de Trabajo               9(4)
        CAMPO cod_ucostew
#                                                                     9(4)
        CAMPO cod_tacceso
#                                    Tipo de acceso                   X(1)
#                             "E"= Propuestas enviadas ( pdtes de sancion oficina y cmd)
#                             "R"= Propuestas recibidas (pdtes Formal. oficina y cmd)
#                             "S"= Propuestas recibidas (pdtes Formal. )
#                                    generadas desde otra oficina /cmd)
#                //           "V"= Propuestas enviadas (Pend. de Sancin /otra unidad cmd)
#                //           "A"= Autorizadas en oficina sin formalizacin(oficina y cmd)
#                             "T"= En proceso de formalizacion
#               //            "H" En proceso de reestudio"
#                             "O" En proceso de reestudio"

        CAMPO cod_selecdat
#                                                                      X(1)
        CAMPO cod_emplesan
#                                                                      X(8)
        CAMPO cod_oficictb
#                                                                      9(4)
        CAMPO cod_contrapa
#                                                                      9(4)
        CAMPO cod_cfolio
#                                                                      9(10)
        CAMPO cod_oficirie
#                                                                      9(4)
        CAMPO fec_recepsan
#                                                                      X(10)
        CAMPO qty_plazodia
#                                                                      9(2)
        CAMPO cod_mesrs
#                                                                      9(2)
        CAMPO fec_annors
#                                                                      9(4)
        CAMPO qnu_pagsol                                        
#                                    Nmero de pgina solicitada       9(2)


RECIBE delimitando last

        CAMPO ctrans             1:8    Nombre de la transaccion
        CAMPO fin_trn           25:1    Fin de la transaccin
        CAMPO numseg            26:4    Numero de Orden del Segmento      X(29)
#
        CAMPO tipo              30:2    Tipo                               9(2)
        CAMPO subtipo           32:2    Subtipo                            9(2)
        CAMPO version           34:2    Versin de aplicacin              9(2)
        CAMPO b_ofi             36:8    Banco CSB y oficina del terminal   9(8)
        CAMPO userid            44:8    Usuario                            X(8)
        CAMPO cod_idioma        52:2    idioma                             9(2)
#                                         10=Castellano

        CAMPO cretor            54:4    Cdigo de retorno                  X(4)
#                                       "    " Ok
#                                        BE Error BD mensajes
#                                        MI Mensaje inexistente
#                                        DD Demasiadas rdenes de acotar
#                                           (mas los que se puedan dar)
        CAMPO mensaje           58:50   Mensaje                           X(50)
        TIPO  tip_datos        108:2    Tipo de salida de informacin      9(2)
#                                          00= Salida sin informacin
#                                          01= Salida con datos sin error
#                                          02= Salida con datos de error
#                                        --------------------------->>>  X(109)
#       A partir de aqu ir con separadores de final de campo
        PARA TIPO 00

        PARA TIPO 01

#             Nm. total de registros seleccionados
                CAMPO qnu_registros
#             Nm. pgina solicitada
                CAMPO qnu_pagact
#             Nm. total pg con datos seleccionados
                CAMPO qnu_totalpag

        REPITE ? VECES  118:310

#            Banco                            9(4)
               CAMPO cod_banco
#            Oficina                          9(4)
               CAMPO cod_oficictb
#            Codigo de Contrapartida          9(4)
               CAMPO cod_terrzona
#                                             9(4)
               CAMPO cod_contrapa
#            Nmero de folio                  9(10)
               CAMPO num_folio
#            Cdigo dependiente               9(9)
               CAMPO cod_cdepen
#            Cdigo de Producto               9(4)
               CAMPO cod_prodserv
#            Codigo Subproducto               9(4)
               CAMPO cod_subprodu
#            Descripcin del producto         X(40)
               CAMPO des_producto
#            Codigo de Aplicacion             X(8)
               CAMPO cod_aplicac1
#            Codigo de Subaplicacion 1        X(8)
               CAMPO cod_subapli1
#            Codigo de Subaplicacion 2        X(8)
               CAMPO cod_subapli2
#            Codigo cliente                   9(9)
               CAMPO cod_cclien
#            Dni                              X(10)
               CAMPO cod_dninif
#            Titularidad                      X(60)
               CAMPO cod_titulari
#            Banco Proponente                 9(4)
               CAMPO cod_bancosol
#            Oficina Proponente               9(4)
               CAMPO cod_oficisol
#            Tipo de solicitud                X(1)
               CAMPO cod_tsolicit
#                                        "N"=nueva
#                                        "R"renovacin
#                                        "O"=operacin
#                                        "M"=modificacin
#            Fecha de solicitud              X(10)
               CAMPO fec_solicitu
#            Banco  Sancionador               9(4)
               CAMPO cod_bancosan
#            Oficina  Sancionadora            9(4)
               CAMPO cod_oficisan
#                                            X(10)
               CAMPO fec_recepsan
#            Fecha de Sancin                X(10)
               CAMPO fec_sancion
#            Tipo de sancin                  X(2)
               CAMPO xti_tsancion
#                                            "AC"=Aprobada con cambios
#                                            "AS"=Aprobada sin cambios
#                                            "D "=Denegada
#                                            "P "=Pendiente
#                                            "E" = "Nuevo Estudio"
#                                            "R"= Reestudio Realizado.
#            Banco  Formalizador              9(4)
               CAMPO cod_bancosup
#            Oficina  Formalizadora           9(4)
               CAMPO cod_oficisup
#            Limite                           9(13)
               CAMPO imp_limite

#            Naturaleza de la solicitud       X(1)
               CAMPO cod_tsolprop
#            Descripcin del acuerdo          X(60)
               CAMPO des_acuerdo
#            Cdigo de acontecimiento         9(4)
               CAMPO cod_taconteci
#            Fecha de vigencia               X(10)
               CAMPO fec_vigencia
        FINREPITE

        FINTIPO
#                                        ---------------------------->>> X(340)
###########################################################################
#                                                                         #
#      Date: 27 de Julio de 1998                                          #
#                                                                         #
#  ADPPT547: Propuestas en curso R/E                                      #
#                                                                         #
###########################################################################

TRANSACCION ADPPT547 ENVIA 130 RECIBE ?

ENVIA DELIMITANDO last

        CAMPO ident             1:29   Identificacin de la transaccin   X(29)

#                                   1:8   Cdigo de transaccin            X(8)
#                                   9:1   Blanco                           X(1)
#                                  10:4   HHMM                             9(4)
#                                  14:3   Nmero de secuencia              9(3)
#                                  17:1   Siempre [                        X(1)
#                                  18:2   Puesto                           9(2)
#                                  20:4   Aplicacin que hace la peticin  X(4)
#                                  24:1   Siempre ]                        X(1)
#                                  25:1   Fin de transaccin (1/0)         9(1)
#                                  26:4   Nmero de orden del segmento IMS 9(4)

        CAMPO tipo              30:2    Tipo                               9(2)
        CAMPO subtipo           32:2    Subtipo                            9(2)
        CAMPO version           34:2    Versin de aplicacin              9(2)
        CAMPO b_ofi             36:8    Banco CSB y oficina del terminal   9(8)
        CAMPO userid            44:8    Usuario                            X(8)
        CAMPO cod_idioma        52:2    idioma                             9(2)
#                                         10=Castellano

#                                               ----------------->>>>>    X(24)
#       A partir de aqu ir con separadores de final de campo

        CAMPO cod_tunidad
#                                    Tipo de Unidad                    X(1)
#                                         "P"=Proponente o supervisora
#                                         "S"=Sancionadora
#                                         "K" = Proponente CMD FINANZIA Y CATALANA
#                                         "H" = Proponente CMD RESTOS BANCOS

        CAMPO cod_bancow
#                                    Banco de Trabajo                 9(4)
        CAMPO cod_oficiw
#                                    Oficina de Trabajo               9(4)
        CAMPO cod_ucostew
#                                                                     9(4)
        CAMPO cod_tacceso
#                                    Tipo de acceso                   X(1)
#                             "E"= Propuestas enviadas ( pdtes de sancion oficina y cmd)
#                             "R"= Propuestas recibidas (pdtes Formal. oficina y cmd)
#                             "S"= Propuestas recibidas (pdtes Formal. )
#                                    generadas desde otra oficina /cmd)
#                //           "V"= Propuestas enviadas (Pend. de Sancin /otra unidad cmd)
#                //           "A"= Autorizadas en oficina sin formalizacin(oficina y cmd)
#                             "T"= En proceso de formalizacion
#               //            "H" En proceso de reestudio"
#                             "O" En proceso de reestudio"

        CAMPO cod_selecdat
#                                                                      X(1)
        CAMPO cod_emplesan
#                                                                      X(8)
        CAMPO cod_oficictb
#                                                                      9(4)
        CAMPO cod_contrapa
#                                                                      9(4)
        CAMPO cod_cfolio
#                                                                      9(10)
        CAMPO cod_oficirie
#                                                                      9(4)
        CAMPO fec_recepsan
#                                                                      X(10)
        CAMPO qty_plazodia
#                                                                      9(2)
        CAMPO cod_mesrs
#                                                                      9(2)
        CAMPO fec_annors
#                                                                      9(4)
        CAMPO qnu_pagsol                                        
#                                    Nmero de pgina solicitada       9(2)


RECIBE delimitando last

        CAMPO ctrans             1:8    Nombre de la transaccion
        CAMPO fin_trn           25:1    Fin de la transaccin
        CAMPO numseg            26:4    Numero de Orden del Segmento      X(29)
#
        CAMPO tipo              30:2    Tipo                               9(2)
        CAMPO subtipo           32:2    Subtipo                            9(2)
        CAMPO version           34:2    Versin de aplicacin              9(2)
        CAMPO b_ofi             36:8    Banco CSB y oficina del terminal   9(8)
        CAMPO userid            44:8    Usuario                            X(8)
        CAMPO cod_idioma        52:2    idioma                             9(2)
#                                         10=Castellano

        CAMPO cretor            54:4    Cdigo de retorno                  X(4)
#                                       "    " Ok
#                                        BE Error BD mensajes
#                                        MI Mensaje inexistente
#                                        DD Demasiadas rdenes de acotar
#                                           (mas los que se puedan dar)
        CAMPO mensaje           58:50   Mensaje                           X(50)
        TIPO  tip_datos        108:2    Tipo de salida de informacin      9(2)
#                                          00= Salida sin informacin
#                                          01= Salida con datos sin error
#                                          02= Salida con datos de error
#                                        --------------------------->>>  X(109)
#       A partir de aqu ir con separadores de final de campo
        PARA TIPO 00

        PARA TIPO 01

#             Nm. total de registros seleccionados
                CAMPO qnu_registros
#             Nm. pgina solicitada
                CAMPO qnu_pagact
#             Nm. total pg con datos seleccionados
                CAMPO qnu_totalpag

        REPITE ? VECES  118:310

#            Banco                            9(4)
               CAMPO cod_banco
#            Oficina                          9(4)
               CAMPO cod_oficictb
#            Codigo de Contrapartida          9(4)
               CAMPO cod_terrzona
#                                             9(4)
               CAMPO cod_contrapa
#            Nmero de folio                  9(10)
               CAMPO num_folio
#            Cdigo dependiente               9(9)
               CAMPO cod_cdepen
#            Cdigo de Producto               9(4)
               CAMPO cod_prodserv
#            Codigo Subproducto               9(4)
               CAMPO cod_subprodu
#            Descripcin del producto         X(40)
               CAMPO des_producto
#            Codigo de Aplicacion             X(8)
               CAMPO cod_aplicac1
#            Codigo de Subaplicacion 1        X(8)
               CAMPO cod_subapli1
#            Codigo de Subaplicacion 2        X(8)
               CAMPO cod_subapli2
#            Codigo cliente                   9(9)
               CAMPO cod_cclien
#            Dni                              X(10)
               CAMPO cod_dninif
#            Titularidad                      X(60)
               CAMPO cod_titulari
#            Banco Proponente                 9(4)
               CAMPO cod_bancosol
#            Oficina Proponente               9(4)
               CAMPO cod_oficisol
#            Tipo de solicitud                X(1)
               CAMPO cod_tsolicit
#                                        "N"=nueva
#                                        "R"renovacin
#                                        "O"=operacin
#                                        "M"=modificacin
#            Fecha de solicitud              X(10)
               CAMPO fec_solicitu
#            Banco  Sancionador               9(4)
               CAMPO cod_bancosan
#            Oficina  Sancionadora            9(4)
               CAMPO cod_oficisan
#                                            X(10)
               CAMPO fec_recepsan
#            Fecha de Sancin                X(10)
               CAMPO fec_sancion
#            Tipo de sancin                  X(2)
               CAMPO xti_tsancion
#                                            "AC"=Aprobada con cambios
#                                            "AS"=Aprobada sin cambios
#                                            "D "=Denegada
#                                            "P "=Pendiente
#                                            "E" = "Nuevo Estudio"
#                                            "R"= Reestudio Realizado.
#            Banco  Formalizador              9(4)
               CAMPO cod_bancosup
#            Oficina  Formalizadora           9(4)
               CAMPO cod_oficisup
#            Limite                           9(13)
               CAMPO imp_limite

#            Naturaleza de la solicitud       X(1)
               CAMPO cod_tsolprop
#            Descripcin del acuerdo          X(60)
               CAMPO des_acuerdo
#            Cdigo de acontecimiento         9(4)
               CAMPO cod_taconteci
#            Fecha de vigencia               X(10)
               CAMPO fec_vigencia
        FINREPITE

        FINTIPO
#                                        ---------------------------->>> X(340)
###########################################################################
#      date: 30 de Junio de 1995                                          #
#  ADPPT555: Sancin/reenvio/formalizacin/cierre            #
#                                                                         #
###########################################################################

TRANSACCION ADPPT555 ENVIA 135 RECIBE ?

ENVIA

        CAMPO ident             1:29   Identificacin de la transaccin   X(29)

#                                   1:8   Cdigo de transaccin            X(8)
#                                   9:1   Blanco                           X(1)
#                                  10:4   HHMM                             9(4)
#                                  14:3   Nmero de secuencia              9(3)
#                                  17:1   Siempre [                        X(1)
#                                  18:2   Puesto                           9(2)
#                                  20:4   Aplicacin que hace la peticin  X(4)
#                                  24:1   Siempre ]                        X(1)
#                                  25:1   Fin de transaccin (1/0)         9(1)
#                                  26:4   Nmero de orden del segmento IMS 9(4)

        CAMPO tipo              30:2    Tipo                               9(2)
        CAMPO subtipo           32:2    Subtipo                            9(2)
        CAMPO version           34:2    Versin de aplicacin              9(2)
        CAMPO b_ofi             36:8    Banco CSB y oficina del terminal   9(8)
        CAMPO userid            44:8    Usuario                            X(8)
        CAMPO cod_idioma        52:2    idioma                             9(2)
#                                         10=Castellano

#                                               ----------------->>>>>    X(24)
#       A partir de aqu ir con separadores de final de campo
# ****************************************************************  #
#                 IDENTIFICACION DEL ACUERDO                                      #
# ****************************************************************  #
#	Cdigo de Banco                   9(4)
        CAMPO cod_banco        
#	Cdigo de Oficina                 9(4)
        CAMPO cod_oficictb
#	Codigo de Contrapartida           9(4)
        CAMPO cod_contrapa
#	Codigo de Folio del acuerdo           9(4)
        CAMPO cod_cfolio
#	Cdigo dependiente  (a ceros)      9(9)
        CAMPO cod_cdepen

# ****************************************************************  #
#    BANCO/OFICINA(EMPLEADO QUE REALIZA LA ACCION                          #
#                ( EN EL BUFFER CONSTAN)                                           #
# ****************************************************************  #

        CAMPO cod_bancoacc 
        CAMPO cod_oficiacc
#	Mtricula del sancionador o super. 9(8)
        CAMPO cod_emplesan
## ****************************************************************  #
#                 IFECHA Y HORA                                                      #
# ****************************************************************  #
        CAMPO fec_sancion 
        CAMPO hsm_sancion 
# ****************************************************************  #
#                 ACCION                                                               #
# ****************************************************************  #

#	Tipo de acceso                    X(1)
#                                        "PD"=Pendiente
#                                        "PS"=Autoriza Precios
#                                        "D"=denegada
#                                        "V"=Devolucion
#                                        "RV"=reenvio
#                                        " "=formalizacin o supervisin
        CAMPO cod_tsancion

#	Tipo de supervisin               X(1)
#                                        "T"=formalizacin contrato
#                                        "J"=Cuentas relacionadas realizada
#                                        "C"=Cierre sin contrato
#                                        "E"=Nuevo Estudio
         CAMPO cod_tsupervi

#	Tipo de destino               X(1)
#                                        "T"=regional/territorial
#                                        "A"=Admon Central
#                                        "P"=Propia oficina
	CAMPO cod_tdestino

#	Tipo de la unidad               X(1)
#                                        "P"=proponente
#                                        "S"=Sancionadora
	CAMPO cod_tunidad

#	Fecha de Puesta en Vigor
	CAMPO fec_vigor

	CAMPO cod_motcierr


RECIBE

        CAMPO ctrans             1:8    Nombre de la transaccion
        CAMPO fin_trn           25:1    Fin de la transaccin
        CAMPO numseg            26:4    Numero de Orden del Segmento      X(29)
#
        CAMPO tipo              30:2    Tipo                               9(2)
        CAMPO subtipo           32:2    Subtipo                            9(2)
        CAMPO version           34:2    Versin de aplicacin              9(2)
        CAMPO b_ofi             36:8    Banco CSB y oficina del terminal   9(8)
        CAMPO userid            44:8    Usuario                            X(8)
        CAMPO cod_idioma        52:2    idioma                             9(2)
#                                         10=Castellano

        CAMPO cretor            54:4    Cdigo de retorno                  X(4)
#                                       "    " Ok
#                                        BE Error BD mensajes
#                                        MI Mensaje inexistente
#                                        DD Demasiadas rdenes de acotar
#                                           (mas los que se puedan dar)
        CAMPO mensaje           58:50   Mensaje                           X(50)
        TIPO  tip_datos        108:2    Tipo de salida                     9(2)
#                                          00= Salida sin informacin
#                                          01= Salida con datos sin error
#                                          02= Salida con datos de error
#                                        --------------------------->>>  X(107)
#       A partir de aqu ir con separadores de final de campo
        PARA TIPO 00
        PARA TIPO 01
#		Codigo de cliente           9(9)
		CAMPO cod_cclien
#		DNI/NIF                     X(10)
		CAMPO cod_cdnitr
#		Titularidad                 X(60)
		CAMPO cod_titulari
#		Relacion de Participes      X(60)
		CAMPO ctippe 
		CAMPO qty_qnumor
#		Identificacion de propuesta renovadora
		CAMPO cod_bancor 
		CAMPO cod_oficictr
		CAMPO cod_ccontrr
		CAMPO cod_cfolior 

        FINTIPO
###########################################################################
#      date: 25 de mayo de 1998                                          #
#  ADPPT556: Sancin/reenvio/formalizacin/cierre            #
#                                                                         #
###########################################################################

TRANSACCION ADPPT556 ENVIA 150 RECIBE ?

ENVIA DELIMITANDO last

        CAMPO ident             1:29   Identificacin de la transaccin   X(29)

#                                   1:8   Cdigo de transaccin            X(8)
#                                   9:1   Blanco                           X(1)
#                                  10:4   HHMM                             9(4)
#                                  14:3   Nmero de secuencia              9(3)
#                                  17:1   Siempre [                        X(1)
#                                  18:2   Puesto                           9(2)
#                                  20:4   Aplicacin que hace la peticin  X(4)
#                                  24:1   Siempre ]                        X(1)
#                                  25:1   Fin de transaccin (1/0)         9(1)
#                                  26:4   Nmero de orden del segmento IMS 9(4)

        CAMPO tipo              30:2    Tipo                               9(2)
        CAMPO subtipo           32:2    Subtipo                            9(2)
        CAMPO version           34:2    Versin de aplicacin              9(2)
        CAMPO b_ofi             36:8    Banco CSB y oficina del terminal   9(8)
        CAMPO userid            44:8    Usuario                            X(8)
        CAMPO cod_idioma        52:2    idioma                             9(2)
#                                         10=Castellano

#                                               ----------------->>>>>    X(24)
#       A partir de aqu ir con separadores de final de campo
# ****************************************************************  #
#                 IDENTIFICACION DEL ACUERDO                                      #
# ****************************************************************  #
#      Cdigo de Banco                      9(4)
        CAMPO cod_cbanco
#      Cdigo de Oficina                    9(4)
        CAMPO cod_cofici
#      Codigo de Contrapartida              9(4)
        CAMPO num_cfolio
#      Codigo de Folio del acuerdo          9(10)
        CAMPO cod_cfolio
#      Cdigo dependiente  (a ceros)        9(9)
        CAMPO cod_cdepen
#      Cdigo de Banco Accin               9(4)
        CAMPO cod_bancacc
#      Cdigo de Oficina Accin             9(4)
        CAMPO cod_ofiacc
#      Cdigo Matrcula del Sancionado      9(8)
        CAMPO cod_emplsan
#      Cdigo de Fecha de Sancin           X(10)
        CAMPO cod_fecsanc
#       Cdigo de Hora de Sancin           X(8)
        CAMPO cod_hsm_sancion
#       Cdigo tipo de sancin              X(2)
         CAMPO codsanc
#       Cdigo tipo de supervisin          X(1)
         CAMPO codsupv
#       Cdigo tipo destino                 X(1)
         CAMPO coddest
#        Cdigo tipo unidad operante        X(1)
         CAMPO codunid
#       Cdigo Fecha en Vigor               X(10)
         CAMPO cod_fecvigr
#       Cdigo Motivo de Cierre             9(2)
         CAMPO cod_motcier
#       Cdigo tipo acontecinmiento         9(4)
         CAMPO cod_acontec

RECIBE

        CAMPO ctrans             1:8     Nombre de la transaccion
        CAMPO fin_trn            25:1    Fin de la transaccin
        CAMPO numseg             26:4    Numero de Orden del Segmento      X(29)
#
        CAMPO tipo               30:2    Tipo                               9(2)
        CAMPO subtipo            32:2    Subtipo                            9(2)
        CAMPO version            34:2    Versin de aplicacin              9(2)
        CAMPO b_ofi              36:8    Banco CSB y oficina del terminal   9(8)
        CAMPO userid             44:8    Usuario                            X(8)
        CAMPO cod_idioma         52:2    idioma                             9(2)
#                                         10=Castellano

        CAMPO cretor             54:4    Cdigo de retorno                  X(4)
#                                        "    " Ok
#                                        BE Error BD mensajes
#                                        MI Mensaje inexistente
#                                        DD Demasiadas rdenes de acotar
#                                           (mas los que se puedan dar)
        CAMPO mensaje           58:50   Mensaje                            X(50)
        TIPO  tip_datos         108:2    Tipo de salida                     9(2)
#                                          00= Salida sin informacin
#                                          01= Salida con datos sin error
#                                          02= Salida con datos de error
#                                        --------------------------->>>   X(107)
#       A partir de aqu ir con separadores de final de campo
        PARA TIPO 00
        PARA TIPO 01
	CAMPO out_cod_supervi                                           #  X(01)

        FINTIPO
###########################################################################
#      date: 25 de mayo de 1998                                          #
#  ADPPT556: Sancin/reenvio/formalizacin/cierre            #
#                                                                         #
###########################################################################

TRANSACCION ADPPT556 ENVIA 135 RECIBE ?

ENVIA

        CAMPO ident             1:29   Identificacin de la transaccin   X(29)

#                                   1:8   Cdigo de transaccin            X(8)
#                                   9:1   Blanco                           X(1)
#                                  10:4   HHMM                             9(4)
#                                  14:3   Nmero de secuencia              9(3)
#                                  17:1   Siempre [                        X(1)
#                                  18:2   Puesto                           9(2)
#                                  20:4   Aplicacin que hace la peticin  X(4)
#                                  24:1   Siempre ]                        X(1)
#                                  25:1   Fin de transaccin (1/0)         9(1)
#                                  26:4   Nmero de orden del segmento IMS 9(4)

        CAMPO tipo              30:2    Tipo                               9(2)
        CAMPO subtipo           32:2    Subtipo                            9(2)
        CAMPO version           34:2    Versin de aplicacin              9(2)
        CAMPO b_ofi             36:8    Banco CSB y oficina del terminal   9(8)
        CAMPO userid            44:8    Usuario                            X(8)
        CAMPO cod_idioma        52:2    idioma                             9(2)
#                                         10=Castellano

#                                               ----------------->>>>>    X(24)
#       A partir de aqu ir con separadores de final de campo
# ****************************************************************  #
#                 IDENTIFICACION DEL ACUERDO                                      #
# ****************************************************************  #
#      Cdigo de Banco                     9(4)
        CAMPO cod_cbanco
#      Cdigo de Oficina                   9(4)
        CAMPO cod_cofici
#      Codigo de Contrapartida             9(4)
        CAMPO num_cfolio
#      Codigo de Folio del acuerdo         9(10)
        CAMPO cod_cfolio
#      Cdigo dependiente  (a ceros)       9(9)
        CAMPO cod_cdepen
#      Cdigo de Banco Accin              9(4)
        CAMPO cod_bancacc
#      Cdigo de Oficina Accin            9(4)
        CAMPO cod_ofiacc
#      Cdigo Matrcula del Sancionado     9(8)
        CAMPO cod_emplsan
#      Cdigo de Fecha de Sancin          X(10)
        CAMPO cod_fecsanc
#       Cdigo de Hora de Sancin          X(8)
        CAMPO cod_hsm_sancin
#       Cdigo tipo de sancin              X(2)
         CAMPO codsanc
#       Cdigo tipo de supervisin           X(1)
         CAMPO codsupv
#       Cdigo tipo destino                    X(1)
         CAMPO coddest
#        Cdigo tipo unidad operante          X((1)
         CAMPO codunid
#       Cdigo Fecha en Vigor                 X(10)
         CAMPO cod_fecvigr
#       Cdigo Motivo de Cierre               9(2)
         CAMPO cod_motcier
#       Cdigo tipo acontecinmiento            9(4)
         CAMPO cod_acontec
# ****************************************************************  #
#    BANCO/OFICINA(EMPLEADO QUE REALIZA LA ACCION                          #
#                ( EN EL BUFFER CONSTAN)                                           #
# ****************************************************************  #

        CAMPO cod_bancoacc 
        CAMPO cod_oficiacc
#	Mtricula del sancionador o super. 9(8)
        CAMPO cod_emplesan
## ****************************************************************  #
#                 IFECHA Y HORA                                                      #
# ****************************************************************  #
        CAMPO fec_sancion 
        CAMPO hsm_sancion 
# ****************************************************************  #
#                 ACCION                                                               #
# ****************************************************************  #

#       Tipo de acceso                    X(1)
#                                        "PD"=Pendiente
#                                        "PS"=Autoriza Precios
#                                        "D"=denegada
#                                        "V"=Devolucion
#                                        "RV"=reenvio
#                                        "RP"=reestudio
#                                        " "=formalizacin o supervisin
        CAMPO cod_tsancion

#        Tipo de supervisin               X(1)
#                                        "p"=Pendiente
#                                        "T"=Formalizacin contrato
#                                        "J"=Cuentas relacionadas realizada
#                                        "F"=Puesta en vigor
#                                        "C"=Cierre sin contrato
#                                        "E"=Nuevo Estudio
         CAMPO cod_tsupervi

#       Tipo de destino                   X(1)
#                                        "T"=regional/territorial
#                                        "P"=Propia oficina
#                                        "A"=Admon.Central
	CAMPO cod_tdestino

#	Tipo de la unidad               X(1)
#                                        "P"=proponente
#                                        "S"=Sancionadora
	CAMPO cod_tunidad

#	Fecha de Puesta en Vigor
	CAMPO fec_vigor

	CAMPO cod_motcierr


RECIBE

        CAMPO ctrans             1:8     Nombre de la transaccion
        CAMPO fin_trn            25:1    Fin de la transaccin
        CAMPO numseg           26:4    Numero de Orden del Segmento      X(29)
#
        CAMPO tipo              30:2    Tipo                               9(2)
        CAMPO subtipo           32:2    Subtipo                            9(2)
        CAMPO version           34:2    Versin de aplicacin              9(2)
        CAMPO b_ofi             36:8    Banco CSB y oficina del terminal   9(8)
        CAMPO userid            44:8    Usuario                            X(8)
        CAMPO cod_idioma        52:2    idioma                             9(2)
#                                         10=Castellano

        CAMPO cretor            54:4    Cdigo de retorno                  X(4)
#                                       "    " Ok
#                                        BE Error BD mensajes
#                                        MI Mensaje inexistente
#                                        DD Demasiadas rdenes de acotar
#                                           (mas los que se puedan dar)
        CAMPO mensaje           58:50   Mensaje                            X(50)
        TIPO  tip_datos        108:2    Tipo de salida                     9(2)
#                                          00= Salida sin informacin
#                                          01= Salida con datos sin error
#                                          02= Salida con datos de error
#                                        --------------------------->>>   X(107)
#       A partir de aqu ir con separadores de final de campo
        PARA TIPO 00
        PARA TIPO 01
#	        Codigo de valor             X(5)
#              CAMPO cod_val
#		DNI/NIF                     X(10)
#		CAMPO cod_cdnitr
#		Titularidad                 X(60)
#		CAMPO cod_titulari
#		Relacion de Participes      X(60)
#		CAMPO ctippe
#		CAMPO qty_qnumor
#		Identificacion de propuesta renovadora
#		CAMPO cod_bancor
#		CAMPO cod_oficictr
#		CAMPO cod_ccontrr
#		CAMPO cod_cfolior
        FINTIPO
