O utilizar el sort como antiguamente , otra posible solución es mas rápido
que el OPNQRY
FMTDTA INFILE((QTEMP/ARFL00W)) +
OUTFILE(QTEMP/ARFL00W1) +
SRCFILE(LIBL/QFMTSRC) SRCMBR(ORDEN1) +
OPTION(*NOPRT) /* Antigua Clasificación */
Miembro: ORDEN1
SEU==>
ORDEN1
FMT ** ...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+...
7
*************** Principio de datos
************************************
0001.00 HFILE 9A X ARFL00W----> ARFL00W1
0002.00 FNC 27 29 PEWUB1
0003.00 FNC 30 32 PEWUB2
0004.00 FNC 33 35 PEWUB3
0005.00 FDC 1 35 TODO
Paco Medina
DEPT. INFORMÁTICA
Exclusivas Camacho, S. Ltd.
CIF B29145240
Av. J. Ortega y Gasset, 301 (Pol. San Luis)
Málaga, España
Tel. +34 952 322 900
Fax +34 952 314 900
www.e-camacho.com
[email protected]
Antes de imprimir piensa si es necesario, piensa en el MEDIO AMBIENTE
Este mensaje se dirige exclusivamente a su destinatario y puede contener
información privilegiada o confidencial. Si no es vd. el destinatario
indicado, queda notificado de que la utilización, divulgación y/o copia sin
autorización está prohibida en virtud de la legislación vigente. Si ha
recibido este mensaje por error, le rogamos que nos lo comunique
inmediatamente por esta misma vía y proceda a su destrucción. Gracias.
Before printing thinks if necessary, think of ENVIRONMENT
This message is intended exclusively for its addressee and may contain
information that is CONFIDENTIAL and protected by professional privilege. If
you are not the intended recipient you are hereby notified that any
dissemination, copy or disclosure of this communication is strictly
prohibited by law. If this message has been received in error, please
immediately notify us via e-mail and delete it. Thank you.
_____
De: [email protected]
[mailto:[email protected]] En nombre de Javier Mora
Enviado el: miércoles, 17 de marzo de 2010 12:45
Para: forum.help400
Asunto: RE: RPG que no compila por OPNQRYF
Si necesitas utilizar SETLL y READx una estrategia consiste en generarte un
lógico por los campos de clave que necesites. En el código fuente utiliza
este lógico y compila. El archivo lógico lo puedes borrar después.
Yo utilizaba antes muchísivo el OPNQRYF e intentaba evitar el uso de SETLL.
En la hoja F utilizaba siempre el archivo físico. Al programa tenían que
llegarle los registros necesarios (seleccionados) y clasificados. Luego con
un simple READ o CICLO LÓGICO se leían los datos. Es cierto que en ocasiones
es necesario recorrer el archivo y no siempre se puede evitar el SETLL o el
READE.
Mi consejo es que utilices SQL incrustado.
Un saludo.
Javier Mora
_____
De: [email protected]
[mailto:[email protected]] En nombre de Juan Carlos
xxxxxxxxxxxxxxxxx
Enviado el: miércoles, 17 de marzo de 2010 11:52
Para: [email protected]
Asunto: RPG que no compila por OPNQRYF
Buenos días.
Estoy intentando compilar un programa que utiliza un fichero que proviene de
un OPNQRYF. Mi problema está en que en el OPNQRYF le indico unas claves
distintas a las que tiene el fichero, y al compilar y hacer un SETLL, READE,
me dice que no coinciden las claves. ¿Como hago para engañar a la
compilación y decirle que el fichero que tiene que tratar es el del OPNQRYF
y no el del objeto físicamente.
Gracias por adelantado.
_____
¿Sabes que la Videollamada de Messenger es GRATIS ¡Descúbrela!
<http://events.es.msn.com/windows-live/redes-sociales/default.aspx>
_____
¿Te gustaría tener Hotmail en tu móvil Movistar? ¡Es gratis!
<http://serviciosmoviles.es.msn.com/hotmail/movistar-particulares.aspx>
____________________________________________________
© Publicaciones Help400, S.L. - Todos los
derechos reservados http://www.help400.es
----------------------------------------------------
Para darte de baja visita la siguente URL:
http://listas.combios.es/mailman/listinfo/forum.help400
