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 debo crear 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, Alguien sabe 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.
