ja ja ja ja ....gracias Jose Luis...............tengo muchos compañeros
Argentinos en la empresa donde trabajo y son excelentes.
Tambien esta con nosostros un italiano y le cargamos todo el
dia..................cosa de futbol.
Suerte a todos...............Paraguay, Argentina, Uruguay, Brasil y a los
grandes amigos del foro los Españoles.
Gracias y saludos
Carlos Pedrozo
From: [email protected]
To: [email protected]
Subject: RE: CL -CVTDAT
Date: Wed, 30 Jun 2010 12:59:03 -0300
Carlos:
/*******************************************************************/
/* Programa: VALFEC */
/* Descripcion: Valida Fecha de 8 y Convierte DDMMAAAA a AAAAMMDD */
/* Autor: JLDJ */
/* Fecha: 03 de Septiembre de 2009 */
/***************************************************************** */
VALFEC: PGM PARM(&FEC &ERR)
DCL VAR(&FEC) TYPE(*CHAR) LEN(8)
DCL VAR(&ERR) TYPE(*CHAR) LEN(1)
CVTDAT DATE(&FEC) TOVAR(&FEC) FROMFMT(*DMYY) +
TOFMT(*YYMD) TOSEP(*NONE)
MONMSG MSGID(CPF0000) EXEC(CHGVAR VAR(&ERR) +
VALUE('1'))
SALIR: ENDPGM
En este ejemplo mandas al CLP una Fecha DD/MM/AAAA y te la reversa y aparte en
&ERR
Se señala si la fecha es correcta o no.
JOSE LUIS
Arriba Argentina ¡!!!!
De: [email protected]
[mailto:[email protected]] En nombre de Carlos Pedrozo
Enviado el: Miércoles, 30 de Junio de 2010 12:48 p.m.
Para: [email protected]
Asunto: CL -CVTDAT
Hola; alguien sabe si se puede validar un valor de fecha (*eur) en un CL?
Gracias de antemano.
Saludos y ARRIBA PARAGUAY !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!11
Hotmail: Trusted email with powerful SPAM protection. Sign up now.
_________________________________________________________________
Hotmail: Free, trusted and rich email service.
https://signup.live.com/signup.aspx?id=60969____________________________________________________
Únete a Recursos AS400, nuestra Comunidad ( http://bit.ly/db68dd )
Forum.Help400 © Publicaciones Help400, S.L.
