Ejemplo:

 

 C                         MOVEL     *YEAR           AÑO                4  

 C                         MOVEL     UMONTH        MES                2  

 C                         MOVEL     UDAY            DIA                  2


 C     AÑO             CAT          MES:0           FECHA             8  

 C     FECHA         CAT          DIA:0            FECHA                

 

 

Saludos 

Paco Medina

Dtor.Informatica

 

 

Exclusivas Camacho, S. L.

Av. J. Ortega y Gasset, 301 (Pol. San Luis)

29006   Málaga, España

Tel.    +34 952 322 900

Fax    +34 952 314 900

www.e-camacho.com

[EMAIL PROTECTED] 
Este e-mail  es confidencial. Si usted no es el receptor apropiado, rogamos
no use la información contenida en el mismo por ser personal e
intransferible.
Si usted lo ha recibido por equivocación o descuido, por favor, reenvíe el
e-mail inmediatamente al remitente y destruya el documento.
EXCLUSIVAS CAMACHO S.L.  no se hará responsable del mal uso de la
información recibida en estas condiciones, tomando las pertinentes acciones
legales contra la persona o entidad que incumpla el siguiente clausulado. 

 

 

  _____  

De: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED] En nombre de Dpto.
Informática - F.Soria
Enviado el: martes, 24 de julio de 2007 9:24
Para: forum.help400
Asunto: Re: Los ceros a la izquierda

 

Hola:

 

La fecha la tengo separada en 3 campos año, mes y día que luego concateno
para guardarla en un fichero como caracter.

 

Gracias

 

E. Jurado

Dpto. Informática (F.Soria, S.A.)
Tlf.: 914791512
-------------------------------------------------
AVISO DE CONFIDENCIALIDAD:
La información contenida en este mensaje y archivos adjuntos es privada,
confidencial y de uso exclusivo de la(s) persona(s) y entidad(es) a la(s)
que va dirigido. Si Ud. no es el destinatario de esta información se le
notifica que está expresamente prohibida la declaración, reproducción,
distribución o la toma de cualquier acción basada en el contenido de esta
comunicación. Si ha recibido este mensaje por error, le rogamos que nos lo
comunique inmediatamente y proceda a eliminarlo de todos sus sistemas.
Francisco Soria Melguizo, S.A. no asume responsabilidad legal por el
contenido de esta comunicación, ni representa la opinión de la firma, salvo
que expresamente se especifique lo contrario y que el remitente esté
autorizado para hacerlo. Gracias.

----- Original Message ----- 

From: Juan Carlos Paredes <mailto:[EMAIL PROTECTED]>  

To: forum.help400 <mailto:[email protected]>  

Sent: Tuesday, July 24, 2007 8:50 AM

Subject: RE: Los ceros a la izquierda

 

Si es un campo fecha:

 

eval resultado=%editc(%dec(fecha:*iso):'X');

 

Si es un campo numérico:

 

eval resultado=%editc(fecha:'X');

 

Saludos.

Juan Carlos

 

 


  _____  


De: Dpto. Informática - F.Soria [mailto:[EMAIL PROTECTED] 
Enviado el: martes, 24 de julio de 2007 8:21
Para: FORUM400
Asunto: Los ceros a la izquierda

Hola a todos:

Necesito guardar una fecha (año, mes y dia) en formato caracter pero cuando
utilizo en ile rpg eval %char(mes)  los 0 de la izquierda los pone a blanco.

Creo que he probado todas las posibilidades para que deje los ceros de la
izquierda pero no consiguo dar con esto.

¿sabeis de alguna solución?

 

Gracias a todos

 

E. Jurado

Dpto. Informática (F.Soria, S.A.)
Tlf.: 914791512
-------------------------------------------------
AVISO DE CONFIDENCIALIDAD:
La información contenida en este mensaje y archivos adjuntos es privada,
confidencial y de uso exclusivo de la(s) persona(s) y entidad(es) a la(s)
que va dirigido. Si Ud. no es el destinatario de esta información se le
notifica que está expresamente prohibida la declaración, reproducción,
distribución o la toma de cualquier acción basada en el contenido de esta
comunicación. Si ha recibido este mensaje por error, le rogamos que nos lo
comunique inmediatamente y proceda a eliminarlo de todos sus sistemas.
Francisco Soria Melguizo, S.A. no asume responsabilidad legal por el
contenido de esta comunicación, ni representa la opinión de la firma, salvo
que expresamente se especifique lo contrario y que el remitente esté
autorizado para hacerlo. Gracias.


  _____  


__________________________________________________
Forum.HELP400 es un servicio m&amp;#225;s de NEWS/400.
&amp;#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&amp;#225;s de NEWS/400.
&amp;#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

Responder a