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



midrange-l-request@xxxxxxxxxxxx wrote:

>   3. Re: DSPOBJAUT for complete library
>      (oliver.wenzel)
>
>>We did DSPOBJD to an outfile, then wrote a CL program to read the file and
>
>>perform DSPOBJAUT, again to an outfile for each object ...
>
>I hoped for a more simple solution.

Oliver:

Simple depends on viewpoint. Off the top of my head, the CL is like:

  dclf  QADSPOBJ

  dspobjd    somelib/*ALL objtype(*ALL) +
             output(*OUTFILE) outfile(mylib/myfile)

  ovrdbf     QADSPOBJ  mylib/myfile

Nxt_Obj:     rcvf
             monmsg  ( cpf0864 )   exec( return )

  dspobjaut  somelib/&objname objtype(&objtype) +
             output(*OUTFILE) outfile(mylib/myfile2) +
             outmbr(*FIRST *ADD)

  goto       Nxt_Obj

I'm not sure of the field names for &objname and &objtype, but a DSPFFD for 
QADSPOBJ should make them obvious. You might want to have an Exit to goto 
rather than simply returning from the monmsg; that would allow a DLTOVR in case 
this is run in an interactive job. You might want error handling, but I'm not 
sure if there're many errors you can handle meaningfully, perhaps tracking 
object locks or not authorized to objects. You could also have the library name 
passed in as a parm or retrieve it from a data area or data queue or...

But that's pretty much the whole program, and you only create it once.

Tom Liotta

-- 
Tom Liotta
The PowerTech Group, Inc.
19426 68th Avenue South
Kent, WA 98032
Phone  253-872-7788 x313
Fax    253-872-7904
http://www.powertech.com


__________________________________________________________________
McAfee VirusScan Online from the Netscape Network.
Comprehensive protection for your entire computer. Get your free trial today!
http://channels.netscape.com/ns/computing/mcafee/index.jsp?promo=393397

Get AOL Instant Messenger 5.1 free of charge.  Download Now!
http://aim.aol.com/aimnew/Aim/register.adp?promo=380455

As an Amazon Associate we earn from qualifying purchases.

This thread ...


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.