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.