RE: USRPRF and Private Authorities

DCLF QADSPOBJ

DSPOBJD *ALL *USRPRF OUTPUT(*OUTFILE) OUTFILE(QTEMP/QADSPOBJ)
OVRDBF QADSPOBJ QTEMP/QADSPOBJ

LOOP:     RCVF
MONMSG CPF0864 *N RETURN

DSPUSRPRF &ODOBNM *OBJAUT *OUTFILE OUTFILE(QTEMP/QADSPUPO) OUTMBR(*N *ADD)

GOTO LOOP


Two caveats:

1.   You will need sufficient authority.
2.   The above code is all done by memory.  No guarantees.  It's worth what
you paid for it.  (I likely went too far with positional parameters, as is
my habit.

Al


Al Barsa, Jr.
Barsa Consulting Group, LLC

400>390

914-251-1234
914-251-9406 fax

http://www.barsaconsulting.com
http://www.taatool.com






                    "Kirk Goins"
                    <kirkg@pacinfosys.c       To:     <midrange-l@midrange.com>
                    om>                       cc:
                    Sent by:                  Subject:     RE: USRPRF and 
Private Authorities
                    midrange-l-admin@mi
                    drange.com


                    05/02/02 11:30 AM
                    Please respond to
                    midrange-l






Thanks Al... That's TOO easy, just wish I could do *ALL to an outfile. But
I guess IBM had to leave some work for us...

__________________________________________________
Kirk Goins
IBM Certified iSeries Technical Solutions Expert
Pacific Information Systems - An IBM Premier Business Partner
503-674-2985           kirkg@pacinfosys.com


-----Original Message-----
From: Al Barsa/Barsa Consulting [mailto:barsa@barsaconsulting.com]
Sent: Thursday, May 02, 2002 8:23 AM
To: midrange-l@midrange.com
Subject: Re: USRPRF and Private Authorities



DSPUSRPRF TYPE(*OBJAUT)

Al

Al Barsa, Jr.
Barsa Consulting Group, LLC

400>390

914-251-1234
914-251-9406 fax

http://www.barsaconsulting.com
http://www.taatool.com






                    "Kirk Goins"
                    <kirkg@pacinfosys.c       To:
<midrange-l@midrange.com>
                    om>                       cc:
                    Sent by:                  Subject:     USRPRF and
Private Authorities
                    midrange-l-admin@mi
                    drange.com


                    05/02/02 11:07 AM
                    Please respond to
                    midrange-l






Is there a way to get a list of objects a user has private authorities to?

Thanks

__________________________________________________
Kirk Goins
IBM Certified iSeries Technical Solutions Expert
Pacific Information Systems - An IBM Premier Business Partner
503-674-2985           kirkg@pacinfosys.com

_______________________________________________
This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing list
To post a message email: MIDRANGE-L@midrange.com
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/cgi-bin/listinfo/midrange-l
or email: MIDRANGE-L-request@midrange.com
Before posting, please take a moment to review the archives
at http://archive.midrange.com/midrange-l.





_______________________________________________
This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing list
To post a message email: MIDRANGE-L@midrange.com
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/cgi-bin/listinfo/midrange-l
or email: MIDRANGE-L-request@midrange.com
Before posting, please take a moment to review the archives
at http://archive.midrange.com/midrange-l.

_______________________________________________
This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing list
To post a message email: MIDRANGE-L@midrange.com
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/cgi-bin/listinfo/midrange-l
or email: MIDRANGE-L-request@midrange.com
Before posting, please take a moment to review the archives
at http://archive.midrange.com/midrange-l.