I've overridden a printer file in a similar fashion by calling
a procedure to execute the OVRPRTF. I had to make sure the OVRxxx
command indicated *JOB level scoping to get it to "take".
John B.
-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of
rpg400-l-request@xxxxxxxxxxxx
Sent: Monday, June 30, 2008 8:14 AM
To: rpg400-l@xxxxxxxxxxxx
Subject: RPG400-L Digest, Vol 7, Issue 583
Send RPG400-L mailing list submissions to
rpg400-l@xxxxxxxxxxxx
To subscribe or unsubscribe via the World Wide Web, visit
http://lists.midrange.com/mailman/listinfo/rpg400-l
or, via email, send a message with subject or body 'help' to
rpg400-l-request@xxxxxxxxxxxx
You can reach the person managing the list at
rpg400-l-owner@xxxxxxxxxxxx
When replying, please edit your Subject line so it is more specific
than "Re: Contents of RPG400-L digest..."
*** NOTE: When replying to this digest message, PLEASE remove all text
unrelated to your reply and change the subject line so it is meaningful.
Today's Topics:
1. How to pass parameters (Ahmed.Hussain@xxxxxxxxxx)
2. Problem with OVRDBF (derek gonsalves)
3. Re: Problem with OVRDBF (Alan Shore)
4. Re: Problem with OVRDBF (Bruce Vining)
5. Re: Problem with OVRDBF (J.Beckeringh@xxxxxxxxxxxxxxxxxxxxxxxxxx)
6. Re: Problem with OVRDBF (Francis Lapeyre)
7. Re: Problem with OVRDBF (Michael Ryan)
8. Fw: [WDSCI-L] Coping from one system to another using RSE
(Brian Parkins)
----------------------------------------------------------------------
message: 1
date: Fri, 27 Jun 2008 12:55:55 -0400
from: <Ahmed.Hussain@xxxxxxxxxx>
subject: How to pass parameters
Thanks to all of you for your help.
Thanks,
This e-mail (including any attachments) may contain information
confidential to The Clorox Company and is intended only for the use of
the intended recipient(s). If the reader of this message is not the
intended recipient(s), you are notified that you have received this
message in error and that any review, dissemination, distribution or
copying of this message is strictly prohibited. If you have received
this message in error, please delete this message and notify the sender
immediately.
------------------------------
message: 2
date: Mon, 30 Jun 2008 12:37:03 +0000
from: derek gonsalves <d_gons@xxxxxxxxxxx>
subject: Problem with OVRDBF
Hi,
I am trying to override a file in my rpg program usig the QCMDEXC
command,
While running in debug mode, the files do get overridden, and when i
check the job log(in debug mode) option 15- Display file overrides, if
active , it shows that my file has been overridden.
However , this is not true as records present in the overriden library
are not being fetched.
The code used is as follows
Field declarations
DQcmdCmd S 100 DOvrDBFPr
PR ExtPgm('QCMDEXC') DCmdString
100 Options(*Varsize) DCmdLength 15P 5 Const
$Ovrride Begsr
Eval QcmdCmd='OVRDBF FILE(Test1) TOFILE-
('+%TRIM(Lib_Name) +'/Test1) SHARE-
(*YES)'
CallP OvrDBFPr(QcmdCmd : %Len(QcmdCmd))
Endsr
Here Lib_Name is the name of the library name which the file has to
overriden with.
Any suggestions as to why records are not fetched from the overriden
library. Is ther any other way to check if it is pointing to the file in
the required library?
Thanks in advance for all your suggestions,
Derek
_________________________________________________________________
Do more with your photos with Windows Live Photo Gallery.
http://www.windowslive.com/share.html?ocid=TXT_TAGLM_Wave2_photos_022008
------------------------------
message: 3
date: Mon, 30 Jun 2008 08:51:51 -0400
from: Alan Shore <AlanShore@xxxxxxxx>
subject: Re: Problem with OVRDBF
Is the file you are trying to override opened within the RPG program
with
usropn AFTER the overide?
This has to take place otherwise, with no usropen and open within the
RPG
program, the file is opened BEFORE the override can be accomplished
Alan Shore
Programmer/Analyst, Direct Response
E:AShore@xxxxxxxxxxx
P:(631) 244-2000 ext. 5019
C:(631) 880-8640
"If you're going through Hell, keep going" - Winston Churchill
rpg400-l-bounces@xxxxxxxxxxxx wrote on 06/30/2008 08:37:03 AM:
Hi,
I am trying to override a file in my rpg program usig the QCMDEXC
command,
While running in debug mode, the files do get overridden, and when i
check the job log(in debug mode) option 15- Display file overrides,
if active , it shows that my file has been overridden.
However , this is not true as records present in the overriden
library are not being fetched.
The code used is as follows
Field declarations
DQcmdCmd S 100 DOvrDBFPr
PR ExtPgm('QCMDEXC') DCmdString
100 Options(*Varsize) DCmdLength 15P 5
Const
$Ovrride Begsr
Eval QcmdCmd='OVRDBF FILE(Test1) TOFILE-
('+%TRIM(Lib_Name) +'/Test1) SHARE-
(*YES)'
CallP OvrDBFPr(QcmdCmd : %Len(QcmdCmd))
Endsr
Here Lib_Name is the name of the library name which the file has to
overriden with.
Any suggestions as to why records are not fetched from the overriden
library. Is ther any other way to check if it is pointing to the
file in the required library?
Thanks in advance for all your suggestions,
Derek
_________________________________________________________________
Do more with your photos with Windows Live Photo Gallery.
http://www.windowslive.com/share.html?ocid=TXT_TAGLM_Wave2_photos_022008
--
This is the RPG programming on the AS400 / iSeries (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.
------------------------------
message: 4
date: Mon, 30 Jun 2008 05:53:16 -0700 (PDT)
from: Bruce Vining <bvining@xxxxxxxxxxxxxxx>
subject: Re: Problem with OVRDBF
I assume you have TEST1 defined as USROPN on the F spec and are opening
the file after the override is executed?
Bruce
derek gonsalves <d_gons@xxxxxxxxxxx> wrote:
Hi,
I am trying to override a file in my rpg program usig the QCMDEXC
command,
While running in debug mode, the files do get overridden, and when i
check the job log(in debug mode) option 15- Display file overrides, if
active , it shows that my file has been overridden.
However , this is not true as records present in the overriden library
are not being fetched.
The code used is as follows
Field declarations
DQcmdCmd S 100 DOvrDBFPr PR ExtPgm('QCMDEXC') DCmdString 100
Options(*Varsize) DCmdLength 15P 5 Const
$Ovrride Begsr Eval QcmdCmd='OVRDBF FILE(Test1) TOFILE-
('+%TRIM(Lib_Name) +'/Test1) SHARE- (*YES)' CallP OvrDBFPr(QcmdCmd :
%Len(QcmdCmd))
Endsr
Here Lib_Name is the name of the library name which the file has to
overriden with.
Any suggestions as to why records are not fetched from the overriden
library. Is ther any other way to check if it is pointing to the file in
the required library?
Thanks in advance for all your suggestions,
Derek
_________________________________________________________________
Do more with your photos with Windows Live Photo Gallery.
http://www.windowslive.com/share.html?ocid=TXT_TAGLM_Wave2_photos_022008
midrange.com
