I haven't tried it, but it looks good. It could be tightened up, but probably not worth it.
-- Shmuel (Seymour J.) Metz http://mason.gmu.edu/~smetz3 עַם יִשְׂרָאֵל חַי נֵ֣צַח יִשְׂרָאֵ֔ל לֹ֥א יְשַׁקֵּ֖ר ________________________________________ From: IBM Mainframe Discussion List on behalf of Grantham, Chip Sent: Monday, April 14, 2025 2:43 PM To: [email protected] Subject: Re: ISREDIT Macro odd request External Message: Use Caution You can try this. No guarantee: /* REXX */ address isredit 'macro (sstring)' '(mylrecl) = LRECL' istring = copies('=',mylrecl) "find '"||sstring||"' last" "(Fcnt) = FIND_COUNTS" Do while fcnt > 0 "(fpos) = CURSOR" do i = 1 to 3; "LINE_BEFORE" fpos "= (istring)" end fpos = fpos - 1 if fpos < 1 Then leave "CURSOR = " fpos "find '"||sstring||"' PREV" "(Fcnt) = FIND_COUNTS" End exit -----Original Message----- From: IBM Mainframe Discussion List <[email protected]> On Behalf Of Steely.Mark Sent: Monday, April 14, 2025 12:54 PM To: [email protected] Subject: ISREDIT Macro odd request I'm looking for an ISREDIT macro that will search for a specific string within a member. Whenever the string is found, the macro should insert three lines containing only a series of =============== immediately before the matched line. The macro should continue searching through the entire member, repeating this action for every occurrence of the string. If anyone has a similar EDIT macro that they could share or modify to meet this need, I'd greatly appreciate it. Thank You ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [email protected] with the message: INFO IBM-MAIN ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [email protected] with the message: INFO IBM-MAIN ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [email protected] with the message: INFO IBM-MAIN
