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.

--
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.