No soy experta en el OPNQRYF pero el @RL110 es un PF vacio con los campos que necesito de salida del OPNQRYF que estan en alguno de los tres definidos en el paametro FILE ¿se puede hacer eso?
----- Original Message ----- From: "Dario Heinze" <[EMAIL PROTECTED]> To: <forum.help400@combios.es> Sent: Wednesday, April 13, 2005 1:49 PM Subject: RE: OPNQRYF misterioso 0028.00 OPNQRYF FILE((@RL110) (MVAC) (ALCO)) FORMAT( *LIBL/@RL110 <mailto:*LIBL/@RL110>) QRYSLT('- 0029.00 FECHA1 *GE "' *CAT &FED *CAT '" *AND FECHA1 *LE "' *CAT &FEH *CAT '"- 0030.00 *AND MLCOCL *EQ "' *CAT &COPR *CAT '" *AND MLCLPR *EQ "' *CAT &CLPR - 0031.00 *CAT '" *AND MLENSA *EQ "' *CAT &ENSA *CAT '" ') KEYFLD((ACREPR)) - 0032.00 JFLD((MLCOMO MCCOMO) (MLCONT MCCONT) (MLMARS ACMAR) (MLREFS ACREFE) - 0033.00 (MLCOCL ACCOPR) (MCTIPE ACTIPE)) JDFTVAL(*YES) MAPFLD((FECHA MLFECH - 0034.00 *ZONED 8) (FECHA1 FECHA *CHAR 8)) la via de acceso creada por el OPNQRYF tomara el nombre del primer archivo en tu caso MVAL, prueba como te pongo mas arriba poniendo en vez de MVAL @RL110 Saludos, Dario.- > -----Mensaje original----- > De: Foro AS/400 [SMTP:[EMAIL PROTECTED] > Enviado el: Miércoles, 13 de Abril de 2005 07:47 > Para: forum.help400@combios.es > Asunto: OPNQRYF misterioso > > Hola [EMAIL PROTECTED] <mailto:[EMAIL PROTECTED]>: > > Os propongo un nuevo misterio, que seguro que para vosotros no lo es. > > 0021.00 PGM PARM(&FED &FEH &COPR) > > 0022.00 DCL VAR(&FED) TYPE(*CHAR) LEN(8) > > 0023.00 DCL VAR(&FEH) TYPE(*CHAR) LEN(8) > > 0024.00 DCL VAR(&COPR) TYPE(*CHAR) LEN(6) > > 0025.00 DCL VAR(&CLPR) TYPE(*CHAR) LEN(1) VALUE('P') > > 0026.00 DCL VAR(&ENSA) TYPE(*CHAR) LEN(1) VALUE('E') > > 0027.00 OVRDBF FILE(@RL110) TOFILE(MVAL) SHARE(*YES) > > 0028.00 OPNQRYF FILE((MVAL) (MVAC) (ALCO)) FORMAT( *LIBL/@RL110 > <mailto:*LIBL/@RL110>) QRYSLT('- > 0029.00 FECHA1 *GE "' *CAT &FED *CAT '" *AND FECHA1 *LE "' *CAT &FEH *CAT > '"- > 0030.00 *AND MLCOCL *EQ "' *CAT &COPR *CAT '" *AND MLCLPR *EQ "' *CAT > &CLPR - > 0031.00 *CAT '" *AND MLENSA *EQ "' *CAT &ENSA *CAT '" ') KEYFLD((ACREPR)) > - > 0032.00 JFLD((MLCOMO MCCOMO) (MLCONT MCCONT) (MLMARS ACMAR) (MLREFS > ACREFE) - > 0033.00 (MLCOCL ACCOPR) (MCTIPE ACTIPE)) JDFTVAL(*YES) MAPFLD((FECHA > MLFECH - > 0034.00 *ZONED 8) (FECHA1 FECHA *CHAR 8)) > > 0035.00 CALL PGM(RL1101) PARM(&FED &FEH &COPR) > > 0036.00 CLOF OPNID(MVAL) > > 0037.00 DLTOVR FILE(*ALL) > > 0038.00 ENDPGM > > > Como podeis imaginar, este procedimiento recibe 3 parametros desde fecha, > hasta fecha y codigo de proveedor y genera un listado con los movimientos > de dicho proveedor entre las fechas introducidas. > > Pues bien, aqui viene el misterio. > > El usuario carga por el proceso correspondiente esos datos en un proceso > inmediatamente anterior, y a continuacion ejecuta el listado y resulta que > no imprime nada (no selecciona los registros) > > 1.- Si hago un dsppfm los registros estan > 2.- Si ejecuto un QRY con los mismos criterios, funciona > 3.- SI DEJO LA EJECUCION DEL MISMO PARA EL DIA SIGUIENTE, TAMBIEN > FUNCIONA. > > He realizado las siguientes modificaciones. > > 1º Cambiar el FRCRATIO de los ficheros a 1 y NADA > > 2º He parado el trabajo mientras se ejecuta y veo que mediante la opcion > 12 (trabajar con bloqueos) veo que estan definidos los ficheros MVACPK y > el MVALS1 que son dos LF's de los que tengo definidos en el OPNQRYF (MVAC > y MVAL) ¿¿¿????? entiendo que el sistema es tan listo que se da cuenta que > estos son utiles para realizar el filtro (los fisicos no tienen clave) con > menor esfuerzo. > > 3º He cambiado 'por si cuela' el FRCRATIO de los LF y Tampoco > > 4ª Estos lógicos, estaban definidos como mantenimiento de la via de acceso > MAINT *DLY (entiendo que mejora el rendimiento general de los programas > que crean registros en estos ficheros fisicos), Pues bien, he cambiado > este valor a *IMMED y ha funcionado. > > ¿es normal esto? > Entonces, ¿para que sirve el el *DLY? > > Por cierto, estamos en V4R3M0, recien instalada, ¿recordais el asunto del > STRPCO? fue la manera de solucionarlo > > Como siempre, muchas gracias por vuestro interes > > Un saludo > > SUSANA > > > > > > > > _____________________________________________________ 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]
