Level check with extfile keyword

[Gene Burns <burns.gene@xxxxxxxxx>]

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?