• Subject: Re: File cross-reference for Query/400
  • From: Lou Forlini <lforlini@xxxxxxxxxxxxxxxxx>
  • Date: Wed, 15 Nov 2000 13:44:49 -0500

Peter,

    Since all we need is a "quick and dirty" to get the file 
references, this looks like a winner!

    Many thanks,

    - Lou Forlini
      Software Engineer
      System Support Products, Inc.


At 8:39 PM -0800 11/14/00, Peter Dow wrote:
>For the roll-your-own solution you can use something like:
>
>DSPOBJD OBJ(*ALL/*ALL) OBJTYPE(*QRYDFN) OUTPUT(*OUTFILE) OUTFILE(QTEMP/XYZ)
>
>then read QTEMP/XYZ and for each query listed:
>
>RTVQMQRY QMQRY(QRYLIB/QRYNAME) SRCFILE(QTEMP/SOURCE) ALWQRYDFN(*YES)
>
>the source file will contain something like:
>
>H QM4 05 Q 01 E V W E R 01 03 00/11/14 22:37
>V 1001 050 Customers with invalid code
>V 5001 004 *HEX
>SELECT
>   ALL       T_CUSNO, T_CUSNAM, T_CUSAD1, W_BLLCOD
>   FROM      LIBNAME/CUSTEXT T01
>   WHERE     W_BLLCOD NOT IN ('1', '2', '3')
>
>
>Find the FROM clause and parse it and save the results.
>
>HTH,
>Peter Dow
>Dow Software Services, Inc.
>909 425-0194 voice
>909 425-0196 fax
+---
| 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 thread ...

Replies:

Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

This mailing list archive is Copyright 1997-2019 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].