Hi John,
try this, which I call "cr":-
/*REXX=====================================================
==========*/
Address ISREDIT
"MACRO (PARM)"
"(SAVE) = USER_STATE"
"(SAVELINE,SAVECOL) = CURSOR"
"(LPTR,CPTR) = CURSOR"
"FIND FIRST" parm
find_rc = rc
Do While (find_rc = 0)
"(LPTR,CPTR) = CURSOR"
"(CURLINE) = LINE" lptr
crptr = Pos(parm,curline)
line1 = Left(curline,crptr-1)
line2 = Substr(curline,crptr+1)
"LINE" lptr "= (LINE1)"
"LINE_AFTER" lptr "= (LINE2)"
"RFIND"
find_rc = rc
End
"USER_STATE = (SAVE)"
Return 0
/*=========================================================
==========*/
It will split any line at the specified parameter value.
hmm....old code this is:-
Name Prompt Size Created
CR *Edited 90 1997/08/13
On Thu, 6 Jan 2011 07:50:12 -0600, McKown, John
<[email protected]> wrote:
<snip>
>One thing that I do with z UNIX and edit is a bit weird. I sometimes what to
split every line in a member at a given character, or maybe column. I edit the
member in ISPF. I do something like: C ')' '`)' ALL; C '`' X'15' ALL . Or make
sure that the split column has a blank in it and convert that to x'15'. x'15'
is
an EBCDIC NEL, which is the z UNIX end of line character. I then copy all the
lines with the CC line command and do a CREATE to a UNIX file. I CANCEL out
of the edit and re-edit the member (to not bother with an unnecessary SAVE).
I then delete all the lines in the member and COPY the z UNIX file that I
previously CREATEd. The lines are now "magically" split where I put in the
x'15'
bytes. Much easier than doing a lot of :TS commands in EDIT.
>
<snip>--
>John McKown
>Systems Engineer IV
>IT
>
Regards
Bruce Hewson
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [email protected] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html
