En RPG : normalmente hay que hacer: CLOSE FICHEROIMPRESION
OPEN FICHEROIMPRESION
En/na Javier Mora ha escrit:
Opss!, con la Iglesia hemos "topao". Hace más de 20 años que no
trabajo nada el COBOL. Porque el ejemplo que das está en COBOL, ¿verdad?
Se me ocurre que el archivo de impresora ya esté abierto y no le
afecte la alteración temporal. Pero no te puedo ayudar mucho más en esto.
Un saludo
*De:* [email protected]
[mailto:[email protected]] *En nombre de
*Fernando idem
*Enviado el:* jueves, 02 de abril de 2009 17:28
*Para:* forum.help400
*Asunto:* Re: alteracion temporal
PERFORM 1000-OVRPRTF
CALL PGM ===> ABRE FICHERO IMPRIME Y CIERRA FICHEROS
PERFORM 1000-DLTOVR
En el primer QCMDEXC hago tres alteraciones temporales
1000-OVRPRTF
OVRRPRTF FILE(PRT01) TOFILE(PRT01) OUTQ(IMPRESORA1) SAVE(*YES)
CALL "QCMDEXC" USING CMD-OVRPRTF LON-OVRPRTF
OVRPRTF FILE(PRT02) TOFILE(PRT01) OUTQ(IMPRESORA2) SAVE(*YES)
CALL "QCMDEXC" USING CMD-OVRPRTF LON-OVRPRTF
OVRPRTF FILE(PRT03) TOFILE(PRT01) OUTQ(IMPRESORA1) SAVE(*YES)
CALL "QCMDEXC" USING CMD-OVRPRTF LON-OVRPRTF
1000-DLTOVR
DLTOVR FILE(PRT01)
CALL "QCMDEXC" USING CMD-DLTOVR LON-DLTOVR
DLTOVR FILE(PRT02)
CALL "QCMDEXC" USING CMD-DLTOVR LON-DLTOVR
DLTOVR FILE(PRT03)
CALL "QCMDEXC" USING CMD-DLTOVR LON-DLTOVR
En el programa que imprime
SELECT PRT01 ASSIGN TO FORMATFILE-PRT01 STATUS FS.
SELECT PRT02 ASSIGN TO FORMATFILE-PRT02 STATUS FS.
SELECT PRT03 ASSIGN TO FORMATFILE-PRT03 STATUS FS.
FD PRT01 LABEL RECORD STANDARD.
01 REG-PRT01 PIC X(300).
FD PRT02 LABEL RECORD STANDARD.
01 REG-PRT02 PIC X(300).
FD PRT03 LABEL RECORD STANDARD.
01 REG-PRT03 PIC X(300).
OPEN OUTPUT PRT01
OPEN OUTPUT PRT02
OPEN OUTPUT PRT03
El 2 de abril de 2009 16:12, Javier Mora <[email protected]
<mailto:[email protected]>> escribió:
Puede ser por el parámetro OVRSCOPE(). Sería interesante ver el
trozo de código donde lo haces. ¿El programa está en ILE o en OPM?
Este problema que indicas a mi me ha sucedido en ILE cuando hago
el OVRPRTF en un suprocedimiento.
Un saludo.
Javier Mora
*De:* [email protected]
<mailto:[email protected]>
[mailto:[email protected]
<mailto:[email protected]>] *En nombre de
*Fernando idem
*Enviado el:* jueves, 02 de abril de 2009 15:15
*Para:* forum.help400
*Asunto:* alteracion temporal
Hola buenas tardes:
En un inicio tenia la alteracion de unas impresoras a nivel del un
cl de un menu. Pero, por motivos de desarrollo en la impresion de
los documentos,se necesitaba cambiar a una impresora A o B,
dependiento de unos valores que se veian en porgrama. Genere un
call QCMDEXC para alterar las impresoras antes de llamar al
programa que genera el listado y posteriormente otro call QCMDEXC
para borrar dichas alteraciones. Pues bien en algunos casos no lo
hace.
puede ser problema de definir el campo OVRSCOPE como *ACTGRPDFN
que viene por defecto.
Alguna solucion?
Gracias anticipadas
__________________________________________________
Forum.HELP400 es un servicio m&#225;s de ServerNEWS.
&#169; Publicaciones Help400, S.L. - Todos los derechos reservados
http://www.help400.es <http://www.help400.es/>
_____________________________________________________
Para darte de baja visita la siguente URL:
http://listas.combios.es/mailman/listinfo/forum.help400
------------------------------------------------------------------------
__________________________________________________
Forum.HELP400 es un servicio m&#225;s de ServerNEWS.
&#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
__________________________________________________
Forum.HELP400 es un servicio m&#225;s de ServerNEWS.
&#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
