Re: Level check with extfile keyword

[Gene Burns <burns.gene@xxxxxxxxx>]

Thanks Charles,

With the amount of embedded SQL I've written over the years, I'm surprised
this didn't occur to me.
I have a x-ref to get the field suffix used in each file so this should be
fairly easy.



On Fri, Apr 3, 2009 at 11:58 AM, Charles Wilt <charles.wilt@xxxxxxxxx>wrote:

> Any file opened by RPG, either EXTNAME or OVERDBF, must have teh same
> record format as the file listed on the f-spec did when the program
> was compiled.
>
> Dynamic SQL is a better option.
>
> d wfile           s             10a
> d wSQL         s           100a    varying
>        for x = 1 to %elem(pa);
>
>          wSQL = 'delete from ' +  pa(x) + ' where PLCY = ' + policy;
>
>         exec SQL execute immediate wSQL;
>         ///add standard error handling
>
>       endfor;
>
>
> HTH,
> Charles
>
> On Fri, Apr 3, 2009 at 12:12 PM, Gene Burns <burns.gene@xxxxxxxxx> wrote:
> > I am trying to use usropn and extfile, in V5R4, to process 112 files for
> > deletions.  I have the following specs:
> >
> >     fwrkfile   uf   e           k disk    usropn extfile(wfile)
> >
> >     d wfile           s             10a
> >
> >        for x = 1 to %elem(pa);
> >
> >          wfile = pa(x);
> >          open wrkfile;
> >
> >
> >          setll policy wrkfile;
> >          dou %eof(wrkfile);
> >            reade policy wrkfile;
> >            if NOT %eof(wrkfile);
> >              if x = 1;
> >                hldr = pchr60;
> >              endif;
> >              delete(e) wrkfile;
> >            endif;
> >          enddo;
> >
> >          close wrkfile;
> >        endfor;
> >
> >
> > pa is a 10a array of file names.
> >
> > I am updating wfile from arrays that contain the file names.  The first
> file
> > is processed successfully and closed, but when the program tries to open
> the
> > second file I get CPF4131, Level Check.
> >
> > I checked the file and it had been changed this morning, so I recompiled
> and
> > ran the program again.  CPF4131, Level Check on the second file again!  I
> > have a file named WRKFILE in my development library and I thought maybe
> it
> > was using the date from that file.  So I deleted and recreated that file
> and
> > recompiled again.  Still got the CPF4131 on the second file.  Then I
> deleted
> > the WRKFILE file and recreated it using a different record format, it did
> > have the same record format as the first file in the array.
> > This time I got the CPF4131 on the FIRST file in the array.
> > The problem seems to be when it tries to open a file with a different
> record
> > format from the file specified in positons 7-16 of the f-spec.
> >
> > Is there a way around this?  Or is this keyword only good for opening
> files
> > with the same record format in different libraries?
> > --
> > 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.