Hola, Mirate la ayuda del mandato CVTDAT:
* *LONGJUL *
The date has the long Julian format, yyyyddd.
Tu pones que FROMFMT(*LONGJUL) pero ('0109075') ni (' 109075') ni ('
09075') cumplen este formato
Saludos
2009/3/19 Peñaherrera, Mauro <[email protected]>
> Compañeros del foro:
>
>
>
> Necesito pasar una fecha juliana a fecha normal (YYMD) y estoy utilizando
> una instrucción CL, pero me da error
>
>
>
> 1800 - CVTDAT DATE('0109075') TOVAR(&X0DATE) FROMFMT(*LONGJUL)
>
> TOFMT(*YYMD) TOSEP(*NONE)
>
> Fecha fuera del rango permitido.
>
> Se ha producido un error al enviar el mensaje IXA0020.
>
>
>
> 1800 - CVTDAT DATE(' 109075') TOVAR(&X0DATE) FROMFMT(*LONGJUL)
>
> TOFMT(*YYMD) TOSEP(*NONE)
>
> La fecha contiene demasiados o pocos caracteres numéricos.
>
>
>
> 1800 - CVTDAT DATE(' 09075') TOVAR(&X0DATE) FROMFMT(*LONGJUL)
>
> TOFMT(*YYMD) TOSEP(*NONE)
>
> La fecha contiene separadores mal colocados o adicionales.
>
>
>
> El campo declarado en el CL para la fecha juliana es de 7 alfanumérico.
>
>
>
> Alguien me puede dar idea del error o si conocen alguna otra forma de
> convertir la fecha juliana en fecha normal.
>
>
>
> Gracias.
>
>
>
>
>
> *De:* Peñaherrera, Mauro
> *Enviado el:* martes, 17 de marzo de 2009 19:05
> *Para:* 'forum.help400'
> *Asunto:* RE: rutina conversión
>
>
>
> gracias, ya le pruebo
>
>
>
> *De:* [email protected] [mailto:
> [email protected]] *En nombre de *Hector Vera G.
> *Enviado el:* martes, 17 de marzo de 2009 18:54
> *Para:* forum.help400
> *Asunto:* RE: rutina conversión
>
>
>
> Aquí te adjunto un ejemplo en rpg. Espero te sirva.
>
> Saludos,
>
> hector
>
>
>
> *De:* [email protected] [mailto:
> [email protected]] *En nombre de *Peñaherrera, Mauro
> *Enviado el:* Martes, 17 de Marzo de 2009 05:37 p.m.
> *Para:* forum.help400
> *Asunto:* rutina conversión
>
>
>
> Compañeros del foro:
>
>
>
> Tengo una rutina para convertir un numero en letras (se utiliza para la
> impresión en los cheques) está en COBOL 400, pero se requiere hacer unos
> cambios, no soy muy bueno en COBOL, quería ver si alguien tiene una rutina
> en RPG, RPGLE o diferente de COBOL que me pueda facilitar o si conocen de
> alguna dirección electrónica donde pueda revisar.
>
>
>
> Gracias.
>
>
>
> Saludos
>
> Mauro Peñaherrera Ruiz
>
> *Departamento de Tecnología*
>
> *'** (593-2) 2981-300 *
>
> *+**: [email protected]** *
>
> *[image: cid:[email protected]]*
>
>
>
>
> ------------------------------
>
> Nota de descargo: La información contenida en este e - mail y sus anexos es
> confidencial y sólo puede ser utilizada por el destinatario del mismo. Esta
> información no debe ser distribuida, ni copiada total o parcialmente por
> ningún medio sin la autorización de DINERS/INTERDIN. Además, DINERS/INTERDIN
> no asume responsabilidad sobre información, opiniones o criterios contenidos
> en este e-mail.
>
> Disclaimer: The information contained in this e-mail and its attached files
> are confidential and intended only for the use of the person to which it is
> addressed. This information can not be totally or partially distributed nor
> copied by any media without the authorization from DINERS/INTERDIN. In
> addition, DINERS/INTERDIN does not assume responsibility about this
> information, opinions or criteria contented in this e-mail.
>
>
> ------------------------------
>
> Este mensaje se transmite exclusivamente para el uso del destinatario
> previsto y puede contener información que es PRIVILEGIADA y/o CONFIDENCIAL.
> Dicha información no expresa la posición de la compañía. Si usted no es el
> destinatario previsto, se le notifica por este medio, que cualquier uso,
> difusión, acceso o copia de esta comunicación está prohibida
> terminantemente. Si usted ha recibido esta comunicación por error, destruya
> por favor todas las copias de este mensaje y sus adjuntos y notifíquenos
> inmediatamente.
>
> This message is sent exclusively for the use of the intended recipient and
> may contain information that is PRIVILEGED and/or CONFIDENTIAL. This
> information do not express the position of the company. If you are not the
> intended recipient, you are hereby notified that any use, dissemination,
> disclosure or copying of this communication is strictly prohibited. If you
> have received this communication by mistake, please destroy all copies of
> this message and its attachments and notify us immediately
>
> "Bienvenido a la Vida, Bienvenido a InVita"
>
> __________________________________________________
> Forum.HELP400 es un servicio m&#225;s de ServerNEWS.
> &#169; Publicaciones Help400, S.L. - Todos los derechos reservados
> http://www.help400.es
> _____________________________________________________
>
> Para darte de baja visita la siguente URL:
> http://listas.combios.es/mailman/listinfo/forum.help400
>
--
Martí Riera
<<image001.jpg>>
__________________________________________________ Forum.HELP400 es un servicio m&#225;s de ServerNEWS. &#169; Publicaciones Help400, S.L. - Todos los derechos reservados http://www.help400.es _____________________________________________________ Para darte de baja visita la siguente URL: http://listas.combios.es/mailman/listinfo/forum.help400
