Need macro command to find a line having given string.

Rambhupalchowdary · New User Joined: 19 Aug 2010 Posts: 47 Location: Hyderabad

Hi,

I need some help in doing below thing.

I want to find a line having given string. then i want to replace that particular line with the given data.

suppose.. :-

expat · Posted: Wed Apr 20, 2011 6:40 pm

Many examples on the forum.

Search for rcx rcy with author expat and you will find

Pedro · Posted: Wed Apr 20, 2011 6:45 pm

Use the FIND, CHANGE, and LINE_AFTER macro instructions.

Rambhupalchowdary · New User Joined: 19 Aug 2010 Posts: 47 Location: Hyderabad

Hi,

I have looked into many examples, however am able to find how to replace strings.

Here i need to replace an entire line and insert 2 new lines as mentioned in my above code.

i am able to insert new lines at first line using below code.
ISREDIT LINE_BEFORE .ZFIRST = (LINE2),
but i need to insert 2 new lines where this string found, and delete the line having this string.

Please let me know your thoughts

daveporcelan · Posted: Wed Apr 20, 2011 7:25 pm

You actually are changing one line and inserting one new line.

Use the commands Pedro suggested.

You are almost there.

prino · Posted: Wed Apr 20, 2011 8:30 pm

Rambhupalchowdary · New User Joined: 19 Aug 2010 Posts: 47 Location: Hyderabad

Hi Daveporcelan,

I have tried those line commands.

I am able to insert the lines at first or second line in my jcl. But i am unable to insert the line at line number, having the given string.

EG:- for your ref. please find the sample output which i am expecting in my previous post.

Thanks,
Ram.

daveporcelan · Posted: Wed Apr 20, 2011 9:54 pm

Why not post your entire macro?

That would provide the best possible information to work with.

Peter Nancollis · New User Joined: 15 Mar 2011 Posts: 47 Location: UK

"Use the FIND, CHANGE, and LINE_AFTER macro instructions. " ...and they dont work [ and I must say they would have been the first things I would try ] ... why/how not?.......or do you just want the macro coding?

Rambhupalchowdary · New User Joined: 19 Aug 2010 Posts: 47 Location: Hyderabad

Hi Daveporcelan,

Could you please find the below code for my requirement.

<Code>
ADDRESS ISREDIT
"ISREDIT MACRO (MEM) NOPROCESS"
ISREDIT CHANGE 'Prod.lib' 'Test.lib' ALL
<\Code>

With the above code am able to acheive as below mentioned output

I/p :-

//Temp Job
//
//JOBLIB DD DSN=Prod.lib,DISP=SHR

O/p:-

//Temp Job
//
//JOBLIB DD DSN=test.lib,DISP=SHR

I want to get the output like below .
O/p:-

//Temp Job
//
//JOBLIB DD DSN=test.lib,DISP=SHR
// DD DSN=prod.lib,DISP=SHR

How to acheive this, i tried to insert new line at starting.but how to insert that new line immediately after the joblib.

Thanks,
Ram.

prino · Posted: Thu Apr 21, 2011 11:58 am

Maybe you could finally RTFM?

dbzTHEdinosauer · Posted: Thu Apr 21, 2011 12:18 pm

Rambhupalchowdary,

the char used in BBcode is [ and not <.

globally changing prod.lib to test.lib precludes your finding the point at which to insert the extra dd statement.

if you would loop

Rambhupalchowdary · New User Joined: 19 Aug 2010 Posts: 47 Location: Hyderabad

Hi Prino,

What is RTFM? I searched for this term i could not able to find.

Please let me know.

prino · Posted: Thu Apr 21, 2011 12:33 pm

Bill Woodger · Posted: Thu Apr 21, 2011 12:35 pm

I thought can't be true, and lo, first result from google, wikipedia. If you are looking for help, don't jerk people around.

expat · Posted: Thu Apr 21, 2011 12:53 pm

RTFM = Read The Fine (or orther words starting with F) Manual

Did you read the topic I suggested you read, even gave you a link to it. It does exactly what it says it does on the tin. It inserts a line / member after a given point within the data.

Now either go read that thread or something similar or RTFM

Rambhupalchowdary · New User Joined: 19 Aug 2010 Posts: 47 Location: Hyderabad

Thanks DbzTHEdinosauer,

I tried few of the commands mentioned in your above code. EG:-ZCSR

Now i got the output what i was expecting.

ISREDIT CHANGE 'DSN=S00P.BT.PGMLIB,' 'DSN=BDLE.BT.PGMLIB,'
IF RC=0 THEN
DO
LINE1 = "// DD DSN=S00P.BT.PGMLIB,DISP=SHR"
"ISREDIT LINE_AFTER .ZCSR = (LINE1)"
END

Thanks all for your inputs..

dbzTHEdinosauer · Posted: Thu Apr 21, 2011 1:21 pm

Rambhupalchowdary,

I am happy to see you were able to implement my suggestion and solve your problem.

BUT
I noticed that you do not check the return-code from the service call.

to write professional code/scripts, one should always insure that a call to a service,
whether it be an ISPF/SQL/File I-O/Language Environment,
be followed by a check of the return-code of that service.
Without doing so, you have no idea if the requested function/service performed as expected/wanted.

The difference between writing good code and BSing with the boys,
is being exact.

most good professionals that I know,
have private libraries of JCL/code/Scripts that they carry with them
(zipped and transferred via email)
from site to site,
which contain professionally written examples that can be easily and quickly copied and pasted.

with the innovation of CUT&PASTE (mainframe clipboard) professionally coding in ISPF has become very easy.

Peter Nancollis · New User Joined: 15 Mar 2011 Posts: 47 Location: UK

dbzTHEdinosauer · Posted: Fri Apr 22, 2011 2:57 am

prino · Posted: Fri Apr 22, 2011 3:17 am