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.
<https://signup.live.com/signup.aspx?id=60969>
____________________________________________________
Únete a Recursos AS400, nuestra Comunidad ( http://bit.ly/db68dd )
Forum.Help400 © Publicaciones Help400, S.L.
