Same tools here !
My first (ugly ^^) idea would be :
- insert a given character (say "L") at the beginning of the located
lines, and another given character (say " ") at the beginning of the
other lines :
| i: if locate ...
| insert /L/ before
| i:
| insert / / before
| i:
- then use spec to do the rest :
| spec a: 1.1 . /* "name" the first character */
if (a == 'L') then /* for located lines */
2-* n write /* write the located line */
read 2-* n /* read and write the following line */
endif
| locate /* throw away empty lines produced by spec */
But there's surely a nice way to do that...
Michaël
-----Message d'origine-----
De : Kris Buelens <[email protected]>
Envoyé : 12/07/2010 16:27
À : [email protected]
<[email protected]>
Cc :
Objet : Re: Next record
I'd love to...
But as nowadays I work for many customers, with different rules/habits, I
stick to "indoor plumbing" almost always. Not that I want you to stop
making improvements. Maybe some day I will have again a z/VM system I use
often and that I can call my own... unless Endicott...
2010/7/12 John P. Hartmann<[email protected]>
pick from ... count 2
Y'all really ought to read up on the revised pick.
j.
On 12 July 2010 15:16, Mark Pace<[email protected]> wrote:
I'm going through some output and selecting what I need by a series of
locates. But one item I need to display is not something I can use a
locate
for, but I do know it is the very next record following something I can
locate. How do I locate a line, use it, and then also use the very next
line?
--
Mark Pace
Mainline Information Systems
1700 Summit Lake Drive
Tallahassee, FL. 32317
--
Kris Buelens,
IBM Belgium, VM customer support
