RE: authority question....

["John Earl" <john.earl@xxxxxxxxxxxxxxxxxx>]

This seems simple enough...  Display all the object names
from the library list into an outfile, then CHKOBJ on each
one to see which one this group of users is authorized to.
The first one you find that you're authorized to, OVRDBF,
and execute on it.

Here's a sample - be forewarned that I used Outlook as by
editor, so the syntax may be close, but is not likely to be
flawless production level code :)



PGM

DCLF MyFileList

DSPOBJD *LIBL/TestFile OBJTYPE(*FILE) +   
 OUTFILE(QTEMP/MyFileList)

ReadLoop:
RCVF 
MONMSG CPF0864 GOTO(Error)

CHKOBJ OBJ(ODOBLB/OBODOB)OBJTYPE(*FILE) AUT(*USE)
   MONMSG CPF9802 GOTO(ReadLoop)

OVRDBF TestFile ODOBLB/OBODOB
CALL  MyApp

Error:
/* Do something here */


DLTOVR TestFile 

ENDPGM

jte



--
John Earl | Chief Technology Officer
The PowerTech Group
19426 68th Ave. S
Seattle, WA 98032
(253) 872-7788 ext. 302
john.earl@xxxxxxxxxxxxxxxxxx
www.powertech.com 


> -----Original Message-----
> From: midrange-l-bounces@xxxxxxxxxxxx [mailto:midrange-l-
> bounces@xxxxxxxxxxxx] On Behalf Of Hatzenbeler, Tim
> Sent: Thursday, October 09, 2003 2:57 PM
> To: 'Midrange Systems Technical Discussion'
> Subject: authority question....
> 
> Is this possible?
> 
> Let say I have 2 files, named the same thing... "testfile"
> and I have
> "testfile" located in LIBA and in LIBB, and in the users
> library list, I
> have LIBA followed by LIBB,  is it possible to have a
> program read the file
> in LIBB, by *excluding the users authority to the file in
> LIBA,  instead of
> saying not authorized to the file in LIBA?
> 
> Just a curosity,
> 
> Tim
> This e-mail message, including any attachments, is for the
> sole use of the
> intended recipient(s) and may contain confidential or
> privileged
> information.  Any unauthorized review, use, disclosure or
> distribution is
> prohibited.  If you are not the intended recipient, please
> contact the
> sender by reply e-mail and destroy the message.
> _______________________________________________
> This is the Midrange Systems Technical Discussion
> (MIDRANGE-L) mailing list
> To post a message email: MIDRANGE-L@xxxxxxxxxxxx
> To subscribe, unsubscribe, or change list options,
> visit:
> http://lists.midrange.com/mailman/listinfo/midrange-l
> or email: MIDRANGE-L-request@xxxxxxxxxxxx
> Before posting, please take a moment to review the
> archives
> at http://archive.midrange.com/midrange-l.