Hola, ahi, ahi !!
* *LONGJUL *
The date has the long Julian format, yyyyddd. = aaaaddd
Suerte !
2009/3/19 Peñaherrera, Mauro <[email protected]>
> correcto, pero la fecha juliana en que formato (aaddd o aaaaddd ).
>
>
>
>
>
> *De:* [email protected] [mailto:
> [email protected]] *En nombre de *[email protected]
> *Enviado el:* jueves, 19 de marzo de 2009 12:20
>
> *Para:* forum.help400
> *Asunto:* RE: conversión fecha
>
>
>
>
> EL programa recibe una fecha en formato AAAAMMDD y te devuelve una juliana.
> Para hacerlo al revés,tienes que cambiar el sentido de la operación:
> La variable de entrada la defines como *jul y la de salida como *iso
> y haces las operaciones al revés de lo que yo te he adjuntado.
> Suerte
>
>
> *"Peñaherrera, Mauro" <[email protected]>*
> Enviado por: [email protected]
>
> 19/03/2009 17:56
>
> Por favor, responda a
> "forum.help400" <[email protected]>
>
> Para
>
> "forum.help400" <[email protected]>
>
> cc
>
> Asunto
>
> RE: conversión fecha
>
>
>
>
>
>
> disculpa no me exprese bien, que valores debo poner en los parámetros
> (sobre todo lo de la fecha juliana).
>
>
> *De:* [email protected] [mailto:
> [email protected]] *En nombre de *[email protected]
> *
> Enviado el:* jueves, 19 de marzo de 2009 11:17*
> Para:* forum.help400*
> Asunto:* RE: conversión fecha
>
>
> Desde un rpg:
> C CALL 'SPRGTD82'
> C PARM PEFPED @ENTRA 8 0
> C PARM *ZEROS @SALE 8 0
> Desde Cl
> CALL PGM(SPRGTD82) PARM(&entra &sale)
>
> *"Peñaherrera, Mauro" <[email protected]>*
> Enviado por: [email protected]
>
> 19/03/2009 17:04
>
>
>
> Por favor, responda a
> "forum.help400" <[email protected]>
>
>
>
> Para
>
> "forum.help400" <[email protected]>
>
> cc
>
> Asunto
>
> RE: conversión fecha
>
>
>
>
>
>
>
>
>
>
> GRACIAS, UNA CONSULTA ADICIONAL, COMO ENVIO LOS PARAMETROS ???
>
> *
> De:* [email protected] [mailto:
> [email protected]] *En nombre de *[email protected]
> *
> Enviado el:* jueves, 19 de marzo de 2009 10:00*
> Para:* forum.help400*
> Asunto:* Re: conversión fecha
>
>
> Hola. Yo tengo esta rutina en ILE. A ver si te sirve. Es la que usamos
> aqui.
>
> d...@entrada S 8 0
> d...@sortida S 8 0
> DANY S 4 0
> DDentrada S D DATFMT(*jul)
> Ddhoy S D DATFMT(*iso)
> DDjuliana S D DATFMT(*jul)
> *
> C *ENTRY PLIST
> C PARM @entrada
> C PARM @sortida
> c *iso test(d) @entrada 90
> c n90 move @entrada dentrada
> c n90 extrct dentrada:*Y any
> c if ((*in90=*off)and (any>2000))
> C MOVE dentrada djuliana
> C MOVE djuliana @sortida
> c else
> c move *date dentrada
> C MOVE dentrada djuliana
> C MOVE djuliana @sortida
> c endif
> c SETON LR
>
> *"Peñaherrera, Mauro" <[email protected]>*
> Enviado por: [email protected]
>
> 19/03/2009 15:07
>
>
>
>
>
> Por favor, responda a
> "forum.help400" <[email protected]>
>
>
>
>
>
> Para
>
> "forum.help400" <[email protected]>
>
> cc
>
> Asunto
>
> conversión fecha
>
>
>
>
>
>
>
>
>
>
>
>
>
> 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
> __________________________________________________
> 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
> __________________________________________________
> 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
>
> __________________________________________________
> 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
