Este cl te dice en que query est� el fichero que le pasas como
par�metro. Espero que te sirva
Salu2
Roberto
---------------------------------------------------
PGM PARM(&LIBRARY &FILE)
DCL VAR(&LIBRARY) TYPE(*CHAR) LEN(10)
DCL VAR(&FILE) TYPE(*CHAR) LEN(10)
DCLF FILE(QTEMP/QRYOBJS)
DLTF FILE(QTEMP/QRYOBJS)
MONMSG CPF0000
DLTF FILE(QTEMP/&LIBRARY)
MONMSG CPF0000
CRTSRCPF FILE(QTEMP/&LIBRARY)
DSPOBJD OBJ(&LIBRARY/*ALL) OBJTYPE(*QRYDFN) +
DETAIL(*FULL) OUTPUT(*OUTFILE) +
OUTFILE
(QTEMP/QRYOBJS)
BEGIN: RCVF /* GET QUERY NAME AND LIBRARY NAME */
/* IF END OF FILE REACHED, EXIT LOOP */
MONMSG CPF0864 EXEC(GOTO EOF)
RTVQMQRY QMQRY(&ODLBNM/&ODOBNM) +
SRCFILE(QTEMP/&LIBRARY) ALWQRYDFN(*ONLY)
GOTO CMDLBL(BEGIN)
EOF: FNDSTRPDM STRING(&FILE) FILE(QTEMP/&LIBRARY)
MBR(*ALL) OPTION(*NONE) PRTMBRLIST(*YES)
ENDPGM
-----------------------------------------------------
----- Mensaje Original -----
Remitente: "Ruiz, Fernando" [EMAIL PROTECTED]
Destinatario: [EMAIL PROTECTED]
Fecha: Jueves, Noviembre 13, 2003 10:10pm
Asunto: RE: Archivos QRY
>Gracias, pero lo que estoy preguntando es los nombres de los
>archivos en
>donde estan almacenado las definiciones (estructura) de todos los
>qrys,me imagino que seran varios archivos de la QSYS y que, por
>ejemplo, me
>permita buscar cual es el qry que genera un determinado archivo, es
>decir, yo tengo el nombre del archivo de salida y no se que qry lo esta
>generando, y lo que quiero evitar es tener que entrar uno por uno...
>
>
>
>
>
>-----Mensaje original-----
>De: [EMAIL PROTECTED]
>[mailto:[EMAIL PROTECTED] En nombre de Adrian Cataldi
>Enviado el: Jueves, 13 de Noviembre de 2003 05:10 p.m.
>Para: [EMAIL PROTECTED]
>Asunto: Re: Archivos QRY
>
>
>Archivos de tipo *QRYDFN
>
>
>
>
>
>
> "Ruiz, Fernando"
>
> <[EMAIL PROTECTED] To:
>[EMAIL PROTECTED]
> r> cc:
>
> Sent by: Subject: Archivos
>QRY
> forum.help400-request
>
> @combios.es
>
>
>
>
>
> 13/11/03 03:03 p.m.
>
> Please respond to
>
> forum.help400
>
>
>
>
>
>
>
>
>
>Hola foreros, alguien sabe en que archivos se guardan los datos de la
>definici�n de los QRYs...
>Saludos y gracias
>
>Fernando
>
>
>
>_____________________________________________________
>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, env�a el mensaje resultante de pulsar
>mailto:[EMAIL PROTECTED]
>
>
>
>
>
>
>_____________________________________________________
>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, env�a el mensaje resultante de pulsar
>mailto:[EMAIL PROTECTED]
>
>_____________________________________________________
>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, env�a el mensaje resultante de pulsar
>mailto:[EMAIL PROTECTED]
>
_____________________________________________________
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, env�a el mensaje resultante de pulsar
mailto:[EMAIL PROTECTED]
