RE: File open fails because of a level check error -- can I catch this, and find out where it tried to open the file?

Considering that EXTFILE is not an option for whatever reason.

How about before you call the RPG program use a CL program to check for the
library the object was found in? then you can remove/add libraries as
needed.

In the CL..

RTVOBJD OBJ(&MYFILE) OBJTYPE(*FILE) RTNLIB(&RTNLIB)
IF &RTNLIB *NE &WANTEDLIB DO
...
ENDDO
ELSE DO
...
ENDDO
CALL RPGPGM



--

Michael Schutte
Admin Professional



Bob Evans Holiday Farmhouse Feast, Serves 6-8 l $74.99
A complete homestyle meal TO GO, ready to heat at home, serve & enjoy!
Perfect for Thanksgiving, Christmas or holiday entertaining.
For more information, visit www.FarmhouseFeast.com



rpg400-l-bounces@xxxxxxxxxxxx wrote on 01/20/2010 12:44:12 PM:

Hi James

Have a Look at the EXTFILE File level keyword.
You can specify File , Library in it to specifically target the library
(and even a different file name) you want. The files need to be opened
under user control

If the library name needs to change, you don't need to end the program,
Just close the file, Change the EXTFILE variable, and reopen the file.

It seems to be much faster that manipulatng the library list, but that's
just my experience.

Cheers,
Martin

-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of James H. H. Lampert
Sent: 20 January 2010 17:28
To: RPG programming on the IBM i / System i
Subject: File open fails because of a level check error -- can I catch
this,and find out where it tried to open the file?

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 message (including any attachments) is only for the use of the
person(s) for whom it is intended. It may contain Mattel
confidential and/or trade secret information. If you are not the
intended recipient, you should not copy, distribute or use this
information for any purpose, and you should delete this message and
inform the sender immediately.

Mattel UK Limited is incorporated in England and Wales with its
registered office at Mattel House, Vanwall Business Park, Vanwall
Road, Maidenhead, Berkshire SL6 4UB. Company Registration Number 1471442.
--
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.