<html>
<head>
<meta http-equiv="content-type" content="text/html; charset=utf-8">
</head>
<body text="#000000" bgcolor="#FFFFFF">
Here's a helpful program to search ascii prc tables for a text
match.<br>
<br>
<font face="Courier New, Courier, monospace">/usr/local/bin/SEARCH_IT<br>
<br>
rm -f /tmp/$USER.txt<br>
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;<br>
vi /tmp/$USER.txt<br>
</font><br>
(note make this the "for file" line has no carriage returns. the
email wraps it.)<br>
<br>
This is hwo you use it;<br>
# cd /appl/filepro/yourfile<br>
# SEARCH_IT "prc.*" "lookup prt ="<br>
or<br>
# SEARCH_IT "prc.*" "\"MY TEXT IN QUOTES\""<br>
<br>
It does require all prc tables be in ascii format and that your
login name is set<br>
<br>
To see which tables are not is ascii format;<br>
<br>
1) cd /appl/filepro/your_file<br>
2) ls -1 prc.* > /tmp/PRC.txt<br>
3) create this in a sample/prc.input. I use r_process/prc.input;<br>
<br>
<font face="Courier New, Courier, monospace">end::end:<br>
@keyR::PUTENV "PFADDWP","OFF":<br>
::debug on:<br>
::fa="/tmp/PRC.txt":<br>
lokfile::import ascii mgr = (fa) r=\n f=\r:<br>
:not mgr:end:<br>
::z=""{mgr(1):<br>
::fb="/appl/filepro/your_file/"{z:<br>
::import ascii rdw = (fb) r=\n f=\r:<br>
::l=""{rdw(1){"";close rdw:<br>
:l eq "":goto lokfile:<br>
::n(4,.0)=DLEN(l):<br>
:mid(l,"1","1") eq "" and mid(l,n,"1") eq "":goto lokfile:<br>
::fc="/tmp/BADPRC.txt":<br>
:'strip off the prc.:mid(z,"1","4")="";z=""{z:<br>
::export ascii bad = (fc) r=\n f=\r:<br>
::bad(1)=""{z:<br>
::goto lokfile:</font><br>
<br>
Now you have identified the files that need to be recompiled with
ABE=ASCII set.<br>
Since we have removed the prc. when writing the /tmp/BADPRC.txt, we
can run this script;<br>
<br>
<font face="Courier New, Courier, monospace"># for file in `cat
/tmp/BADPRC.txt`; do /appl/fp/rcabe yourfile $file; done;<br>
</font><br>
Once you run through these prc. file by recording them, all your
prc. tables are searchable.<br>
<br>
Hope this helps somebody,<br>
<br>
Richard D. Williams<br>
<br>
BTW: I have found that this, /appl/fp/rcabe sample -ca, does not
recompile the prc tables into ASCII text.<br>
<br>
<br>
</body>
</html>