Gracias Roberto, lo prob� pero el CRTSRCPF tiene como salida el "select" del qry y no el archivo de salida que genera el qry, y el problema que tengo es que yo se el nombre del archivo salida pero no se el nombre del qry.. Gracias... Saludos Fernando
-----Mensaje original----- De: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] En nombre de roberto c. g. Enviado el: Jueves, 13 de Noviembre de 2003 07:23 p.m. Para: [EMAIL PROTECTED] Asunto: RE: RE: Archivos QRY 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] _____________________________________________________ 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]
