RE: Checking for objects that are NOT secured by an authorization list

["Kruse, Kat" <kkruse@xxxxxxxxxxxx>]

Thanks, I always love it when someone saves me from having to think too hard :P

-----Original Message-----
From: midrange-l-bounces@xxxxxxxxxxxx [mailto:midrange-l-bounces@xxxxxxxxxxxx] On Behalf Of Dennis Lovelady
Sent: Wednesday, June 16, 2010 10:46
To: 'Midrange Systems Technical Discussion'
Subject: RE: Checking for objects that are NOT secured by an authorization list

As a disclaimer, this is entered directly into this e-mail, and therefore
untested.  It should be fast and easy.  I kept the DSPOBJD out of the CL
because that is the one variable you might want to change; it's a KISS
approach.

DSPOBJD ... OUTPUT(*OUTFILE) OUTFILE(QTEMP/MYOBJLIST)

Run the following CL Program:

DCLF QADSPOBJ
OVRDBF QSDSPOBJ QTEMP/MYOBJLIST
LOOP:
RCVF
MONMSG CPF0864 EXEC(GOTO PART2)
DSPOBJAUT &ODLBNM/&ODOBNM &ODOBTP OUTPUT(*OUTFILE) +
    OUTFILE(QTEMP/AUTS) OUTMBR(AUTS *ADD)
GOTO LOOP

PART2:
CPYF QTEMP/AUTS QTEMP/NOAUTL +
CRTFILE(*YES) MBROPT(*REPLACE)
INCREL((*IF OAANAM *EQ '*NONE')) 
RETURN
ENDPGM

---

Now you will have a file (QTEMP/NOAUTL) that contains only objects that are
not secured by any AUTL


Dennis Lovelady
http://www.linkedin.com/in/dennislovelady
--
"Millions long for immortality who do not know what to do with themselves on
a rainy Sunday afternoon."
        -- Susan Ertz 


> I looking for a fast and easy way to find objects in user libraries
> that are NOT secured by an authorization list.  Anyone got an idea?
>
> Thanks
>
> Kat Kruse
> Systems Support Engineer, Staff
> Qualcomm, Inc.
> 858-845-0014
>
> --
> 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.