RE: Problem with OVRDBF

Thanks guys,

I had forgotten to mention USROPN.

Thanks for the suggestion Francis. Will definitely try it out.> Date: Mon, 30 Jun 2008 08:02:36 -0500> From: flapeyre@xxxxxxxxx> To: rpg400-l@xxxxxxxxxxxx> Subject: Re: Problem with OVRDBF> > Have you delared the file as USROPN and only opened it after you performed> the override?> > Yocan also, instead of performing the override via QCMDEXC, use the EXTFILE> keyword.> > > FArprm UF E K Disk Usropn Extfile(Prm_Name)> > * Product Master File> > D Prm_Name S 21A> > C Eval Prm_Name = %TRIM(Dbclib) + '/ARPRM'> > C Open Arprm> > > On Mon, Jun 30, 2008 at 7:37 AM, 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> > --> > 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.> >> >> > > -- > Francis Lapeyre> > Nullum gratuitum prandium.> -- > 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.>
_________________________________________________________________
Enter the Zune-A-Day Giveaway for your chance to win — day after day after day
http://www.windowslive-hotmail.com/ZuneADay/?locale=en-US&ocid=TXT_TAGLM_Mobile_Zune_V1