No conozco forma de hacer lo que dices sin cambiar el programa. Para que los ficheros no se queden abiertos, defínelos con usropn, ábrelos manualmente con open al comenzar el programa y antes del return ciérralos con close. Para que no te queden variables con valores, si usas ILE create un procedimiento que haga todo el trabajo y que sea llamado por el programa al comenzar. Las variables del procedimiento no mantendrán sus valores entre llamadas. Si no usas ILE... es un buen momento para comenzar ;)

Juan Carlos Paredes escribió:
RE: No cerrar archivo de impresora en programa llamado.

El problema es que eso no sólo me deja abierto el fichero de impresora, si no el resto de ficheros, los punteros donde estaban, las variables cargadas, etc. La idea es que el programa B (que es el estándar de impresión de extractos) se quede como está, sin tocarlo y conseguir que únicamente quede abierto el fichero de impresora.

Saludos.
Juan Carlos.

    -----Mensaje original-----
    De:     [EMAIL PROTECTED] [SMTP:[EMAIL PROTECTED]] En nombre de Feliu Soler
    Enviado el:     martes, 08 de noviembre de 2005 18:28
    Para:   [email protected]
    Asunto: Re: No cerrar archivo de impresora en programa llamado.

    ¿Como terminas el programa a cada llamada, enciendes el indicador LR? No lo
    hagas. Sal con RETRN y enciende LR cuando ya hayas acabado de recorrer todos
    los clientes, pasando un parámetro de A a B indicando que debe cerrarse. Poe
    este parametro enciende LR y sal con RETRN
    Saludos

    ----- Original Message -----
    From: "Juan Carlos Paredes" <[EMAIL PROTECTED]>
    To: "Forum Help 400" <[email protected]>
    Sent: Tuesday, November 08, 2005 6:03 PM
    Subject: No cerrar archivo de impresora en programa llamado.


    Buenas tardes, foro:

    Tengo un programa A que va recorriendo la tabla de clientes y valida una
    serie de datos para comprobar si hay que imprimir o no el extracto de cuenta
    del cliente. En caso de cumplir todos los requisitos solicitados, llama a un
    programa B que es el que imprime el extracto, pasándole como parámetro el
    código de cuenta y el período del extracto.

    Pues bien, mi problema es que de esta manera, cada extracto de cuenta queda
    en un archivo en spool diferente. Necesito que queden todos ellos en un
    único archivo de spool. ¿Cómo lo hago para que el programa me mantenga
    abierto el fichero de spool y le vaya añadiendo páginas hasta que acabe con
    todos los clientes y lo cierre en este momento? Ya he probado a utilizar un
    OVRPRTF SHARE(*YES) y el resultado es el mismo.

    Gracias y saludos.

    Juan Carlos.

    --

    No virus found in this outgoing message.
    Checked by AVG Anti-Virus.
    Version: 7.1.362 / Virus Database: 267.12.8/163 - Release Date: 08/11/2005



    __________________________________________________
    Forum.HELP400 es un servicio más de NEWS/400.
    © Publicaciones Help400, S.L. - Todos los derechos reservados
    http://www.help400.es
    _____________________________________________________

    Para darte de baja visita la siguente URL:
    http://coyote.combios.es/mailman/listinfo/forum.help400

    --
    No virus found in this incoming message.
    Checked by AVG Anti-Virus.
    Version: 7.1.362 / Virus Database: 267.12.8/163 - Release Date: 08/11/2005
     

--
No virus found in this outgoing message.
Checked by AVG Anti-Virus.
Version: 7.1.362 / Virus Database: 267.12.8/163 - Release Date: 08/11/2005
 


--
Saludos.

Fernando Pérez 

Cerámica Saloni. Dpto. Sistemas

begin:vcard
fn;quoted-printable:Fernando P=C3=A9rez
n;quoted-printable:P=C3=A9rez;Fernando
org:;Sistemas
email;internet:[EMAIL PROTECTED]
tel;work:Ext. 627
x-mozilla-html:TRUE
version:2.1
end:vcard

Responder a