helpful procedure to SEARCH prc tables

[Fairlight]

Unless you want to match on regex, in which case use egrep.

I went one better:  I wrote a global search-and-replace program.  :)

m->

On Fri, Dec 08, 2017 at 03:17:53PM -0500, Brian K. White via Filepro-list thus spoke:
> #!/bin/sh
> read -p "What FilePro file (blank for all): " y
> cd /u/global/appl/filepro/"$y"
> read -p "Enter what you are looking for: " x
> find ./ -name 'prc.*' -print0 |xargs -0 grep -ni "$x" |less -np "$x"
> 
> 
> 
> On 12/8/2017 1:57 PM, Richard D. Williams via Filepro-list wrote:
> >Here's a helpful program to search ascii prc tables for a text match.
> >
> >/usr/local/bin/SEARCH_IT
> >
> >rm -f /tmp/$USER.txt
> >for file in `ls -1 $1`; do if grep -q "$2" "$file"; then echo
> >$file >> /tmp/$USER.txt; cat $file | grep -n "$2" >>
> >/tmp/$USER.txt; echo "" >> /tmp/$USER.txt; fi; done;
> >vi /tmp/$USER.txt
> >
> >(note make this the "for file" line has no carriage returns. the
> >email wraps it.)
> >
> >This is hwo you use it;
> ># cd /appl/filepro/yourfile
> ># SEARCH_IT "prc.*" "lookup prt ="
> >or
> ># SEARCH_IT "prc.*" "\"MY TEXT IN QUOTES\""
> >
> >It does require all prc tables be in ascii format and that your
> >login name is set
> >
> >To see which tables are not is ascii format;
> >
> >1) cd /appl/filepro/your_file
> >2) ls -1 prc.* > /tmp/PRC.txt
> >3) create this in a sample/prc.input. I use r_process/prc.input;
> >
> >end::end:
> >@keyR::PUTENV "PFADDWP","OFF":
> >::debug on:
> >::fa="/tmp/PRC.txt":
> >lokfile::import ascii mgr = (fa) r=\n f=\r:
> >:not mgr:end:
> >::z=""{mgr(1):
> >::fb="/appl/filepro/your_file/"{z:
> >::import ascii rdw = (fb) r=\n f=\r:
> >::l=""{rdw(1){"";close rdw:
> >:l eq "":goto lokfile:
> >::n(4,.0)=DLEN(l):
> >:mid(l,"1","1") eq "" and mid(l,n,"1") eq "":goto lokfile:
> >::fc="/tmp/BADPRC.txt":
> >:'strip off the prc.:mid(z,"1","4")="";z=""{z:
> >::export ascii bad = (fc) r=\n f=\r:
> >::bad(1)=""{z:
> >::goto lokfile:
> >
> >Now you have identified the files that need to be recompiled with
> >ABE=ASCII set.
> >Since we have removed the prc. when writing the /tmp/BADPRC.txt,
> >we can run this script;
> >
> ># for file in `cat /tmp/BADPRC.txt`; do /appl/fp/rcabe yourfile
> >$file; done;
> >
> >Once you run through these prc. file by recording them, all your
> >prc. tables are searchable.
> >
> >Hope this helps somebody,
> >
> >Richard D. Williams
> >
> >BTW: I have found that this, /appl/fp/rcabe sample -ca, does not
> >recompile the prc tables into ASCII text.
> >
> >
> >-------------- next part --------------
> >An HTML attachment was scrubbed...
> >URL: <http://mailman.celestial.com/pipermail/filepro-list/attachments/20171208/e7db1e59/attachment.html>
> >
> >_______________________________________________
> >Filepro-list mailing list
> >Filepro-list at lists.celestial.com
> >Subscribe/Unsubscribe/Subscription Changes
> >http://mailman.celestial.com/mailman/listinfo/filepro-list
> >
> 
> _______________________________________________
> Filepro-list mailing list
> Filepro-list at lists.celestial.com
> Subscribe/Unsubscribe/Subscription Changes
> http://mailman.celestial.com/mailman/listinfo/filepro-list
> 

-- 
Audio panton, cogito singularis.