Re: File cross-reference for Query/400

["Peter Dow" <pcdow@xxxxxxxxxxxxxxx>]

Hi Lou,

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


----- Original Message -----
From: "Lou Forlini" <lforlini@sspi-software.com>
To: <MIDRANGE-L@midrange.com>
Sent: Tuesday, November 14, 2000 7:48 PM
Subject: File cross-reference for Query/400


>     I have a client that has close to 1000 Query/400 objects, and
> needs to get a file cross-reference listing for them. As far as I can
> tell, DSPPGMREF won't do it, is there anything out there that can?
> Roll-your-own and commercial solution suggestions welcome.
>
>     Regards,
>
>     - Lou Forlini
>       Software Engineer
>       System Support Products, Inc.
> +---
> | 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 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
+---