Re: Level check with extfile keyword

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.