MVSFORUMS.com

prasanth_thavva · Beginner Joined: 14 May 2006 Posts: 40 Topics: 18

HI,

Could you please provide me the rexx code which will do comment certain rows in JCL from step starts with //trash and upto //uuc00xx in all members.
_________________
Thanks&Regards
Prasanth Thavva

Nic Clouston · Posted: Thu Dec 06, 2007 5:28 pm Post subject:

no - possibly could give you some hints though
_________________
Utility and Program control cards are NOT, repeat NOT, JCL.

semigeezer · Posted: Thu Dec 06, 2007 7:11 pm Post subject:

no one is going to write the code you are presumably being paid to write, but the idea here is to use a macro with a sequence like this in each member...

Find first //trash 1
set a label .a
find //uuc00xx 1
set a different label .b
then either loop through the lines between the labels getting and updating each line or do a C ALL // 1 .a .b.
end out of the member

If there is any inline data or lines that are already comments, it is a little more complicated.
Once you have that macro, use one of the many macros floating around to invoke a macro on all members within a data set. There is one in the ISPF Edit and Edit Macros book.
_________________
New members are encouraged to read the How To Ask Questions The Smart Way FAQ at http://www.catb.org/~esr/faqs/smart-questions.html.

prasanth_thavva · Beginner Joined: 14 May 2006 Posts: 40 Topics: 18

Thanks Semi,
_________________
Thanks&Regards
Prasanth Thavva