Nicolas es mas facil hacerlo de esta manera...
D EURFEC S D DATFMT(*EUR)
D ISOFEC S D DATFMT(*ISO)
D FECHA S 8S 0 INZ(*Zeros)
*ISOFEC Move AAAAMMDD EURFEC
Move Eurfec FECHA
-----Original Message-----
From: Nicol�s Machado [mailto:[EMAIL PROTECTED]]
Sent: Tuesday, October 05, 2004 2:46 PM
To: [EMAIL PROTECTED]
Subject: Re: Cambiar formato de Fecha AAAAMMDD a DDMMAAAA
bueno, buscando lo resolvi de esta manera.
* Cambiar formato de fecha
C *ISO MOVE RFFADI $$fecha
C Eval RFFADI = (%subdt($$fecha:*d) * 1000000) +
C (%subdt($$fecha:*m) * 10000) +
C (%subdt($$Fecha:*y) )
*
RFFADI es un campo S(8,0)
$$fecha es un campo tipo date en el programa:
D $$Fecha S 8d
Al finalizar estoy teniendo en RFFADI, por ejemplo : 05102004
y al inicir estaba en : 20041005
Saludos
----- Original Message -----
From: "Nicol�s Machado" <[EMAIL PROTECTED]>
To: <[EMAIL PROTECTED]>
Sent: Tuesday, October 05, 2004 2:51 PM
Subject: Cambiar formato de Fecha AAAAMMDD a DDMMAAAA
> Hola, hace un tiempo alguien mando un excelente ejemplo que permite
> "permutar" los numeros en un campo numerico facilmente.
> yo tengo un campo numerico S(8) con el contenido en AAAAMMDD y o quiero
> poner en un campo numerico DDMMAAAA para imprimirlo.
> Pero no quiero usar un DS ...
>
> Alguien recuerda ??
> Saludos
> Nicolas
>
>
> ----- Original Message -----
> From: "H�ctor Benito" <[EMAIL PROTECTED]>
> To: <[EMAIL PROTECTED]>
> Sent: Wednesday, September 22, 2004 8:38 AM
> Subject: Api's QMHSNDPM, QMHRMVPM
>
>
> >
> > Buenos d�as,
> >
> > estmos utilizando las api's QMHSNDPM,
> > QMHRMVPM para mostrar los mensajes x pantalla en un programa en free
ile,
> > pero no hay manera de que aparezcan por pantalla, sin embargo
visualizando
> > los logs los mensajes aparecen. � hay que compilar los fuentes de alguna
> > manera especial ?.
> >
> > Un saludo.
> >
> > ---------------------------------------------------------------
> > H�ctor Benito Ser�n.
> > Correo electr�nico: [EMAIL PROTECTED]
> > Departamento de Inform�tica.
> >
> > GRUPO CARRERAS. Divisi�n Almacenaje y Distribuci�n S.A
> > Ctra. de Huesca, km. 7,770 Ciudad del Transporte
> > Tel. 976.011.116
> > Tel. 976.587.369
> > Fax. 976.150.499
> > Web. http://www.grupocarreras.com
> > 50820 Zaragoza
> >
> > ____________________________________________
> >
> > GRUPO CARRERAS
> > http://www.grupocarreras.com
> > ____________________________________________
> >
> >
> > _____________________________________________________
> > Forum.HELP400 es un servicio m�s de NEWS/400.
> > � Publicaciones Help400, S.L. - Todos los derechos reservados
> > http://www.help400.es
> > _____________________________________________________
> >
> > Para darte de baja, env�a el mensaje resultante de pulsar
> > mailto:[EMAIL PROTECTED]
>
>
> ---
> Outgoing mail is certified Virus Free.
> Checked by AVG anti-virus system (http://www.grisoft.com).
> Version: 6.0.773 / Virus Database: 520 - Release Date: 05/10/2004
>
---
Outgoing mail is certified Virus Free.
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.773 / Virus Database: 520 - Release Date: 05/10/2004
_____________________________________________________
Forum.HELP400 es un servicio m�s de NEWS/400.
� Publicaciones Help400, S.L. - Todos los derechos reservados
http://www.help400.es
_____________________________________________________
Para darte de baja, env�a el mensaje resultante de pulsar
mailto:[EMAIL PROTECTED]
