Supongo que el error da en la linea del DCLF, que no encuentra el fichero definido. Dices que el fichero esta creado en la QTEMP antes de compilar el programa. La compilaci�n ha de ser en interactivo y no en batch, ya que la QTEMP es diferente para cada trabajo. En la biblioteca qs36f debes tener crreado el fichero y se compila el programa sin problemas. Para que no exita este problema, puedes declarar como fichero QAFDRFMT, es el estandar de IBM y en el programa realizar un OVRDBF a tu fichero.
Saludos. -- Missatge Original ----- De: Cristina V�zquez Osorio <[EMAIL PROTECTED]> Data: Dijous, Octubre 17, 2002 1:11 pm Assumpte: PROBLEMA CON CL ,PARA SABER LONG.DE REGISTRO DE UN ARCHIVO. > PGM PARM(&P41 &P42) > DCL VAR(&RFLX) TYPE(*CHAR) LEN(10) > DCL VAR(&P41) TYPE(*CHAR) LEN(8) > DCL VAR(&P42) TYPE(*CHAR) LEN(8) > DCLF FILE(QTEMP/WWPISINF) > MONMSG MSGID(CPF0000) > DLTF FILE(QTEMP/WWPISINF) > MONMSG MSGID(CPF0000) > DSPFD FILE(&P42/&P41) TYPE(*RCDFMT) + > OUTPUT(*OUTFILE) OUTFILE(QTEMP/WWPISINF) > MONMSG MSGID(CPF0000) > RCVF > CHGVAR VAR(&RFLX) VALUE(&RFLEN) > MONMSG MSGID(CPF0000) > DLTF FILE(QTEMP/WWPISINF) > MONMSG MSGID(CPF0000) > DSPFD FILE(&P42/&P41) TYPE(*RCDFMT) + > OUTPUT(*OUTFILE) OUTFILE(QTEMP/WWPISINF) > MONMSG MSGID(CPF0000) > RCVF > CHGVAR VAR(&RFLX) VALUE(&RFLEN) > CHGDTAARA DTAARA(*LDA (1 10)) VALUE(&RFLX) > ENDPGM > ********* Fin de datos ************************************* > Este es mi programita, pues bien donde esta la qtemp si pongo > qs36f, todo va > perfectamente teniendo en cuenta que antes de compilar el programa > debocrear manualmente el fichero llamado wwpisinf con dspfd. > > En cuanto cambio la biblioteca y pongo la qtemp me dice que no > encuentra el > archivo wwpisinf (cuando estoy compilando), y estoy haciendo lo > mismo que > cuando ponia la qs36f. �porque?....el archivo s� est� en la qtemp, > Alguiensabe por que???? > En el parametro p42 y p41, viene el nombre del archivo y > biblioteca del que > quiero obtener informacion de long.de registro. > Gcs, de nuevo a todos. > SAludos. > Cris. > ________________________________________________________________ El teu correu, el teu club, la teva agenda, la teva informaci�. Tot a MENTA - http://www.menta.net _____________________________________________________ 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:forum.help400-request@;combios.es?body=LEAVE
