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
 

 

To replace a word wtih multiple COND in all the Mbrs of PDS?

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> Compuware & Other Tools
View previous topic :: :: View next topic  
Author Message
Sabry Krishnan L

New User


Joined: 30 Dec 2006
Posts: 11
Location: Chennai-India

PostPosted: Thu Jan 11, 2007 11:01 am    Post subject: To replace a word wtih multiple COND in all the Mbrs of PDS?
Reply with quote

I have a request as to modify a job card value in 1000 jcls under a PDS. Different value needs to replaced instead of a word for different conditions. For Example,

//Jobname JOB (XXX,YYYY-YYY,ZZZZ,AAAA)

For this job card ZZZZ should be replaced with RRRR if the last value is AAAA. it should be replaced with SSSS if the last value is BBBB.
Can i uses the below function?

// DD01 COPYMEM IF=(34.EQ,C'AAAA'),REPL=(29,C'RRRR'),
IF=(34.EQ,C'BBBB'),REPL=(29,C'SSSS')

Will this statement work?

can there be more appropriate solution other than this for this requirement?
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: Sat Jan 13, 2007 8:02 am    Post subject:
Reply with quote

Hello,

First i suggest making a copy of the entire pds - just in case.

Then you could globally change ',ZZZZ,AAAA)' to ',RRRR,AAAA)'.

Next globally change ',ZZZZ,BBBB)' to 'SSSS,BBBB)'.

If you aren't familiar with making a global change, talk with your system support people and they can tell what options you have at your site.

Check a few members to ensure you have what you want.

I'm not familiar with the jcl/code you posted, but it does not look like jcl that would run in a vanilla mvs environment. If your site has an add-on that would intercept this, maybe. . . .
Back to top
View user's profile Send private message
priyesh.agrawal

Senior Member


Joined: 28 Mar 2005
Posts: 1452
Location: Chicago, IL

PostPosted: Sat Jan 13, 2007 11:36 pm    Post subject: Re: To replace a word wtih multiple COND in all the Mbrs of
Reply with quote

dick scherrer wrote:
Then you could globally change ',ZZZZ,AAAA)' to ',RRRR,AAAA)'.

Next globally change ',ZZZZ,BBBB)' to 'SSSS,BBBB)'.

Sabry Krishnan L... If you have any question on how to implement this... You may want to look here....
Back to top
View user's profile Send private message
Sabry Krishnan L

New User


Joined: 30 Dec 2006
Posts: 11
Location: Chennai-India

PostPosted: Sat Jan 20, 2007 1:29 pm    Post subject: Re: To replace a word wtih multiple COND in all the Mbrs of
Reply with quote

I got the solution using FILEAID batch.... As follows...

$$DD01 UPDATEALL IF=(1,80,EQ,C'AAAA'),
REPLACE=(1,80,EQ,C'ZZZZ',C'RRRR'),
IF=(1,80,EQ,C'BBBB'),
REPLACE=(1,80,EQ,C'ZZZZ',C'SSSS'),

This is the control card to be used in the fileaid batch job. And multiple IF conditions can be added.
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: Sun Jan 21, 2007 5:19 am    Post subject:
Reply with quote

Hello Sabry,

Thank you for posting your solution.
Back to top
View user's profile Send private message
William Thompson

Global Moderator


Joined: 18 Nov 2006
Posts: 3158
Location: Tucson AZ

PostPosted: Sun Jan 21, 2007 5:42 am    Post subject:
Reply with quote

Very diplomatic, Dick..... icon_wink.gif
Back to top
View user's profile Send private message
sowjanya_mainframe

New User


Joined: 09 Dec 2006
Posts: 4
Location: pune

PostPosted: Tue Jan 23, 2007 12:15 pm    Post subject: CHANGEMAN CHAECKOUT PROCESS
Reply with quote

I need to checkout component from PDS to changeman package.how i can gohead.i tried with option 6(stage)->option 1(dev)->next i entered pds name ,lib name.it is coming open error.

can u pls give quick solution.
Back to top
View user's profile Send private message
Sabry Krishnan L

New User


Joined: 30 Dec 2006
Posts: 11
Location: Chennai-India

PostPosted: Tue Jan 23, 2007 3:37 pm    Post subject:
Reply with quote

Sowjanya! I think you can start a new discussion about the same query under changeman!
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 -> Compuware & Other Tools All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts Replace repeated JCL with looping REXX prino CLIST & REXX 3 Thu Oct 13, 2016 5:30 am
This topic is locked: you cannot edit posts or make replies. Sort card to replace text using cross... Susanta SYNCSORT 32 Tue Sep 13, 2016 4:17 pm
No new posts Replace function abdulrafi COBOL Programming 13 Mon Sep 12, 2016 10:12 am
No new posts how to DYNAMICALLY write sort cond to... mohamedmubee COBOL Programming 13 Fri Aug 26, 2016 11:46 pm
No new posts Converting multiple VB files to FB fi... Viswanath Reddy JCL & VSAM 6 Mon Aug 08, 2016 11:49 pm


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