RE: Source Scan Utiltiy -- MIDRANGE-L

You can, they're basically one in the same, except that you can submit
FNDSTRPDM.

-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
Jon A. Erickson
Viking Industries, Inc.
http://www.vikingindustries.com
-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-

> -----Original Message-----
> From: owner-midrange-l@midrange.com
> [mailto:owner-midrange-l@midrange.com]On Behalf Of Dave Mahadevan
> Sent: Thursday, April 30, 1998 1:35 PM
> To: MIDRANGE-L@midrange.com
> Subject: Re: Source Scan Utiltiy
>
>
> Scott:
>
> Pardon me if I do not seem to understand.  Why cant you use PDM option
> 25 to achieve this objective (same as FNDSTRPDM)?
>
> Scott Swaim wrote:
>
> >      I am looking for a utility that will scan a source file for a
> > character string.  I code all of my Data structures in external
> > members and then /Copy them into my program.  I need to be able to
> > identify which programs would need to be changed if I modify a Data
> > Structure. Here is an example of what I am lookinf for:     Source
> > File .......... QRPGLESRC        Library   ...........     *LIBL
> > Scan String .......... 'Hello'    Output        ..........
> > *                   *, *Print       This would scan all members in the
> > source file for the scan string.  It would then output to
> > screen/printer a listing a which members contained the string.  I
> > woudl be helpful if it woudl in\gnore case but this might not be
> > possible.      Any suggestion on how to proceed would be very much
> > appreciated.  The utility, once completed, would be made available to
> > anyone who requested it @ No Charge of course.  My company allows me
> > to write programs on their system and still keep copyright to the
> > ideas/Source/compiled program. Only if I do it outside normal business
> > hours. TIAScott Swaimscott71@hpnc.com
>
>
>
> --
> Thank You.
>
> Regards
>
> Dave Mahadevan.. mailto:mahadevan@fuse.net
>
>
> +---
> | This is the Midrange System Mailing List!
> | To submit a new message, send your mail to MIDRANGE-L@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
> +---
>


begin 666 Jon Erickson.vcf
M0D5'24XZ5D-!4D0-"E9%4E-)3TXZ,BXQ#0I..D5R:6-K<V]N.TIO;CL[.PT*
M1DXZ2F]N($5R:6-K<V]N#0I/4D<Z5FEK:6YG($EN9'5S=')I97,[26YF;W)M
M871I;VX@4WES=&5M<PT*5$E43$4Z4W(N(%!R;V=R86UM97(@06YA;'ES= T*
M5$5,.U=/4DL[5D])0T4Z*#4P,RD@-C8W+38P,S @>#4U, T*5$5,.TA/344[
M5D])0T4Z*#4P,RD@-C4X+3<U.#D-"E1%3#M#14Q,.U9/24-%.B@U,#,I(#,P
M-RTW-C4U#0I414P[5T]22SM&05@Z*#4P,RD@-C8Y+3$Q,S4-"D%$4CM73U)+
M.CL[,3@V,# @3BY%+B!7:6QK97,@4F0N.U!O<FQA;F0[3U([.3<R,S M-CDY
M-3M5;FET960@4W1A=&5S(&]F($%M97)I8V$-"DQ!0D5,.U=/4DL[14Y#3T1)
M3D<]455/5$5$+5!224Y404),13HQ.#8P,"!.+D4N(%=I;&ME<R!29"X],$0]
M,$%0;W)L86YD+"!/4B Y-S(S,"TV.3DU/3!$/3!!56YI=&5D(%-T871E<R!O
M9B!!;65R/0T*:6-A#0I!1%([2$]-13H[.S$U,S,T(%-%($]R96=O;B!4<F%I
M;"!$<BX[0VQA8VMA;6%S.T]2.SDW,#$U.U5N:71E9"!3=&%T97,@;V8@06UE
M<FEC80T*3$%"14P[2$]-13M%3D-/1$E.1SU154]4140M4%))3E1!0DQ%.C$U
M,S,T(%-%($]R96=O;B!4<F%I;"!$<BX],$0],$%#;&%C:V%M87,L($]2(#DW
M,#$U/3!$/3!!56YI=&5D(%-T871E<R!O9B!!;64]#0IR:6-A#0I!1%([4$]3
M5$%,.CL[4"Y/+B!";W@@,C U,3@[4&]R=&QA;F0[3U([.3<R.30M,#4Q.#M5
M;FET960@4W1A=&5S(&]F($%M97)I8V$-"DQ!0D5,.U!/4U1!3#M%3D-/1$E.
M1SU154]4140M4%))3E1!0DQ%.E N3RX@0F]X(#(P-3$X/3!$/3!!4&]R=&QA
M;F0L($]2(#DW,CDT+3 U,3@],$0],$%5;FET960@4W1A=&5S(&]F($%M97)I
M8V$-"E523#H-"E523#IH='1P.B\O=W=W+G!C97HN8V]M+WYE=V%R90T*0D1!
M63HQ.38P,3(P- T*14U!24P[4%)%1CM)3E1%4DY%5#IJ;VYE<FEC:W-O;D!V
M:6MI;F=I;F1U<W1R:65S+F-O;0T*14U!24P[24Y415).150Z97=A<F5 <&-E
H>BYC;VT-"E)%5CHQ.3DX,#0P-U0Q-#,X,3E:#0I%3D0Z5D-!4D0-"@``
`
end


+---
| This is the Midrange System Mailing List!
| To submit a new message, send your mail to MIDRANGE-L@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
+---