From:	CRDGW2::CRDGW2::MRGATE::"SMTP::CRVAX.SRI.COM::RELAY-INFO-VAX" 11-APR-1991 19:07:21.93
To:	ARISIA::EVERHART
CC:	
Subj:	Re: Stream editing with VMS

From:	RELAY-INFO-VAX@CRVAX.SRI.COM@SMTP@CRDGW2
To:	Everhart@Arisia@MRGATE

Received:  by crdgw1.ge.com (5.57/GE 1.97)
	 id AA04756; Thu, 11 Apr 91 18:40:12 EDT
Received: From DANPOST.UNI-C.DK by CRVAX.SRI.COM with TCP; Thu, 11 APR 91 14:35:48 PDT
Received: from vms2.uni-c.dk by danpost.uni-c.dk (5.65/1.34)
	id AA11369; Thu, 11 Apr 91 21:31:58 GMT
Date: Thu, 11 Apr 91 23:37 +0200
From: ISIS08@ecostat.aau.dk
Subject: Re: Stream editing with VMS
To: marten@ILT.FHG.DE, INFO-VAX@SRI.COM
Message-Id: <90214F9B237F00165C@vms2.uni-c.dk>
X-Envelope-To: marten@ILT.FHG.DE, INFO-VAX@SRI.COM
X-Vms-To: UNIL63::IN%"marten@ILT.FHG.DE"
X-Vms-Cc: IN::"INFO-VAX@SRI.COM"

>I want to edit a file in a batch stream, e.g. search a string and
>delete this line and the previous two. VMS SUMSLP seems only to
>allow absolute positoning and no search. Any idea to solve this
>task ? ThanX -L.

What about something like the following COM-file calling the TPU-editor:

$edit/tpu/nodisplay/command=sys$input 'p1'
procedure eve_doit
    local
        pos;
    loop
        pos:=search_quietly("SOMETHING",FORWARD);
        exitif pos=0;
        position(pos);
        move_vertical(-2);
        erase_line;
        erase_line;
        erase_line;
    endloop;
endprocedure;
eve_doit;
exit;
$exit

                                                         Arne

Arne Vajhxj                             Internet: ISIS08@ECOSTAT.AAU.DK
Institute of Economics and Statistics   PSI:      DATAPAX.23830211371400::ISIS08
Aarhus University
Denmark


