Need help on a rexx code

Niki · Posted: Wed Jan 05, 2011 3:33 pm

I do have some requirement in REXX. Could u please help me on that. The requirement is two insert few lines in all the members present in the PDS. The requirement is as below,

1) I have a PDS which contains 100 members.
2) I need to pass the PDS name through the rexx program and it shall do the below things,
a) It ll get each member (Contains a JCL) one by one.
b) Then it ll search in the JCL for a string (for e.g - EXEC PROC1) and then it need to insert two lines below that.

The sample code looks of the jcl looks like below,

//step01 EXEC PROC1,
// JOB01=XXXXXX,
// MEM01=YYYYYY,

So after the tools run the JCL should look like below,

//step01 EXEC PROC1,
// STEP01=PPPPPP,
// STEP2=MMMMM,
// JOB01=XXXXXX
// MEM01=YYYYYY

c) We can have a multiple PROC1 step or some other step calling some different proc also in the single JCL.

Can anyone please share across any sample code.

Thanks in advance.

gcicchet · Posted: Wed Jan 05, 2011 4:07 pm

Hi Niki,

if you are inserting 2 lines after each PROC1, how did the commas disappear for

Niki · Posted: Wed Jan 05, 2011 4:34 pm

Hi Gerry,

Sorry for the confusion.

The output should contain the commas and the below lines as per the JCL.

We are not going to change any other detail in the JCL's apart from adding the two lines after each search of the string.

Jeffrey Ranney · New User Joined: 23 Dec 2010 Posts: 20 Location: USA

Niki -

I understand this is a HELP forum, not a write-my-code-for-me forum. What is your question regarding REXX ?

expat · Posted: Wed Jan 05, 2011 6:19 pm

Seek and ye shall find

Click here for some clues

Niki · Posted: Wed Jan 05, 2011 8:46 pm

Hi ,

@Expat
Thanks for the reply.

I wrote the macro to insert the two lines after the string is getting searched. And the code looks like below,

Pedro · Posted: Wed Jan 05, 2011 9:01 pm

check the return code from the FIND command and only do the inserts if the the text was found. And the do find again until not found condition.

Jeffrey Ranney · New User Joined: 23 Dec 2010 Posts: 20 Location: USA

/* REXX */
"isredit macro"
linei = "// step01=pppppp,"
linep = "// step2=mmmmm,"
"isredit f '"exec proc1"'"
find_rc = rc
do while find_rc = 0
"isredit (line1) = line .zcsr"
"isredit line_after .zcsr = (linei)"
"isredit line_after .zcsr = (linep)"
"isredit save"
"isredit end"
"isredit f '"exec proc1"'"
find_rc = rc
end

Pedro · Posted: Thu Jan 06, 2011 2:34 am

Jeffrey, I think your "isredit end" is out of place. Likely, also the "isredit save". Because you end the editor session, subsequent edit macro instructions will fail.

Jeffrey Ranney · New User Joined: 23 Dec 2010 Posts: 20 Location: USA

Pardon my original QUICK reply !! This code will work.. Thanks Pedro !!

/* REXX */
"isredit macro"

linei = "// step01=pppppp,"
linep = "// step2=mmmmm,"

"isredit f '"exec proc1"'"
find_rc = rc

do while find_rc = 0
"isredit (line1) = line .zcsr"
"isredit line_after .zcsr = (linei)"
"isredit line_after .zcsr = (linep)"
"isredit f '"exec proc1"'"
find_rc = rc
end

"isredit save"
"isredit end"

Pedro · Posted: Thu Jan 06, 2011 7:05 am

Niki, about: