Antes lo tenia por fuera, estoy solo se puede hacer como te indico , por
eso tuve que hacer un printer

El 21 de abril de 2015, 12:03, Afl Guyi <[email protected]> escribió:

> gracias Victor el tema es que tengo x afuera una CL  con el OVRPRTF con un
> PREFORMATO..Porque no tengo printer, es un pgm viejo con deficion interna
> con hoja O la impresión por eso esta el OVRPRTF en una cl con PREFORMATO
> yo  la quiero cambiar x pgm...Si tuviera printer si puedo condicionar
> dentro del mismo los preformatos..
> Alguien con alguna otra ideas...Muchas gracias por tu ayuda Victor..
>
> El 21 de abril de 2015, 10:26, Victor Velardez <[email protected]>
> escribió:
>
>> Yo logre hacerlo de la siguiente forma
>>
>> en un printer file , hice esta definicion al principio
>>
>>
>>  A*%%***********************************************************************
>>     140221
>>    A          R RCDOVR
>>           140221
>>
>>  A*%%***********************************************************************
>>     140221
>>    A*%%RI 00000
>>          140221
>>
>>  A*%%***********************************************************************
>>     140221
>>    A                                      OVERLAY(&OVRLAY 0.0 0.0)
>>           140221
>>    A
>>           140221
>>    A            OVRLAY         8A  P
>>           140221
>>
>>
>> y esta al final
>>
>> A*%%***********************************************************************
>>     140221
>> A          R ENDPAG
>>       140221
>> A*%%***********************************************************************
>>     140221
>> A*%%RI 00000
>>        140221
>> A*%%***********************************************************************
>>     140221
>> A
>>       140221
>> A                                      ENDPAGE
>>        140221
>>
>>
>> en el programa, dependiendo de lo que quiera escribir , hago
>>
>> if part1 = part2                                  ;
>>    ovrlay = 'OVLRES2'                             ;
>> else                                              ;
>>    ovrlay = 'OVLRES1'                             ;
>> endif                                             ;
>> write rcdovr                                      ;
>>
>>
>> y cuando termine de escribir el formato hago write a ENDPAG
>>
>>
>> espero te sea util
>>
>>
>>
>>
>> El 21 de abril de 2015, 10:18, Afl Guyi <[email protected]> escribió:
>>
>>> Buenos días a todos..
>>> No se si alguien ya lo hizo alguna vez, necesito cambiar el preformato
>>> sin cerrar el spool.
>>> Paso a detallar, comienzo generando archivo de spoll con un preformato y
>>> en un determinado registro de entrada necesito cambiar el preformato...y
>>> seguir generando spooll..
>>> alguien tiene alguna prueba...
>>> Lo que hice y no funciona no se porque Es: dentro del pgm.
>>>  CALL 'QCMDEXC'  que ejecuta el ovrprtf
>>>
>>>  PARA CAMBIAR LOS XXXXXXX por un nombre
>>>
>>> OVRPRTF FILE(PC) FRONTOVL(PROGRAMA/XXXXXXX)
>>>
>>>
>>> graciassss
>>>
>>>
>>>
>>>
>>> ____________________________________________________
>>> Únete a Recursos AS400, nuestra Comunidad ( http://bit.ly/db68dd )
>>> Forum.Help400 © Publicaciones Help400, S.L.
>>>
>>
>>
>> ____________________________________________________
>> Únete a Recursos AS400, nuestra Comunidad ( http://bit.ly/db68dd )
>> Forum.Help400 © Publicaciones Help400, S.L.
>>
>
>
> ____________________________________________________
> Únete a Recursos AS400, nuestra Comunidad ( http://bit.ly/db68dd )
> Forum.Help400 © Publicaciones Help400, S.L.
>
____________________________________________________
Únete a Recursos AS400, nuestra Comunidad ( http://bit.ly/db68dd )
Forum.Help400 © Publicaciones Help400, S.L.

Responder a