Help needed to search and insert a string using REXX

janaonline · Posted: Tue Jul 08, 2008 7:10 pm

I need REXX code which does the following:

1. Search a string in all the members
2. If the string is found in any of the member then need to insert a string before the searched string.

dbzTHEdinosauer · Posted: Tue Jul 08, 2008 7:21 pm

help yourself.

use the search. I know that there are several examples of search all members.

the insert:

after a find hit:

(workline) = linenum .zcsr

insert <yourstuff> before workline

janaonline · Posted: Tue Jul 08, 2008 7:25 pm

Thanks for your immediate reply.

IF VAR3 = 'BEFORE' THEN
DO
I = 1
DO K = 1 TO CONTENTS.0
IF POS( VAR1 , CONTENTS.K) > 0 THEN DO
FOUND = 'Y'
OUTPUT.I = VAR2
I = I + 1
END
OUTPUT.I = CONTENTS.K
I = I + 1
END
END

the above code will insert the string as a separate line, but i need it to insert just before the searched string. Could you please help in this??

Thanks!!!

dbzTHEdinosauer · Posted: Tue Jul 08, 2008 7:54 pm

you can do this two ways.

1. use execio to read and write the records for the member. this way you would use stems (as your example). I have no suggestion for this, I would not do it this way.

2. use edit macro commands and have your rexx invoke each member via EDIT, then do your FIND, determine line no of hit, insert before lineno. restart you search at lineno + 1 (you insert a line before line 10, line 10 becomes line 11. if you don't start at line 12, you will be in a loop, finding things on the old line 10 -now 11- and inserting again.)

superk · Posted: Tue Jul 08, 2008 8:24 pm

If you want to stick with using EXECIO instead of an edit macro (which DOES look to be the better option here), you might go with this:

var1 is the search string
var2 is the insertion string

enrico-sorichetti · Posted: Tue Jul 08, 2008 8:46 pm

here is a thread with a bit of string manipulation...
http://ibmmainframes.com/viewtopic.php?t=31958&highlight=substr

dbzTHEdinosauer · Posted: Tue Jul 08, 2008 8:47 pm

Kevin,

I have failed to say this before, but, you give good advice and your code is clean.

superk · Posted: Tue Jul 08, 2008 8:55 pm

Thanks for the kind words. Maybe I should let my boss read this?

enrico-sorichetti · Posted: Tue Jul 08, 2008 8:57 pm

janaonline · Posted: Tue Jul 15, 2008 6:52 pm

Thanks a lot for all your suggestion. That was really helpful..