t;
end
"SEEK P'=' 1 .ZCSR .ZCSR FIRST"
"SEEK " SSTRING " PREV"
end
exit
-Original Message-
From: IBM Mainframe Discussion List On Behalf Of
Schmitt, Michael
Sent: Monday, April 14, 2025 2:39 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: R
string||"' PREV"
"(Fcnt) = FIND_COUNTS"
End
exit
-Original Message-----
From: IBM Mainframe Discussion List On Behalf Of
Steely.Mark
Sent: Monday, Apri
t;
do while rc = 0
do 3
"LINE_BEFORE .ZCSR = (istring)"
end
"SEEK P'=' 1 .ZCSR .ZCSR FIRST"
"SEEK '&SSTRING' PREV"
end
exit
-Original Message-
From: IBM Mainframe Discussion List On Behalf Of
Seymour J Metz
Sent
lf of Grantham, Chip
Sent: Monday, April 14, 2025 2:43 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: ISREDIT Macro odd request
External Message: Use Caution
You can try this. No guarantee:
/* REXX */
address isredit
'macro (sstring)'
'(mylrecl) = LRECL'
ist
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
