Portal | Manuals | References | Downloads | Info | Programs | JCLs | Master the Mainframes
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Usergroups 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: 10203
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: 1219
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: 1219
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: 1738
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 syncsort: copy lines after the keyword shreya19 SYNCSORT 7 Fri Dec 02, 2016 9:47 am
No new posts What is the command to check MODE of ... rohanthengal CLIST & REXX 6 Fri Nov 18, 2016 1:48 pm
No new posts Insert Lines in JCL with Rexx after a... Willy Jensen CLIST & REXX 3 Tue Aug 30, 2016 4:18 pm
No new posts File Stauts 92 with member of PDS sandip_mainframe COBOL Programming 4 Fri Jun 10, 2016 12:06 pm
No new posts Replacing Start Transid with LINK pkmurali CICS 12 Tue Apr 19, 2016 8:22 pm


Facebook
Back to Top
 
Mainframe Wiki | Forum Rules | Bookmarks | Subscriptions | FAQ | Tutorials | Contact Us