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

[Doug Davie <dougdavie@xxxxxxxxx>]

And what if LibraryWeGot is in the system portion, the product, or current
library?
RMVLIBLE will not remove those, and you'll end up in a loop.

On Wed, Jan 20, 2010 at 12:41 PM, <asher613smith@xxxxxxx> wrote:

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