Re: CPF3220 not making sense

[Rpglist <rpglist@xxxxxxxxxxx>]

Timmy you made me think and I found it, the file is declared in a sub procedure with static therefore it's not closed and I neglected to add a close but since the report isn't writing that many records I just took out the static

Thanks

Sent from my iPhone

On Nov 20, 2012, at 9:33 AM, Tommy.Holden@xxxxxxxxxxxxxxxxxxxxx wrote:

> Are you setting *INLR on before leaving the RPG?  If not then the file is 
> still open.
>
>
> Thanks,
> Tommy Holden
>
>
>
> From:   Luis Rodriguez <luisro58@xxxxxxxxx>
> To:     "RPG programming on the IBM i / System i" <rpg400-l@xxxxxxxxxxxx>, 
>
> Date:   11/20/2012 09:32 AM
> Subject:        Re: CPF3220 not making sense
> Sent by:        rpg400-l-bounces@xxxxxxxxxxxx
>
>
>
> Mac,
>
> How are you opening the file in the RPGLE program (implicit/explicit)?
>
> Are your OVRDBF / DLTOVR done with the same LVL?
>
> Regards,
>
>
> Luis Rodriguez
> IBM Certified Systems Expert ? eServer i5 iSeries
> -- 
>
>
>
>
> On Tue, Nov 20, 2012 at 10:00 AM, <rpglist@xxxxxxxxxxx> wrote:
>
> > I have a CL that creates a file in qtemp, adds an override and then 
> calls
> > an rpgle to produce a report based on that file.  All is good.  However 
> at
> > the end of the program, I delete the override and then try to delete the
> > file (in cases where this is run interactively) and it won't delete it,
> > throws a cpf3220 error.
> >
> > I have a section of code in the program that envokes a SQL statement but
> > it is not on this file.
> >
> > I did add the commit=*none; to the otions statement but that didn't help
> > either.
> >
> > I'm not performing an open on the file in the CL at all so I'm not sure
> > what is wrong....
> >
> > Suggestions?
> >
> > Mac
> >
> >
> > --
> > 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.
> -- 
> 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.
>
>
> -- 
> 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.