Re: File open fails because of a level check error -- can I catch this, and f...

[asher613smith@xxxxxxx]

Would it not make more sense  to:
 
RMVLIBLE LibraryWeWant (using a  MonMsg to catch the case where 
LibraryWeWant is not already in the  LIBL)
ADDLIBLE LibraryWeWant  *FIRST
BEFORE opening any  files?
 
Also, the code you have below  will try to add LibraryWeWant *LAST more 
than once.if the file is in more  than one library already in your LIBL.
 
We have  a situation in which an RPG program is checking the library on 
an open  file, to make sure it's open in the right library. If it isn't, 
it closes  out the "wrong" instance of the file, shells out commands to 
remove the  "wrong" library from the *LIBL and add the "right" one, then 
reopens the  file in the "right" library.

In short, to pseudocode, with LibraryWeGot  derived from open feedback on 
a file:

WHILE LibraryWeWant <>  LibraryWeGot
close all the files
shell out "RMVLIBLE " + LibraryWeGot
shell out  "ADDLIBLE " + LibraryWeWant + "*LAST"
reopen all the  files

(And EXTFILE clauses on the F-specs are not an option here, for  reasons 
I'd rather not go into.)

At any rate, I just discovered a  loophole: if the file on which we're 
getting the open feedback has a level  check issue, the exception stops 
us before we reach the block that checks  to see if we're in the right 
library.

Assuming I catch the  exception, is there an easy way to find out what 
"LibraryWeGot"  is?

--
JHHL