Hi Dave,

The QUAD editor can be used to do that, but for one file at a time with the
"d@i:xxxx: s" command, which will delete any line containing (including) the
:xxxx: string, the s option has it display the lines that are deleted.  

If you have MPEX, you can use quad on a fileset with the %EDITQUAD MPEX
command...

one gotcha is that it will wreck circular files, so you need to exclude them
from your fileset, another is that it will keep every file, even if the file
was not modified (so the mod date will change even if no lines were
changed). (The first problem can be gotten around with the MPEX function
'ISSTD')

The following works (The ISSTD avoids MSG/CIR/RIO and KSAM files), but you
must set JCW QUADYES to something > 0
 for the KEEP command to work.  I also recommend looking for a later version
of QUAD than what is currently in PUB.VESFOT and replacing the version in
PUB.VESOFT with it.  There is usually a fairly recent copy in PRED.SYS as
PSQUAD.

The version in PUB.VESOFT does not have the QUADYES JCW implemented, so you
need a version that has a banner date of at least June 1991, the latest I
have found is September 1993, and the one in PRED.SYS (as PSQUAD) is dated
March 1992.

:SETJCW QUADYES,1
: run mpex.pub.vesoft;info="editquad @(ISSTD),D@i:delete_string:
s;keep;exit"
:SETJCW QUADYES,0


Thanks,

Gary Robillard




-----Original Message-----
From: HP-3000 Systems Discussion [mailto:[log in to unmask]] On Behalf
Of Dave Vorgang
Sent: Tuesday, September 16, 2008 5:14 PM
To: [log in to unmask]
Subject: [HP3000-L] DSI Scanner contrubuted library program

Hi all,

I am using the contributed library DSI Scanner program.  One of the things
you can do with it is mass modify files based on a find/replace command.
Like so:
DSI SCANNER SYSTEM   0.4

Enter Search String
>(modify)
Enter Modify Command
>c"$IF",""
Enter files to Modify
>

What I really want to do is remove lines if I match a search criteria.

If you know how to do this please let me know.

Thanks,

Dave Vorgang
Senior Programmer / Analyst
Medford School District - Information Technology
(541) 842-1021
mailto:[log in to unmask]<BLOCKED::mailto:[log in to unmask]
12.or.us>


* To join/leave the list, search archives, change list settings, *
* etc., please visit http://raven.utc.edu/archives/hp3000-l.html *

* To join/leave the list, search archives, change list settings, *
* etc., please visit http://raven.utc.edu/archives/hp3000-l.html *