Re: OVRPRTF within RPGILE

[Scott Klement <klemscot@xxxxxxxxxxxx>]

Assuming that you are doing your OPEN _after_ the call to ExecCmd,
then UsrOpn isn't your problem.

More likely, this is an activation group or call level issue, since
the override is being done by a program that runs at a later call
level than the one where you open the file.

To determine if that's your problem, try testing your override with
OVRSCOPE(*JOB).  If THAT works, you know the problem is related to
activation group or call level.

You state that your service program is compiled with ACTGRP(*CALLER),
but you DON'T state what activation group your original RPG program is
running in.   Is it the default activation group?  If so, your overrides
are CALL LEVEL specific, not activation group specific...

You also don't state HOW it's executing the command.   Is it calling 
QCMDEXC?  The system() procedure?  QCAPCMD?    Although your service pgm
may be compiled w/ACTGRP(*CALLER), the program that's actually executing
the command may not be.   That's something to think about.

I've done overrides to both database and printer files from within the
same RPG program thousands of times... it works...  :)


On Fri, 25 May 2001, Jeff Crosby wrote:

> 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
+---