Level check with extfile keyword

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?