Gracias por tu ayuda, Funcionó.
Lo explico para lo interesados :
/*********************************************************************/
PGM PARM(&BANCO &FEC)
DCL VAR(&BANCO) TYPE(*CHAR)
LEN(40)
DCL VAR(&FEC) TYPE(*CHAR)
LEN(8)
DCL VAR(&FECHA) TYPE(*CHAR) LEN(10)
DCL VAR(&DIA) TYPE(*CHAR) LEN(2)
DCL VAR(&MES) TYPE(*CHAR)
LEN(2)
DCL VAR(&AÑO) TYPE(*CHAR)
LEN(4)
CHGVAR VAR(&DIA) VALUE(%SUBSTRING(&FEC 1
2))
CHGVAR VAR(&MES) VALUE(%SUBSTRING(&FEC 3
2))
CHGVAR VAR(&AÑO) VALUE(%SUBSTRING(&FEC 5
4))
/* CONVIERTO LA FECHA A FORMATO ISO AAA-MM-DD*/
CHGVAR &FECHA (&AÑO *CAT '-' *CAT &MES
*CAT '-' *CAT &DIA)
OVRDBF FILE(FILE1)
SHARE(*YES)
OPNQRYF FILE((FILE1)) QRYSLT('FECING *EQ ''' *CAT +
&FECHA *CAT '''') IGNDECERR(*YES)
CALL PGM(RXXXX) PARM(&BANCO &FEC)
CLOF OPNID(FILE1)
DLTOVR FILE(FILE1)
GOTO CMDLBL(FINAL)
FINAL: ENDPGM
Muchas Gracias por sus respuestas.
Saludos desde Piura
____________________________
Carlos Augusto Correa García
alex martinez escribió:
Hola:
Declara &FEC como tipo *CHAR LEN(10) y asignale el valor de fecha en
formato *ISO tal "aaaa-mm-dd"
QRYSLT(' FECING="2005-11-16"')
SAlu2
El 16/11/05, Carlos Augusto Correa García<[EMAIL PROTECTED]> escribió:
Saludos desde Piura-Perú
Tengo un problemilla que necesito resolver. Tengo un archivo con un
campo de Fecha cuya linea en DDS es más o menos así:
A FECING L TEXT('FECHA DE INGRESO')
Además, tengo un programa CL, en el cual necesito filtrar con OPNQRYF
todos aquellos registros que concidan con la fecha que se ingresó como
parametro en el CL:
PGM PARM(&NOMBCO &FEC)
DCL VAR(&NOMBCO) TYPE(*CHAR) LEN(40)
DCL VAR(&FEC) TYPE(*CHAR) LEN(8)
La variable de fecha es &FEC (Fecha actual, Parmetro)
La pregunta es ¿Como puedo hacer el respectivo filtro con OPNQRYF ?
Muchas Gracias por sus respuetas.
Saludos desde Piura-Perú
_________________
Carlos Augusto Correa García
__________________________________________________
Forum.HELP400 es un servicio más de NEWS/400.
(c) 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
--
Mi blog sobre as400
http://www.ajut400.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 visita la siguente URL:
http://coyote.combios.es/mailman/listinfo/forum.help400
|
