Thanks. I copied that into my library. It'll save me some effort. John McKown
Systems Engineer IV IT Administrative Services Group HealthMarkets(r) 9151 Boulevard 26 * N. Richland Hills * TX 76010 (817) 255-3225 phone * [email protected] * www.HealthMarkets.com Confidentiality Notice: This e-mail message may contain confidential or proprietary information. If you are not the intended recipient, please contact the sender by reply e-mail and destroy all copies of the original message. HealthMarkets(r) is the brand name for products underwritten and issued by the insurance subsidiaries of HealthMarkets, Inc. -The Chesapeake Life Insurance Company(r), Mid-West National Life Insurance Company of TennesseeSM and The MEGA Life and Health Insurance Company.SM > -----Original Message----- > From: IBM Mainframe Discussion List > [mailto:[email protected]] On Behalf Of Bruce Hewson > Sent: Thursday, January 06, 2011 11:23 PM > To: [email protected] > Subject: Re: REXX, the new Cobol ? > > 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 > > ---------------------------------------------------------------------- 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
