Re: Identifying all user objects in QGPL and QUSRSYS

[Scott Klement <midrange-l@xxxxxxxxxxxxxxxx>]

Hi Gary,

> Does anyone know of a program or how to write a program that will list 
> all objects that didn't come with a system in QGPL and QUSRSYS? Another 
> wards all user objects placed in QGPL and QUSRSYS.

IBM supplied objects should say "*IBM" in the "user created by" field of 
the DSPOBJD output.  So you can do the following:

DSPOBJD OBJ(QGPL/*ALL) OBJTYPE(*ALL) DETAIL(*SERVICE)
        OUTPUT(*OUTFILE) OUTFILE(QTEMP/TEST)

Then run a simple query to find the records where the "created by user" 
isn't IBM. For example:

 select * from qtemp/test where odcrtu<>'*IBM'

Or if you don't want to use SQL:

CPYF FROMFILE(QTEMP/TEST) TOFILE(QTEMP/NOTIBM) CRTFILE(*YES)
     INCREL((*IF ODCRTU *NE '*IBM'))

(Then look at the NOTIBM file...)

Hope that helps..