|
Doc-
I have written some code to find strings in source code,
front-ended with a command to allow you to specify
multiple search strings.
It prints two listings:
- a list of members where the strings were found,
- a list of the source statements where the strings were found.
Here is what the command looks like when prompted:
---------------------------------------------------------------------
Find String (FNDSTR)
Type choices, press Enter.
Search strings . . . . . . . . . STRING
+ for more values
Source file name: . . . . . . . SRCFILE JDESRC*
Library name: . . . . . . . . *USRLIBL
Source member name: . . . . . . SRCMBR *ALL
Omit Library: . . . . . . . . . OMITLIB *NONE
Show Commented lines? . . . . . COMMENT *NO
Mark Records? . . . . . . . . . MARK *NO
Columns to search: COL
From column . . . . . . . . . 1
To column . . . . . . . . . . *RCDLEN
Submit job? . . . . . . . . . . SUBMIT *YES
---------------------------------------------------------------------
I'm willing to sharing my code, if you're interested in having a copy.
Regards,
Steve Landess
Austin, Texas
(512) 423-0935
----- Original Message -----
From: "EDoxtator" <>
To: <rpg400-l@xxxxxxxxxxxx>
Sent: Wednesday, August 04, 2004 11:40 AM
Subject: Alternatives to LIKE in SQL
> Hey All
>
> I'm going to be doing some mass-scans of RPGLE source, and I'm trying to
figure
> out if there's a better way than using the SQL LIKE keyword.
>
> I was thinking I'd to do Dynamic SQL that looks something like this:
>
>
> SELECT COUNT(*) FROM SRCMBR
> WHERE SRCDTA LIKE '%<field name>%' AND
> SUBSTR(srcdta,7,1) <> '*'
>
> This select does two character comparasons, which can't be cheap, and the
LIKE
> has to do a pattern match which is likewise expensive. However, I don't
know
> enough about SQL to do anything that would be less intensive.
>
> This is part of a set of programs that will enable me to keep track of
various
> versions of our product at certain customer sites. For that reason, I
want
> this solution to be as automated as possible (otherwise, I'd wumpus up
some
> quick and dirty programs driven through a PDM option).
>
> Any ideas?
>
> Thanks
>
> -Doc
>
> --
> This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing list
> To post a message email: RPG400-L@xxxxxxxxxxxx
> To subscribe, unsubscribe, or change list options,
> visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
> or email: RPG400-L-request@xxxxxxxxxxxx
> Before posting, please take a moment to review the archives
> at http://archive.midrange.com/rpg400-l.
>
>
As an Amazon Associate we earn from qualifying purchases.
This mailing list archive is Copyright 1997-2025 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.