MVSFORUMS.com Forum Index MVSFORUMS.com
A Community of and for MVS Professionals
 
 FAQFAQ   SearchSearch   Quick Manuals   RegisterRegister 
 ProfileProfile   Log in to check your private messagesLog in to check your private messages   Log inLog in 

How to Replace data using parm member

 
Post new topic   Reply to topic   printer-friendly view    MVSFORUMS.com Forum Index -> Job Control Language(JCL)
View previous topic :: View next topic  
Author Message
sateesh_gontla
Beginner


Joined: 23 Jan 2004
Posts: 40
Topics: 16
Location: Bangalore

PostPosted: Mon Aug 01, 2005 2:43 pm    Post subject: How to Replace data using parm member Reply with quote

Hi

We need to replace the following data using the parm member :

Change is : @abc.com TO @xyz.com

abcd1@abc.com
abcd12345@abc.com
abcd12@abc.com
abcd1234@abc.com
abcd123@abc.com
dkgdfkhgd@abc.com
ksefhkshfsdhifhi@abc.com

TO

abcd1@xyz.com
abcd12345@xyz.com
abcd12@xyz.com
abcd1234@xyz.com
abcd123@xyz.com
dkgdfkhgd@xyz.com
ksefhkshfsdhifhi@xyz.com


We need to code this in a parm member.
Please advise !!!!

Thanks in advance ......
Back to top
View user's profile Send private message Send e-mail Yahoo Messenger
semigeezer
Supermod


Joined: 03 Jan 2003
Posts: 1014
Topics: 13
Location: Atlantis

PostPosted: Mon Aug 01, 2005 5:04 pm    Post subject: Reply with quote

The parm parameter to what???

JCL is not a language. It does not do any data maipulation. It only invokes programs.

Do you have a specific program in mind? Are you going to write your own? If you need help with a specific program, then this is not a JCL question, but if you need to know how the PARM field gets passed to your program, then it is pointed to by register 1 with 2 bytes of length information. It is a little more complicated than that, but it is in the Assembler Services Guide
Back to top
View user's profile Send private message Visit poster's website
kolusu
Site Admin
Site Admin


Joined: 26 Nov 2002
Posts: 12378
Topics: 75
Location: San Jose

PostPosted: Mon Aug 01, 2005 5:11 pm    Post subject: Reply with quote

sateesh_gontla,

As Semigeezer mentioned JCL by itself cannot do any thing. It is your PGMS or Utilities that perform the functions.

If your shop has file-aid then the following JCL will give you the desired results.

Code:

//STEP0100 EXEC PGM=FILEAID
//SYSPRINT DD SYSOUT=*                                   
//DD01     DD *                                           
ABCD1@ABC.COM                                             
ABCD12345@ABC.COM                                         
ABCD12@ABC.COM                                           
ABCD1234@ABC.COM                                         
ABCD123@ABC.COM                                           
DKGDFKHGD@ABC.COM                                         
KSEFHKSHFSDHIFHI@ABC.COM                                 
//DD01O    DD SYSOUT=*                                   
//SYSIN    DD *                                           
$$DD01 COPY REPLALL=(01,00,C'@ABC.COM',C'@XYZ.COM'),OUT=0
/*                                                       


Hope this helps...

Cheers

Kolusu
_________________
Kolusu
www.linkedin.com/in/kolusu
Back to top
View user's profile Send private message Send e-mail Visit poster's website
sateesh_gontla
Beginner


Joined: 23 Jan 2004
Posts: 40
Topics: 16
Location: Bangalore

PostPosted: Fri Aug 05, 2005 10:35 am    Post subject: Reply with quote

Hi Kolusu,

The position is not constant, if it constant i don't have any problems. But this can be there any where in the row .

Please advise....

Thanks.
Back to top
View user's profile Send private message Send e-mail Yahoo Messenger
kolusu
Site Admin
Site Admin


Joined: 26 Nov 2002
Posts: 12378
Topics: 75
Location: San Jose

PostPosted: Fri Aug 05, 2005 10:42 am    Post subject: Reply with quote

Quote:

Hi Kolusu,

The position is not constant, if it constant i don't have any problems. But this can be there any where in the row .

Please advise


sateesh_gontla,

I bet you did not run the jcl posted by me ! . The above jcl posted works for any position of the search string. The control cards will scan each from 1 position till the end of the record and if the string is found any where it will be replaced. That is the advantage of specifying zero (0) as length.

Kolusu
_________________
Kolusu
www.linkedin.com/in/kolusu
Back to top
View user's profile Send private message Send e-mail Visit poster's website
sateesh_gontla
Beginner


Joined: 23 Jan 2004
Posts: 40
Topics: 16
Location: Bangalore

PostPosted: Fri Aug 05, 2005 2:47 pm    Post subject: Reply with quote

Thanks much !!! ........
Back to top
View user's profile Send private message Send e-mail Yahoo Messenger
Display posts from previous:   
Post new topic   Reply to topic   printer-friendly view    MVSFORUMS.com Forum Index -> Job Control Language(JCL) All times are GMT - 5 Hours
Page 1 of 1

 
Jump to:  
You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot vote in polls in this forum


MVSFORUMS
Powered by phpBB © 2001, 2005 phpBB Group