Re: Clear a RCVF read file

[Luis Rodriguez <luisro58@xxxxxxxxx>]

William,

It has just occurred to me that, if your file is not too big, you could do a
SQL DELETE using QSH, something like:

QSH cmd('db2 "delete from qs36f.pmcstkrq" > /dev/null')

HTH,
Luis Rodriguez
IBM Certified Systems Expert — eServer i5 iSeries
--



On Fri, Oct 29, 2010 at 10:16 AM, Luis Rodriguez <luisro58@xxxxxxxxx> wrote:

> William,
>
> CLOF is only valid when the file has been opened with either OPNQRYF or
> OPNDBF. As soon as you do your first RCVF the file is opened and doesn't
> close until you CL ends.
>
> HTH,
>
> Luis Rodriguez
> IBM Certified Systems Expert — eServer i5 iSeries
> --
>
>
>
>
> On Fri, Oct 29, 2010 at 10:03 AM, Willie J. Moore <WJMoore@xxxxxxxxxxxx>wrote:
>
> > I have the following CL:
> >
> > Dclf   file(qs36f/pmcstkqr)
> > Rcvf
> > .
> > .
> > endpgm:
> > dltovr   file(*all)
> > clof opnid(pmcstkrq)
> > clrpfm  file(qs36f/pmcstkrq)
> > endpgm
> >
> > The problem I am having is when the it runs the clrpfm it give an error
> > that the 'file is in use'.
> > I then put the clof in and now get an error message that 'no file open
> > with identifier pmcstkra'.
> > I even tried moving the 'dltovr' after the 'clrpfm', but got the same
> > error that 'no file open with identifier pmcstkra'.
> > File pmcstkqr format is stkmtd01.
> > Any help would be appreciated.
> >
> > William Moore
> > California Fine Wire
> > 805-489-5144
> > wjmoore@xxxxxxxxxxxx
> >
> > --
> > 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.