Hay una anotación en el código de VRIBANM (comprobación), y es que cuando no es correcto, devuelve la estructura de datos de la LINKAGE con ALL "0".
Igualmente, para las pruebas, tiene asteriscada la última instrucción con un DISPLAY para ver el resultado. El 25 de septiembre de 2013 13:15, INFORMATICA <[email protected]>escribió: > ** > Muchas gracias Fernando. > A ver si tengo un momento y la pruebo. > Saludos > Carlos > > ----- Original Message ----- > *From:* FB FB <[email protected]> > *To:* forum.help400 <[email protected]> > *Sent:* Wednesday, September 25, 2013 11:51 AM > *Subject:* Re: Calculo de IBAN y normativa SEPA > > Hola, Adjunto 2 archivos fuente COBOL: > > CAIBANM.txt - Calcula el dígito de control > VRIBANM.txt - Comprueba el dígito de control > > Saludos > > > El 23 de septiembre de 2013 17:32, TURCO > <[email protected]>escribió: > >> Hola Fernando >> Si pudieras adjuntarla. >> Muchaa gracias >> >> Carlos >> >> El 23/09/2013, a las 13:23, FB FB <[email protected]> escribió: >> >> Hola Vicente, >> >> yo tengo una "recientita" en COBOL. >> De todas formas, adjunto un link para el algoritmo de cálculo para >> determinar el dígito de control. No es complicado. >> >> Un saludo. >> >> Página con el detalle del algoritmo: >> >> >> http://www.finanzasybanca.com/iberfinanzas/index.php/C/Codigo-Internacional-de-Cuenta-Bancaria-IBAN.html >> >> >> Página para validar cuentas e Iban: >> >> http://es.ibancalculator.com/bic_und_iban.html >> >> >> >> El 23 de septiembre de 2013 12:53, Vicente Aliaga | Silomar < >> [email protected]> escribió: >> >>> Buenos días a todos **** >>> >>> **** >>> >>> Con la nueva “próxima” aplicación de la normativa SEPA, lógicamente >>> tengo que añadir el IBAN en la ficha del cliente para **** >>> >>> el cambio de formato de los cuadernos (antes de Febrero del 2014 claro >>> ! )**** >>> >>> **** >>> >>> Alguien tiene alguna utilidad que pasándole cuentas CCC me las convierta >>> a IBAN ?**** >>> >>> **** >>> >>> Para lo que no sabéis que es SEPA os adelanto este link**** >>> >>> **** >>> >>> http://www.bbva.es/TLBS/tlbs/esp/metainf/sepa.jsp**** >>> >>> **** >>> >>> **** >>> >>> Así como si alguien está pasando los cuadernos *a la normativa XML ISO >>> 20022*, para tomar de referencia y agilizarnos la migración.**** >>> >>> **** >>> >>> Gracias foro**** >>> >>> **** >>> >>> P *No lo imprima si no es necesario. Protejamos el medio ambiente.* >>> >>> Este mensaje y sus archivos adjuntos pueden contener información >>> confidencial y están dirigidos exclusivamente a su destinatario. Le >>> informamos que la legislación vigente prohíbe el uso, divulgación o copia >>> del contenido del presente mensaje por persona distinta del destinatario >>> sin autorización previa. Si Ud. no es el destinatario de este mensaje y lo >>> ha recibido por error le agradeceríamos que nos lo comunicara y que >>> procediera a destruirlo. This message can contain confidential information >>> and is directed exclusively to its adressee. We inform you that the >>> legislation prohibits to use, spreading or copy the content of the present >>> message by person different from the adressee without previous >>> authorization. If you are not the adressee of this message or you have >>> received it by error we would be thankful if you notify us and delete it. >>> **** >>> >>> **** >>> >>> **** >>> >>> **** >>> >>> ____________________________________________________ >>> Únete a Recursos AS400, nuestra Comunidad ( http://bit.ly/db68dd ) >>> Forum.Help400 © Publicaciones Help400, S.L. >>> >> >> >> >> ____________________________________________________ >> Únete a Recursos AS400, nuestra Comunidad ( http://bit.ly/db68dd ) >> Forum.Help400 © Publicaciones Help400, S.L. >> >> >> ____________________________________________________ >> Únete a Recursos AS400, nuestra Comunidad ( http://bit.ly/db68dd ) >> Forum.Help400 © Publicaciones Help400, S.L. >> > > > > -- > Atentamente. > > RP Director Técnico > Tel. 93 255 31 51 > Fax. 93 255 31 09 > > ------------------------------ > > ____________________________________________________ > Únete a Recursos AS400, nuestra Comunidad ( http://bit.ly/db68dd ) > Forum.Help400 © Publicaciones Help400, S.L. > > > ____________________________________________________ > Únete a Recursos AS400, nuestra Comunidad ( http://bit.ly/db68dd ) > Forum.Help400 © Publicaciones Help400, S.L. > -- Atentamente. RP Director Técnico Tel. 93 255 31 51 Fax. 93 255 31 09
____________________________________________________ Únete a Recursos AS400, nuestra Comunidad ( http://bit.ly/db68dd ) Forum.Help400 © Publicaciones Help400, S.L.
