Otro ejemplo por sit e sirve:
PGM PARM(&FDE &FHA)
DCL VAR(&FDE) TYPE(*CHAR) LEN(8)
DCL VAR(&FHA) TYPE(*CHAR) LEN(8)
...........................................................
OPNQRYF FILE((ARTREAC2)) OPTION(*ALL) QRYSLT('fecha +
*eq %range(' *CAT &FDE *BCAT &FHA *CAT ') +
*and rpro *ne "PRO"') KEYFLD(*FILE) +
MAPFLD((FECHA +
'(RAÑO*10000)+(RMES*100)+RDIA' *DEC 8 0))
.............................................................
Saludos
-----Mensaje original-----
De: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED]
En nombre de Carlos Augusto Correa García
Enviado el: miércoles, 16 de noviembre de 2005 18:33
Para: [email protected]
Asunto: Campo Fecha en OPNQRYF
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.
© 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
__________________________________________________
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
