MVSFORUMS.com

[Pknair]

Need some help with an EDIT MACRO

The requirement is that I need to write multiple lines before the "BOTTOM OF DATA" line using an EDIT MACRO. I got it working with the LINE_AFTER command but I lost the sequencing. I understnd I can reverse the order of the sequence and do the LINE_AFTER but in this case the 7 lines have to be read in order as the lines below the first contain a variable which comes from the lines above.

The 3 lines in the dataset are given below

[semigeezer]

The only solution I know is to add a temp line after .zl and then remove it.
_________________
New members are encouraged to read the How To Ask Questions The Smart Way FAQ at http://www.catb.org/~esr/faqs/smart-questions.html.

[dbzTHEdinosauer]

semigeezer that and 'LABELing' it, so you can find it again.
_________________
Dick Brenholtz
American living in Varel, Germany

[semigeezer]

The label of the temp line will automatically be set to .zl (.ZLAST) so it can be deleted with a del all .zl .zl nx command or similar
_________________
New members are encouraged to read the How To Ask Questions The Smart Way FAQ at http://www.catb.org/~esr/faqs/smart-questions.html.

[expat]

Are the inserted mines always the same, or do they vary ? If they are always the same, then set them up as a member in the library that you are editing and try something like ...... but you will need to change the target location.

"ISREDIT COPY member BEFORE 1"

Another thought - if you know the value of the last line, can you increment / decrement this target value as you add each new line to put the output in the right place.

[moyeenkhan]

Read the first three lines
Build the next 4 lines
Do I=1 by 1 Until I=4
xData.I=Yoour Data
End
Insert the 4 lines in the reverse order
Do I=4 By 1 Until I=1
xData=xdata.I
Address ISREDIT 'Line_after (.zLast) = (xData)'
End

[moyeenkhan]

Oops
the last lines should read
Address ISREDIT 'Line_before (.zLast) = (xData)'
End/Exit