Re: alteracion temporal

Thu, 02 Apr 2009 08:29:25 -0700 

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&amp;#225;s de ServerNEWS.
> &amp;#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&amp;#225;s de ServerNEWS.
&amp;#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

Responder a