Re: Level check with extfile keyword

Gene,

This *can* be done with keyed access, if you define the file as
program-described *and* if the policy field is at the same position in the
record format of all the files you want to access (it may also have to be at
position 1). Specify multiple external DS's (using e.g. EXTNAME - one per
external file) and an INFDS on the file.

With this method, you open the file, check the infds to see what file it is
(and therefore what record format to use), read the file into the record
format and do a READ through the file (or a SETLL/READE if that's possible -
can't remember how well keyed operations work on program-described files).

Or use SQL, as Charles suggests. SQL is probably 'easier', unless you and
your colleagues have no experience with SQLRPGLE programs and cringe at the
sight of them. Even so, though, the RPGLE-only approach is pretty complex. I
have some example code if you want.

Rory

On Fri, Apr 3, 2009 at 9:12 AM, 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.