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.
