Re: File cross-reference for Query/400

[Lou Forlini <lforlini@xxxxxxxxxxxxxxxxx>]

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