Re: Need to scan files

[Vernon Hamberg <vhamberg@xxxxxxxxx>]

Wildcards have more flexibility in QSHELL, than we are used to on the 400,
where it's only at the end we can use them (except for PDM, of course).
Consider the following:

cd   /qsys.lib/vern.lib/qcsrc.file
$
ls
RTVSYSSTS.MBR   TESTLCK1.MBR    TESTPRT.MBR     TESTVCP.MBR
TESTACCESS.MBR  TESTLCK2.MBR    TESTRV.MBR      TESTVRM.MBR
TESTCPP.MBR     TESTLCKC.MBR    TESTTIME.MBR    TESTX.MBR
TESTJOBIDX.MBR  TESTMAP.MBR     TESTUTIL.MBR    XCSSYS.MBR
$
ls *X*
TESTJOBIDX.MBR  TESTX.MBR       XCSSYS.MBR
$

At 10:25 AM 4/6/02 +1000, you wrote:

>Hello Terry,
>
>You wrote:
> >Doesn't seem to work for files in the QSYS.LIB file system.
>
>regarding QSHELL utilities.
>
>They do work in QSYS.LIB.  You must remember that files are treated as
>directories when using IFS path names.  So:
>
>  grep -c 'EXFMT' /qsys.lib/shcsrc.lib/showntell.FILE/*R.MBR
>
>returns:
>
>  /qsys.lib/shcsrc.lib/showntell.FILE/CLRDR.MBR:0
>  /qsys.lib/shcsrc.lib/showntell.FILE/DUMPR.MBR:1
>  /qsys.lib/shcsrc.lib/showntell.FILE/SHWCMDHSTR.MBR:2
>  /qsys.lib/shcsrc.lib/showntell.FILE/SHWFFDR.MBR:5
>
>etc.
>
>grep does not recurse through directories but you can achieve that effect
>by typing the following incantation (change the path to suit your system):
>
>for PATH_NAME in `ls -d /qsys.lib/shcsrc.lib/*`
>do
>SEARCH=`echo ${PATH_NAME}/*.MBR`
>grep -c 'EXFMT' ${SEARCH}
>done
>
>NOTE:  The ` quotes in the above are really graves (that thing under the
>tilde, which is that squiggle above the TAB key).  The ' quotes are really
>apostrophes.  Press Enter after typing each line.  It will run after the
>word 'done' is processed.
>
>You could also stick this in a shell script and make it generic.  Dontcha
>jus lurve nix!  Excuse me while I throw up!
>
>Regards,
>Simon Coulter.
>
>--------------------------------------------------------------------
>    FlyByNight Software         AS/400 Technical Specialists
>    http://www.flybynight.com.au/
>
>    Phone: +61 3 9419 0175   Mobile: +61 0411 091 400        /"\
>    Fax:   +61 3 9419 0175   mailto: shc@flybynight.com.au   \ /
>                                                              X
>                  ASCII Ribbon campaign against HTML E-Mail  / \
>--------------------------------------------------------------------
>
>_______________________________________________
>This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing list
>To post a message email: MIDRANGE-L@midrange.com
>To subscribe, unsubscribe, or change list options,
>visit: http://lists.midrange.com/cgi-bin/listinfo/midrange-l
>or email: MIDRANGE-L-request@midrange.com
>Before posting, please take a moment to review the archives
>at http://archive.midrange.com/midrange-l.