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] 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
<<image/jpeg>>
__________________________________________________ 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
