Re: Issue in OVRPRTF...

["Jim Franz" <franz400@xxxxxxxxxxxx>]

I am assuming that the print file in PRG66 is "PRT1", otherwise the override
is
useless. If it is PRT1, my next question is if there is a difference between
PRG65 and
PRG66 in the activation group they run in? I cannot explain why (but I know
some
on this list can), but I have found that when I had in one clp an ovrprtf
before a SQLRPGLE with a report followed by an ovrprtf before a RPGIII
report (both using print file qsysprt), I had to delete the current override
after the SQLRPGLE, and then do the override for 2nd pgm. Both pgms compiled
with v5r2 compiler defaults.  So I would add a "DLTOVR  PRT1" before the
ovrprtf before calling PRG66.
hth
jim

----- Original Message ----- 
From: "AS400 MAILS" <myas400mails@xxxxxxxxx>
To: "Midrange Systems Technical Discussion" <midrange-l@xxxxxxxxxxxx>
Sent: Sunday, April 10, 2005 4:43 AM
Subject: Re: Issue in OVRPRTF...


> Sorry... the program actually conatins a call to QCMDEXEC after the
RTVDTAARA from DA2... I only forgot to mention that in my earlier post... In
general QCMDEXEC was called before the call made to any report generation
program.
>
> Even after the override pf PRT1 gets executed coreclty, the problem
generates only one copy in the printer
> .
> Please see the correct code below...
>
> RTVDTAARA DTAARA(DA1) RTNVAR(&VAR1)
> >
> > /* DA1 Contains the command : OVRPRTF
> > FILE(LIB1/PRT1) + */
> >
> > /* COPIES(1) SAVE(*YES) OUTQ(OUTPUT1) */
> >
> > CALL PGM(QCMDEXEC) PARM(&VAR1 90)
> >
> > Call PGM(PRG65) /* call to PRG65 to generate a
> > Report PRT1*/.
> >
> >
> > RTVDTAARA DTAARA(DA2) RTNVAR(&VAR1)
> >
> > /* DA1 Contains the command : OVRPRTF
> > FILE(LIB1/PRT1) + */
> >
> > /* COPIES(2) SAVE(*YES) OUTQ(OUTPUT1) */
> >
> > CALL PGM(QCMDEXEC) PARM(&VAR1 90)
>
> > Call PGM(PRG66) /* call to PRG66 to generate a
> > Report PRT1 .
>
> Thanks
> Siva.
>
> Jeffrey Young <cooljeff913@xxxxxxxxx> wrote:
> Siva,
> The CL programyou have in your message is missing a
> call to QCMDEXC after the second RTVDTAARA.
> That is why the next program is not seeing the
> override.
>
> Jeff Young
>
> --- AS400 MAILS wrote:
> > Hi
> >
> > I ma having a CLP program as like below which is
> > submitted as a batch. It calls PRG1, PRG2, PRG3,
> > ..... PRG100 to genearte 100 reports.
> > In one point in the program, consier a below code..
> >
> > RTVDTAARA DTAARA(DA1) RTNVAR(&VAR1)
> >
> > /* DA1 Contains the command : OVRPRTF
> > FILE(LIB1/PRT1) + */
> >
> > /* COPIES(1) SAVE(*YES) OUTQ(OUTPUT1) */
> >
> > CALL PGM(QCMDEXEC) PARM(&VAR1 90)
> >
> > Call PGM(PRG65) /* call to PRG65 to generate a
> > Report PRT1*/.
> >
> >
> > RTVDTAARA DTAARA(DA2) RTNVAR(&VAR1)
> >
> > /* DA1 Contains the command : OVRPRTF
> > FILE(LIB1/PRT1) + */
> >
> > /* COPIES(2) SAVE(*YES) OUTQ(OUTPUT1) */
> >
> >
> >
> > Call PGM(PRG66) /* call to PRG66 to generate a
> > Report PRT1 .
> >
> >
> >
> > The problem is PRG66 is not printing two copies of
> > PRT1. Able to get only one
> >
> > copy of PRT1. The override done using the second
> > statement is not getting
> >
> > reflected while calling the program PRG66..
> >
> >
> >
> > Any idea why this happen. Any general Override done
> > will skip this?.
> >
> > The printer file PRT1 gets overridden with differnt
> > COPIES and OUTQ values in
> >
> > various places in the program ( from calling PRG1 to
> > PRG64 and alos after PRG66)
> >
> > Anyone has faced similr issue like this?
> >
> >
> >
> >
> >
> > Thanks
> >
> > Siva
> >
> >
> >
> >
> > ---------------------------------
> > Do you Yahoo!?
> > Yahoo! Small Business - Try our new resources site!
> >
> > -- 
> > This is the Midrange Systems Technical Discussion
> > (MIDRANGE-L) mailing list
> > To post a message email: MIDRANGE-L@xxxxxxxxxxxx
> > To subscribe, unsubscribe, or change list options,
> > visit:
> >
> http://lists.midrange.com/mailman/listinfo/midrange-l
> > or email: MIDRANGE-L-request@xxxxxxxxxxxx
> > Before posting, please take a moment to review the
> > archives
> > at http://archive.midrange.com/midrange-l.
> >
> >
>
>
>
> __________________________________
> Do you Yahoo!?
> Yahoo! Small Business - Try our new resources site!
> http://smallbusiness.yahoo.com/resources/
> -- 
> This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing
list
> To post a message email: MIDRANGE-L@xxxxxxxxxxxx
> To subscribe, unsubscribe, or change list options,
> visit: http://lists.midrange.com/mailman/listinfo/midrange-l
> or email: MIDRANGE-L-request@xxxxxxxxxxxx
> Before posting, please take a moment to review the archives
> at http://archive.midrange.com/midrange-l.
>
>
>
> ---------------------------------
> Do you Yahoo!?
>  Yahoo! Mail - Find what you need with new enhanced search. Learn more.
> -- 
> This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing
list
> To post a message email: MIDRANGE-L@xxxxxxxxxxxx
> To subscribe, unsubscribe, or change list options,
> visit: http://lists.midrange.com/mailman/listinfo/midrange-l
> or email: MIDRANGE-L-request@xxxxxxxxxxxx
> Before posting, please take a moment to review the archives
> at http://archive.midrange.com/midrange-l.
>
>