× The internal search function is temporarily non-functional. The current search engine is no longer viable and we are researching alternatives.
As a stop gap measure, we are using Google's custom search engine service.
If you know of an easy to use, open source, search engine ... please contact support@midrange.com.


  1.  Home
  2. MIDRANGE-L
  3. March 2006

Re: Identifying all user objects in QGPL and QUSRSYS

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..

As an Amazon Associate we earn from qualifying purchases.

This thread ...
Replies:
Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

This mailing list archive is Copyright 1997-2024 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].

Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.