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]> 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]] 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
