Re: OVRPRTF within RPGILE

["John Taylor" <john.taylor@xxxxxxxxxxxxxxx>]

Jeff,

It sounds like an AG scoping problem. You didn't mention whether your
application runs in the default AG or not. Try setting OPNSCOPE(*JOB) on
your OVRPRTF in order to test whether or not it's AG related.

As an aside, you should try to be a bit more specific with the parms that
you include whenever you hard code something like an OVRPRTF. Based on your
example, you've left your program vulnerable to anybody/thing that changes
the command defaults from what they were when you wrote the code.

Even if the command defaults remain the same, you could still run into
problems because the current defaults will run as OPNSCOPE(*ACTGRPDFN), and
SECURE(*NO).  That means that your OVRPRTF is not safe from the effects of a
previously called OVRPRTF on the same file.


John Taylor
Canada

----- Original Message -----
From: "Jeff Crosby" <jlcrosby@fwi.com>
To: "Midrange Mailing List" <MIDRANGE-L@midrange.com>
Sent: Friday, May 25, 2001 15:04
Subject: OVRPRTF within RPGILE


> I'm trying to do something I've never done before.  It seems simple
> enough to me, but I can't get it to work.
>
> It's within an RPG ILE program.  Printer file PO15PO is defined like
> this:
>
> FPO15PO    O    F  145        Printer OflInd(*INOA)
> F                                     INFDS(PrtFDS)
> F                                     UsrOpn
>
> Before I open the file, I issue an OVRPRTF command via a service
> program, like this:
>
> D @OvrPrtF        C                   'OVRPRTF PO15PO OUTQ(FAXSPLF)'
> D SysCmd          S           2048
>
> C                   Eval      SysCmd = @OvrPrtF
> C                   CallP     ExecCmd(SysCmd)
>
> The service program containing procedure ExecCmd is compiled
> ACTGRP(*CALLER).  I've issued a bazillion OVRPRTF within CL programs
> over the years, to a specific OUTQ, and it works.  Is there something
> screwy about USROPN that prevents this?
>
> Thanks.
>
> --
> -Jeff
> The opinions expressed are my own and not necessarily
> the opinion of my company.  Unless I say so.


+---
| This is the Midrange System Mailing List!
| To submit a new message, send your mail to MIDRANGE-L@midrange.com.
| To subscribe to this list send email to MIDRANGE-L-SUB@midrange.com.
| To unsubscribe from this list send email to MIDRANGE-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---