Re: 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
--
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.