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.
