Hola, Tiene fácil solución, deberás ejecutar primero el siguiente mandato: DSPFD FILE(QGPL/Q*) TYPE(*ATR) OUTPUT(*OUTFILE) FILEATR(*PF) OUTFILE(QTEMP/DSPFD) y después compilar el programa interactivamente.
Que lo disfrutes y saludos. Martí 2007/11/17, [EMAIL PROTECTED] <[EMAIL PROTECTED]>: > > > Hola Martí: > > Estoy intentando utilizar la utilidad CHGSTSJRN en un v4r5 y al compilar > el CL me salen varios errores: > > 2600- DCLF FILE(QTEMP/DSPFD) > > * CPD0852 30 No se ha encontrado el archivo DSPFD en la biblioteca > QTEMP. > > 8400- READ: RCVF > * CPD0865 40 El archivo no se ha declarado anteriormente. > > * CPD0727 40 Se ha hecho referencia a la variable '&PHFILE ' pero no > se ha declarado.' > * CPD0727 40 Se ha hecho referencia a la variable '&PHJRNL ' pero no > se ha declarado.' > * CPD0727 40 Se ha hecho referencia a la variable '&PHFILE ' pero no > se ha declarado.' > * CPD0727 40 Se ha hecho referencia a la variable '&PHLIB ' pero no > se ha declarado.' > > 10700- IF COND((&PHJRNL *EQ 'Y') *AND (&PHJRLB > *NE > 10800 *AND (&STS *EQ '*STR')) THEN(DO) > > * CPD0727 40 Se ha hecho referencia a la variable '&PHJRNL ' pero no > se ha declarado.' > * CPD0727 40 Se ha hecho referencia a la variable '&PHJRLB ' pero no > se ha declarado.' > 10900- ENDJRNPF FILE(&PHLIB/&PHFILE) > > * CPD0727 40 Se ha hecho referencia a la variable '&PHFILE ' pero no > se ha declarado.' > * CPD0727 40 Se ha hecho referencia a la variable '&PHLIB ' pero no > se ha declarado.' > 11500- IF COND((&STR *EQ '1') *OR (&PHJRNL *EQ > 'N') > * CPD0727 40 Se ha hecho referencia a la variable '&PHJRNL ' pero no > se ha > > 11700- STRJRNPF FILE(&PHLIB/&PHFILE) > JRN(&JRNLIB/&JRN) > * CPD0727 40 Se ha hecho referencia a la variable '&PHFILE ' pero no > se ha declarado.' > * CPD0727 40 Se ha hecho referencia a la variable '&PHLIB ' pero no > se ha declarado.' > > Estoy usando los fuentes descargados en un zip desde tu estupenda página. > > Me puedes ayudar?? > > Muchas gracias por anticipado. > Luis > __________________________________________________ > Forum.HELP400 es un servicio m&#225;s de NEWS/400. > &#169; 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 > -- Martí Riera
__________________________________________________ Forum.HELP400 es un servicio m&#225;s de NEWS/400. &#169; 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
