IBM Mainframe Forum Index
 
Log In
 
IBM Mainframe Forum Index Mainframe: Search IBM Mainframe Forum: FAQ Register
 

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


IBM Mainframe Forums -> Compuware & Other Tools
Post new topic   Reply to topic
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
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

Moderator Emeritus


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

PostPosted: Sat Jan 13, 2007 8:02 am
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: 1448
Location: Chicago, IL

PostPosted: Sat Jan 13, 2007 11:36 pm
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
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

Moderator Emeritus


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

PostPosted: Sun Jan 21, 2007 5:19 am
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: 3156
Location: Tucson AZ

PostPosted: Sun Jan 21, 2007 5:42 am
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
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
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 View Bookmarks
All times are GMT + 6 Hours
Forum Index -> Compuware & Other Tools

 


Similar Topics
Topic Forum Replies
No new posts PARSE Syntax for not fix length word ... JCL & VSAM 7
No new posts INCLUDE OMIT COND for Multiple values... DFSORT/ICETOOL 5
No new posts Search two or more word with FILEAID Compuware & Other Tools 15
No new posts Replace Multiple Field values to Othe... DFSORT/ICETOOL 12
No new posts Multiple table unload using INZUTILB DB2 2
Search our Forums:

Back to Top