Hazte un rpg que te recorra el fichero y te convierta a fecha los tres
campos, controlando el posible error:
monitor;
<Conversión a fecha>
on-error;
<listar clave del registro>
endmon;
Saludos.
Fernando Pérez
Cerámica Saloni. Dpto. Sistemas
En/na Carlos Augusto Correa García ha escrit:
Buenos
días amigos del foro,
Tengo un problemilla, Resulta que tengo unos datos de fecha en un
archivo, pero los tengo en formato numerico, es decir DIA (2,0), mes
(2,0) y AÑO (4,0). Y bajo esa modalidad tengo varias fechas divididas
en tres campos (dia, mes y año).
Pues ahora, tengo que hacer una consulta de dicho archivo y sacar el
numero de dias de diferencia entre dos fechas. Por ejemplo Fecha1 -
Fecha2, para que me devuelva el número de días entre ambas fechas.
Al hacerlo de esta manera me ha funcionado
DAYS(((DIGITS(B.MES1)||'/'||DIGITS(B.DIA1))||'/'||DIGITS(B.AÑO1)))) -
DAYS(((DIGITS(B.MES2)||'/'||DIGITS(B.DIA2))||'/'||DIGITS(B.AÑO2))))
Y el resultado de esta consulta la paso a un archivo con
INSERT INTO MYLIB/OTROFILE
SELECT ... [MI CONSULTA]
...
Sin embago me ocurre un error cuando hay una mala definición de una
fecha, por ejemplo '30/02/2005' (sabemos que febrero no tiene 30 días).
He corregido estos casos pero se me presentan más. La idea es que
quiero identificar donde estan ocurriendo para corregilos. Haciendo un
display de los mensajes no puedo saber en que registro está ocurriendo
el error con el fin de corregirlo.
Alguien tiene alguna idea como puedo saber los registros erróneos.
Saludos
--------------------------------
Carlos Augusto Correa García
CMAC PIURA S.A.C.
Desarrollo de Sistemas
__________________________________________________
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 visita la siguente URL:
http://coyote.combios.es/mailman/listinfo/forum.help400
|
begin:vcard
fn;quoted-printable:Fernando P=C3=A9rez
n;quoted-printable:P=C3=A9rez;Fernando
org:;Sistemas
email;internet:[EMAIL PROTECTED]
tel;work:Ext. 627
x-mozilla-html:TRUE
version:2.1
end:vcard
