Hola !!
Yo tengo este codigo:
*---------------------------------------*
* CONVIERTE FECHA DE FORMATO *JUL A *ISO
*---------------------------------------*
C @DATCONV BEGSR
C CLEAR FECLLA
C CLEAR FECJUL 6
C MOVE DATCALL FECJUL
/FREE
CLEAR FECGRE ;
FECGRE = %DATE(FECJUL:*JUL) ;
FAÑO = %DEC(YEAG:4:0) ;
FMES = %DEC(MONG:2:0) ;
FDIA = %DEC(DAYG:2:0) ;
/END-FREE
Quizá te sirva
Saludos !!
From: [email protected]
To: [email protected]
Date: Thu, 19 Mar 2009 11:55:11 -0500
Subject: 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(*iso)
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
_________________________________________________________________
News, entertainment and everything you care about at Live.com. Get it now!
http://www.live.com/getstarted.aspx<<attachment: 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
