RE: ovrprtf inside a RPG service program

How are you issuing the OVRPRTF command from RPG? You should use
QCMDEXC from the main program body, and not from a subprocedure. Do not
use system api (from the C runtime), as this does not "fix" the
call-level problem. QCMDEXC has some magic that adjusts the call-level
so that it appears that the override was enabled for your RPG program.

The other approach is to use the big hammer, and issue the override to
CALLVL(*JOB), which is a bit heavy for my taste....

Hth,
Eric DeLong

-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of Nick Arndt
Sent: Friday, February 20, 2009 3:43 PM
To: RPG programming on the IBM i / System i
Subject: Re: ovrprtf inside a RPG service program

The flow is as follows:

override
open
write records
close
delete override


On Fri, Feb 20, 2009 at 3:37 PM, Kurt Anderson
<kurt.anderson@xxxxxxxxxxxxxx

wrote:

Silly question, but you're not doing the following are you?
1. Override
2. Open
3. Delete override.
4. Close
5. Open
6. Write to the file

In my day I've seen print files closed in order to create multiple
spool files - if that's what you're doing make sure the override isn't

deleted so future opens still use it.

Grabbing at straws here. From all the information you've given us, it

sounds to me that the ovrprtf should work.

-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of Nick Arndt
Sent: Friday, February 20, 2009 2:08 PM
To: RPG programming on the AS400 / iSeries
Subject: ovrprtf inside a RPG service program

Hi all,


I have a situation where I need to execute an ovrprtf from with in a
service program running in batch. The following OVRPRTF command
doesent seem to take effect at all:

OVRPRTF FILE(FILLRECDOC) OUTQ(I9FORM) SAVE(*YES)

I thought that was because I am running this in a service program so I

added the keywords OVRSCOPE(*CALLLVL) OPNSCOPE(*ACTGRPDFN)

and I get the following messages

Keyword OPNSCOPE not valid for this command Keyword OVRSCOPE not valid

for this command

The activation group for the service program is *CALLER

Any help would be appreciated.

Thanks
--
This is the RPG programming on the IBM i / System i (RPG400-L) mailing

list To post a message email: RPG400-L@xxxxxxxxxxxx To subscribe,
unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxx Before posting, please take a
moment to review the archives at http://archive.midrange.com/rpg400-l.

--
This is the RPG programming on the IBM i / System i (RPG400-L) mailing

list To post a message email: RPG400-L@xxxxxxxxxxxx To subscribe,
unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxx Before posting, please take a
moment to review the archives at http://archive.midrange.com/rpg400-l.

--
This is the RPG programming on the IBM i / System i (RPG400-L) mailing
list To post a message email: RPG400-L@xxxxxxxxxxxx To subscribe,
unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives at
http://archive.midrange.com/rpg400-l.