OK so in this case they are still all going to OutqB.
Where should I put the SECURE?
the first cl:
OVRPRTF FILE(REPORT) PRTTXT(BLANK) OUTQ(OutqA) +
FORMTYPE(INV) HOLD(*YES) SAVE(*YES) +
OVRSCOPE(*CALLLVL)
CALL PGM(ProgramA) /* PRINT A */
DLTOVR *ALL
CALL PGM(ProgramB)
ENDPGM
(CL) ProgramB:
DLTOVR FILE(*ALL)
OVRPRTF FILE(REPORT) PRTTXT(BLANK) OUTQ(OutqB) +
FORMTYPE(INV) HOLD(*YES) SAVE(*YES) +
OUTPTY(1) OVRSCOPE(*JOB)
Call PGM(ProgramB)
--- On Thu, 9/11/08, Terrence Enger <tenger@xxxxxxxxxxxxxxxx> wrote:
From: Terrence Enger <tenger@xxxxxxxxxxxxxxxx>
Subject: Re: Problem with ovrprtf
To: "Midrange Systems Technical Discussion" <midrange-l@xxxxxxxxxxxx>
Date: Thursday, September 11, 2008, 9:13 PM
On Thu, 2008-09-11 at 14:54 -0500, John McKee wrote:
After rpgprogramA completes, DLTOVR printer_file_name
I am wondering if you are also including on the first OVRPRTF
SECURE(*YES). Doing that stops the override in program B from having
any effect.
Sorry, John, but I think it is the other way around, so to speak: it is
the (implicit) SECURE(*NO) on the the override in program B which makes
the override in program B ineffective. Consider ...
Outer program ...
pgm
/* three overrides, only the last one secure(*yes) */
ovrprtf one outq( a_outer )
ovrprtf two outq( b_outer )
ovrprtf three outq( c_outer ) secure(*yes)
/* call inner program */
call aa4382
endpgm
inner program ...
pgm
/* three overrides, only the second one secure(*yes) */
ovrprtf one outq( a_inner )
ovrprtf two outq( b_inner ) secure(*yes)
ovrprtf three outq( c_inner )
/* show results */
dspovr
endpgm
and screen images ...
Display All Merged File Overrides
Call level . . . . . . . . . . . : *
Type options, press Enter.
5=Display override details 8=Display contributing file overrides
Opt File Type Keyword Specifications
THREE PRT OUTQ(*LIBL/C_OUTER) SECURE(*YES)
TWO PRT OUTQ(*LIBL/B_INNER) SECURE(*YES)
ONE PRT OUTQ(*LIBL/A_OUTER)
Display Contributing File Overrides
File . . . . . . . . . . . . . . : THREE
Call level . . . . . . . . . . . : *
Type options, press Enter.
5=Display override details
Opt Level Type Keyword Specifications
7 PRT OUTQ(*LIBL/C_INNER)
6 PRT OUTQ(*LIBL/C_OUTER) SECURE(*YES)
Display Contributing File Overrides
File . . . . . . . . . . . . . . : TWO
Call level . . . . . . . . . . . : *
Type options, press Enter.
5=Display override details
Opt Level Type Keyword Specifications
7 PRT OUTQ(*LIBL/B_INNER) SECURE(*YES)
Display Contributing File Overrides
File . . . . . . . . . . . . . . : ONE
Call level . . . . . . . . . . . : *
Type options, press Enter.
5=Display override details
Opt Level Type Keyword Specifications
7 PRT OUTQ(*LIBL/A_INNER)
6 PRT OUTQ(*LIBL/A_OUTER)
hth,
Terry.
John McKee
Quoting Adam West <adamster@xxxxxxxxx>:
I have CL program-A,
pgm
program-A.
Overprtf outq(A)
Call rpgprogramA
Call program-B ( a CL PROGRAM)
Endpgm
This is program-B
pgm
Overprtf outq(B)
Call rpgprogramB
endpgm
BUT the outq of the second CL goes to the first outq - outq A
I need them to split. I have played around with the Ovrscope
parameter but then when I make that *job or *Calllvl, the both
outputs go to Outq B.
WHat am I missing to have them split off?
--
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.
midrange.com
