That will cost extra.
rest.0 = 0
line = 0
do until pending.0 = 0
'EXTRACT /PENDING R :'line+1'/'
if pending.0 ¬= 0 then do
i = rest.0 + 1
rest.i = translate(strip(pending.1 pending.2))
rest.0 = i
end
line = pending.1
end
That gives a list of line numbers and prefix areas for the changed lines.
Regards,
Richard Schuh
________________________________
From: The IBM z/VM Operating System [mailto:[email protected]] On
Behalf Of Nick Laflamme
Sent: Thursday, March 19, 2009 11:10 AM
To: [email protected]
Subject: Re: XEDIT Macro
On 3/19/2009 12:54 PM, Schuh, Richard wrote:
Problem solved. Thanks to all who replied.
You think you're going to get off that easy? A few of us are curious
about what worked or what had to change for anything to work. After all, you
were rather detailed about what didn't work, we can't help but be curious.
