MVSFORUMS.com

naveen · Beginner Joined: 03 Dec 2002 Posts: 90 Topics: 31

I've a sequential 80 recl FB file which contains one record as:

savitri · Beginner Joined: 27 Jan 2003 Posts: 1 Topics: 0

Naveen,

This can be achieved by SORT utility.
Use the following sort card

Frank Yaeger · Posted: Sat May 17, 2003 10:57 am Post subject:

Actually, you should use the following so that the output file will have LRECL=80 like the input file:

naveen · Beginner Joined: 03 Dec 2002 Posts: 90 Topics: 31

Frank,
Your solution will work fine ,when :

kolusu · Posted: Mon May 19, 2003 4:53 am Post subject:

naveen,

The following JCL will give you the desired results.

naveen · Beginner Joined: 03 Dec 2002 Posts: 90 Topics: 31

Kolusu,
It looks as if you haven't read(understood) my problem correctly. Please have a proper look at the problem.
The solution which you have suggested will just replace a particular string.
My problem is different.

kolusu · Posted: Mon May 19, 2003 6:20 am Post subject:

Naveen,

I am not sure as to what you are trying to do. But the JCL posted above does a scan of every record for 'FIELD1' irrespective of the position where it occurs and replaces it a 'NEW CONSTANT VALUE'. The new constant value can be your fixed string.This is what I assumed from your follow up post to frank who suggested the DFSORT solution. Now what am I missing in here?

Thanks

Kolusu

naveen · Beginner Joined: 03 Dec 2002 Posts: 90 Topics: 31

Kolusu,
Better you check my first post on this thread.
I don't want to replace 'FIELD1' with 'any other value'
I want to replace string next to 'FIELD1' with constant string.

FIELD1:xxxxx should be replaced by FIELD1:fffff

but xxxxx is not always xxxxx it could be yyyyy or anything. But I want this complete record FIELD1:xxxxx to be replaced with FIELD1:fffff

I hope I've made myself more clearer this time.

Frank Yaeger · Posted: Mon May 19, 2003 10:07 am Post subject:

Naveen,

I've reread your original statement of your requirement and it is NOT clear. In the future, you might want to try to state your requirements more clearly, rather than fault people who are trying to help you.

Sort products do not have any built-in functions to do what you want, although it could be done using an E15 exit with the appropriate logic.
_________________
Frank Yaeger - DFSORT Development Team (IBM)
Specialties: JOINKEYS, FINDREP, WHEN=GROUP, ICETOOL, Symbols, Migration
DFSORT is on the Web at:
www.ibm.com/storage/dfsort

kolusu · Posted: Mon May 19, 2003 10:23 am Post subject:

Naveen,

I understood your problem and suggested the solution, but it seems you did not even try to execute it and see what it produces. I am using the scan area to be 'FIELD1' so that I can replace the string following it.Run the following jcl which would replace 'XXXXX' (irrespective of the position) to 'FFFFF' .Note that the value 'FIELD1' is not changed at all.

naveen · Beginner Joined: 03 Dec 2002 Posts: 90 Topics: 31

Kolusu ,
Your current solution

kolusu · Posted: Tue May 20, 2003 5:53 am Post subject:

naveeen,

I used EDITALL so that you can even have a larger string replace the shorter string.Remember REPLALL will overlap the next field if the string to be replaced is larger.

Kolusu

js01 · Posted: Mon Nov 14, 2005 5:01 am Post subject:

Hi Kolusu,

you have mentioned FileAId in your post, but my shop dose not have a fileaid ,we have file master , is it possible to do this with FM or SORT utility?

thank you

kolusu · Posted: Mon Nov 14, 2005 7:50 am Post subject:

js01,

I haven't worked on File manager , so cannot give you an example. Check this link which talks about changing data in a dataset using file manager

http://publib.boulder.ibm.com/cgi-bin/bookmgr/BOOKS/FMNU1G00/1.6?DT=20051109025552

Hope this helps...

Cheers

Kolusu
_________________
Kolusu
www.linkedin.com/in/kolusu

taltyman · Posted: Mon Nov 14, 2005 11:15 am Post subject:

JS01
You could use this ISPF edit command

CHANGE P'FIELD1:=====' 'FIELD1:fffff' ALL