Portal | Manuals | References | Downloads | Info | Programs | JCLs | Mainframe wiki | Quick Ref
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Profile Log in to check your private messages Log in
 
Neep help in replacing 1 line in all PDS member with 5 lines

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> IBM Tools
View previous topic :: :: View next topic  
Author Message
mambopras

New User


Joined: 11 Nov 2008
Posts: 52
Location: Hyderabad

PostPosted: Mon Sep 05, 2011 3:02 pm    Post subject: Neep help in replacing 1 line in all PDS member with 5 lines
Reply with quote

Hi,

I have a PDS containing many JCL members along with other type of members (sort cards etc). I have a requirement to replace a single line of all the JCL members with 5 lines: Example is as given below

// SET SMTX=XR is the line that needs to be repalced by

// SET SMTA = '01'
// SET SMTB = '02'
// SET SMTC = '03'
// SET SMTD = '04'
// SET SMTE = '05'

I have tried doing this using 'FIND/CHANGE' utility (online) in FM but I get an error quoting 'Too many parameters' - Even the batch version is not allowing this.

Can somebody help me in meeting this requirement ? Thanks for your help!!!
Back to top
View user's profile Send private message

Escapa

Senior Member


Joined: 16 Feb 2007
Posts: 1399
Location: IL, USA

PostPosted: Mon Sep 05, 2011 3:09 pm    Post subject:
Reply with quote

Search on ISREDIT macros

There are many examples on this forum
Back to top
View user's profile Send private message
enrico-sorichetti

Global Moderator


Joined: 14 Mar 2007
Posts: 10355
Location: italy

PostPosted: Mon Sep 05, 2011 3:09 pm    Post subject: Reply to: Neep help in replacing 1 line in all PDS member wi
Reply with quote

You will have to write an edit macro to do it..
there are quite a few samples around in the forums
Back to top
View user's profile Send private message
Marso

REXX Moderator


Joined: 13 Mar 2006
Posts: 1247
Location: Israel

PostPosted: Mon Sep 05, 2011 3:32 pm    Post subject:
Reply with quote

If you could use:
Code:
//  SET  SMTA=01,SMTB=02,SMTC=03,SMTD=04,SMTE=05
That would make it easier, no?

Oh, wait... You can!!!
Back to top
View user's profile Send private message
mambopras

New User


Joined: 11 Nov 2008
Posts: 52
Location: Hyderabad

PostPosted: Mon Sep 05, 2011 5:32 pm    Post subject:
Reply with quote

Enrico, Escapa

Thank you for the suggestion, I will search the forums more for the sampels

Marso,

The one I had given was just an example (as quoted) - the actual content is different. But the final thing to achieve is to replace one line by five lines!! However thank you for the suggestion, I would remember this while replacing any SET statements in future!!!
Back to top
View user's profile Send private message
dick scherrer

Site Director


Joined: 23 Nov 2006
Posts: 19270
Location: Inside the Matrix

PostPosted: Tue Sep 06, 2011 12:07 am    Post subject:
Reply with quote

Hello,

Quote:
the actual content is different.
What a waste of people's time. . . icon_sad.gif

There is no good reason to post something other than what is needed. If the "real" values should be protected - fine - subsittute something similar.
Back to top
View user's profile Send private message
Marso

REXX Moderator


Joined: 13 Mar 2006
Posts: 1247
Location: Israel

PostPosted: Tue Sep 06, 2011 1:05 pm    Post subject: Reply to: Neep help in replacing 1 line in all PDS member wi
Reply with quote

In that case, I will rephrase:

You still can use FIND/CHANGE without the need to add new lines if you use, FOR EXAMPLE
Code:
C 'SMTX=XR' 'SMTA=01,SMTB=02,SMTC=03,SMTD=04,SMTE=05'

If that string is too long to fit in the command line, you can use any trick you want like, FOR EXAMPLE
Code:
C 'SMTX=XR' 'SMTA=01,SMTB=02,SMTC=03,@@X'
C '@@X' 'SMTD=04,SMTE=05'

Of course, you can add parameters to the CHANGE command, FOR EXAMPLE:
Code:
ALL FIRST NEXT PREV WORD
and so on.
Back to top
View user's profile Send private message
Ed Goodman

Active Member


Joined: 08 Jun 2011
Posts: 556
Location: USA

PostPosted: Tue Sep 06, 2011 8:14 pm    Post subject:
Reply with quote

Does your shop have Jobscan installed? It's what runs if you enter "JEM" to check your JCL.

It has a really nice batch JCL editor built in that can do EXACTLY what you're looking for.
Back to top
View user's profile Send private message
Akatsukami

Global Moderator


Joined: 03 Oct 2009
Posts: 1782
Location: Bloomington, IL

PostPosted: Tue Sep 06, 2011 9:03 pm    Post subject:
Reply with quote

Ed Goodman wrote:
Does your shop have Jobscan installed? It's what runs if you enter "JEM" to check your JCL.

It has a really nice batch JCL editor built in that can do EXACTLY what you're looking for.

The same is true of JCLPREP. Beware, however; the control language for JPEDMCR (the JCLPREP batch editor) is a programming language in itself, and not to be mastered by asking a few questions in a forum such as this. I haven't been at a shop that used JOBSCAN in nearly a decade, and do not recall if the same is true of it or not.
Back to top
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> IBM Tools All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts line 52: Name or string > 250 char... Ashishpanpaliya CLIST & REXX 5 Sat Oct 14, 2017 2:29 am
No new posts How to write Rexx program to size and... sreejeshcs CLIST & REXX 14 Thu Oct 12, 2017 7:26 am
No new posts replacing junk with hyphen Nitin32 DFSORT/ICETOOL 10 Fri Jun 02, 2017 7:47 pm
No new posts member list compare jzhardy TSO/ISPF 6 Fri May 12, 2017 3:18 pm
No new posts Adding big TEXT lines to each record ... bshkris SYNCSORT 4 Sat May 06, 2017 1:40 am

Facebook
Back to Top
 
Job Vacancies | Forum Rules | Bookmarks | Subscriptions | FAQ | Polls | Contact Us