RE: Objects with missing source

["Smith, Graham (EBM)" <Graham_SmithEBM@xxxxxxxxxxx>]

Phil,

if you don't want to play with Richard's API's a quick and dirty method is
with DSPOBJD to an outfile then read the outfile in a CL pgm and use RTVMBRD
command which will fail if the source member isn't found.  How you output
that information is more tricky.  Alternatively build RPG over the DSPOBJD
outfile and have your RTVMBRD command is a called CL subprogram. 

That's where the beauty of API's comes in because you can access them neatly
from HLL pgms such as RPG. They just take a bit more effort especially if
you're not used to working with them.

Cheers
Graham

> ----------
> From:         Richard Casey[SMTP:casey_r@popmail.firn.edu]
> Sent:         12 March 2001 17:53
> To:   MIDRANGE-L@midrange.com
> Subject:      RE: Objects with missing source
> 
> Phil,
> 
> I don't think there is a native command to do what you want. There are
> 3rd-party packages that could assist you. Hawkeye's Pathfinder (I think I
> got that right) and ASC's Abstract/Probe come to mind. Of course they do a
> lot more that just check for missing source!
> 
> If you want to "roll your own", you can use the QCLRPGMI API to obtain the
> library/file/member of the source used to create the program followed by
> the
> QUSRMBRD API to retrieve the description of the source member. QUSRMBRD
> would return an error if the source member could not be found.
> 
> Hope this helps!
> Richard
> 
> 
> -----Original Message-----
> From: owner-midrange-l@midrange.com
> [mailto:owner-midrange-l@midrange.com]On Behalf Of Sattler, Phil
> Sent: Monday, March 12, 2001 10:50 AM
> To: 'MIDRANGE-L@midrange.com'
> Subject: Objects with missing source
> 
> 
> I'm trying to identify those *PGM objects whose source is missing. Is
> there
> an AS400 command that will give me this information?
> 
> Phil
> 
> +---
> | This is the Midrange System Mailing List!
> | To submit a new message, send your mail to MIDRANGE-L@midrange.com.
> | To subscribe to this list send email to MIDRANGE-L-SUB@midrange.com.
> | To unsubscribe from this list send email to
> MIDRANGE-L-UNSUB@midrange.com.
> | Questions should be directed to the list owner/operator:
> david@midrange.com
> +---
> 
**********************************************************************
 This email and any attachments are confidential and solely
 for the use of the intended recipient.  They may contain
 material protected by legal professional or other privilege.
 If you are not the intended recipient or the person responsible
 for delivering to the intended recipient, you are not authorised
 to and must not disclose, copy, distribute or retain this email
 or its attachments.  Although this email and its attachments
 are believed to be free of any virus or other defect, it is the
 responsibility of the recipient to ensure that they are virus free
 and no responsibility is accepted by the company for any
 loss or damage arising from receipt or use thereof.

**********************************************************************
+---
| This is the Midrange System Mailing List!
| To submit a new message, send your mail to MIDRANGE-L@midrange.com.
| To subscribe to this list send email to MIDRANGE-L-SUB@midrange.com.
| To unsubscribe from this list send email to MIDRANGE-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---